Teclar enter e executar o botão entrar

[Gabriel.Rizzatto]

Olá eu tenho um formulário de login e queria fazer que quando eu apertar a tecla " enter"  ele executar o próximo passo no caso ele executar o botão entrar do login. Alguém poderia me ajudar??????

 

[CasaDoHardware]

Ajuste a ordem de tabulação dos objetos do formulario, ou seja o botao entrar deve ser o numero 2

 

Tabindex 2

 

Ou se preferir coloque o codigo do botao entrar em um modulo e chame o codigo no botao exit da textbox senha.

[Gabriel.Rizzatto]

2 horas atrás, CasaDoHardware disse:

Ajuste a ordem de tabulação dos objetos do formulario, ou seja o botao entrar deve ser o numero 2

 

Tabindex 2

 

Ou se preferir coloque o codigo do botao entrar em um modulo e chame o codigo no botao exit da textbox senha.

pela tabulação eu testei aqui porém ele sempre ficar executando somente a formulário user e senha nunca dar um entrar no botão 

[Basole]

@Gabriel.Rizzatto Analisando por imagens fica meio complicado, mas se isso te ajuda.

Considerando que o campo [ Informe a Senha ] seja um textbox e o campo [ Entrar ] uma Label, no evento KeyDown do seu TextBox:

Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
         Label1_Click
    End If
End Sub

E no Evento Click da sua Label: 

 Private Sub Label1_Click()
' Coloque seu codigo de condicao para acesso
End Sub 

 

[CasaDoHardware]

 

então você nao te um botao e sim uma label, como disse o Basole.

 

Tente a dica do Basole.

 

Coloque o codigo no evento exit como eu disse se a dica dele nao funcionar.

[Gabriel.Rizzatto]

Em 11/04/2017 às 22:02, Basole disse:

@Gabriel.Rizzatto Analisando por imagens fica meio complicado, mas se isso te ajuda.

Considerando que o campo [ Informe a Senha ] seja um textbox e o campo [ Entrar ] uma Label, no evento KeyDown do seu TextBox:

 

Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
         Label1_Click
    End If
End Sub

 

E no Evento Click da sua Label: 

 

 Private Sub Label1_Click()
' Coloque seu codigo de condicao para acesso
End Sub 

 

 

Agradecido, funcionou perfeitamente!