Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Editar dados via User form

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
GutenbergBarroso
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Seg Jan 18, 2016 10:05 pm

Editar dados via User form

Mensagem por GutenbergBarroso »

Olá!
Estou aprendendo a fazer alguma coisa em VBA, estou tentando fazer um cadastro de alunos na escola em que trabalho, porém, não consigo editar os cadastros, sempre quando tento alterar cria um novo cadastro.

Na aba escola, clicar em Pesquisar: Pesquisar e na lista escolher um para editar (duplo clique) abre o User Form porém qd salva cria outro cadastro.

Me ajudem a encontrar o erro ou o que falta.



Segue cópia do arquivo anexo abaixo.
Anexos
teste.zip
(681.94 KiB) Baixado 86 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


grsn
Acabou de chegar
Acabou de chegar
Mensagens: 9
Registrado em: Qua Mar 18, 2020 7:01 am

Re: Editar dados via User form

Mensagem por grsn »

Olá!
Não entendo muito de vba, escrever códigos, sou só um curioso
Da forma que fez em formulários separados vc tá pegando uma textbox que não tem valor ao dar o duplo clique editar: tx_id_aluno altere para a textbox txidreg, acho que resolve pelo que vi

Private Sub Bt_Salvar_Click()
Dim Resposta As String, Linha As Long

Resposta = MsgBox("Você deseja alterar estecadastro?", vbYesNo + vbQuestion, "SIGESC")

If Resposta = vbYes Then
With BD_ALUNOS
Linha = Range("A:A").Find(Me.tx_id_aluno.Text, lookat:=1).Row

Cells(Linha, 2) = txnumeroaluno.Text
Cells(Linha, 3) = txnomealuno.Text
Cells(Linha, 4) = cbsexo.Text ......


Responder