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.
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Editar dados via User form
-
- Acabou de chegar
- Mensagens: 3
- Registrado em: Seg Jan 18, 2016 10:05 pm
Re: Editar dados via User form
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 ......
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 ......