Olá pessoal, bom dia, Estou usando verificador se o CNPJ já existem no meu banco de dados, mas quando aparece a mensagem e clico no OK automaticamente ele vai para o próximo TextBox do UserForm.
Gostaria que após a mensagem volta-se na TextBox da origem da mensagem e seleciona-se os dados.
Private Sub txtNCnpf_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Me.txtNCnpf = Format(Me.txtNCnpf, "00"".""000"".""000""/""0000""-""00")
linhabdforn = 2
Do Until Plan26.Cells(linhabdforn, 1) = ""
If Plan26.Cells(linhabdforn, 2) = CadForn.txtNCnpf Then
MsgBox "CNPJ já existe no banco de dados.", vbCritical, "::RESTRIÇÃO::"
Exit Sub
End If
linhabdforn = linhabdforn + 1
Loop
End Sub
silvajmp
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
me.txtNCnpf.setfocus
Tarcelles boa noite, obrigado por me responder, mas já tinha usado esta função e não deu certo.
silvajmp
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Cancele a saída do textbox:
Cancel = True
Private Sub txtNCnpf_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Me.txtNCnpf = Format(Me.txtNCnpf, "00"".""000"".""000""/""0000""-""00")
linhabdforn = 2
Do Until Plan26.Cells(linhabdforn, 1) = ""
If Plan26.Cells(linhabdforn, 2) = CadForn.txtNCnpf Then
MsgBox "CNPJ já existe no banco de dados.", vbCritical, "::RESTRIÇÃO::"
Cancel = True
Exit Sub
End If
linhabdforn = linhabdforn + 1
Loop
End Sub
Abs.
Espero ter ajudado.
Todos que ajudaram ou tentaram ajudar estão com boa vontade fazendo isso de graça.
Por isso, seja educado, ajude-os a te ajudar, e sempre clique na mãozinha para agradecer.
Tsa boa noite, valeu é isso mesmo que eu preciso.
silvajmp
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel