SELECIONAR TEXTO TEXTBOX APOS MSGBOX RESTRIÇÃO

Formulários

Post Recente por Fernando Fernandes 9 anos atrás

5 Posts

3 Usuários

0 Reactions

1,303 Visualizações

RSS

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Topic starter

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

Postado : 23/04/2016 7:25 am

tarcelles

(@tarcelles)

Posts: 61

Trusted Member

me.txtNCnpf.setfocus

Postado : 23/04/2016 12:22 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Topic starter

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

Postado : 24/04/2016 8:45 pm

tsa.xlsx

(@tsa-xlsx)

Posts: 55

Trusted Member

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.

Postado : 25/04/2016 9:56 pm