SAIR DE UM TEXTBOX JA CLICANDO EM UM COMMANDBUTTON
Bom dia gente,
Tenho mais uma dúvida. Gostaria de saber como faço para o seguinte problema:
tenho um text com o nome TEXT_TOTALPRODUTOS e um commnadButton com o nome COMMAND_INSERIR
Gostaria de assim que eu dê um enter do TEXT já clique automaticamente no botão COMMAND_INSERIR sem clicar nele necessariamente.
Mais uma vez grato pela ajuda!
Tenho mais uma dúvida. Gostaria de saber como faço para o seguinte problema:
tenho um text com o nome TEXT_TOTALPRODUTOS e um commnadButton com o nome COMMAND_INSERIR
Gostaria de assim que eu dê um enter do TEXT já clique automaticamente no botão COMMAND_INSERIR sem clicar nele necessariamente.
Mais uma vez grato pela ajuda!
assim
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
Command1_Click
End If
End SubPrivate Sub Command1_Click()
MsgBox [Ô]teste[Ô]
End Sub
Obg, mas não funcionou no meu.
continua do mesmo jeito.
tem que ser assim: quando eu der enter pra sair do text, ele tem que clicar automaticamente no button e executar a função que já tem dentro do button.
Do jeito que vc me mandou está focando o button e para isso eu uso o setfocus.
aguardo resposta, obg.
continua do mesmo jeito.
tem que ser assim: quando eu der enter pra sair do text, ele tem que clicar automaticamente no button e executar a função que já tem dentro do button.
Do jeito que vc me mandou está focando o button e para isso eu uso o setfocus.
aguardo resposta, obg.
Henrymarques é exatamente o que o Marcelo disse, só troca Command1 pelo nome do seu botão.
Não esquece de setar a propriedade Keypresse do formulário para True se não não funciona.
Não esquece de setar a propriedade Keypresse do formulário para True se não não funciona.
Tente assim:
Private Sub TEXT_TOTALPRODUTOS _KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
call COMMAND_INSERIR
End If
Private Sub TEXT_TOTALPRODUTOS _KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
call COMMAND_INSERIR
End If
o código que te passei faz exatamente o vc pediu, porém não sei o nivel do seu conhecimento, mas vamos lá
se o nome do seu text for TEXT_TOTALPRODUTOS então seria assim
e se o nome do command butto for COMMAND_INSERIR
agora se o seu textbox tiver apenas o nome TOTALPRODUTOS e o command button tiver apenas o nome INSERIR
espero que tenha sida claro
se o nome do seu text for TEXT_TOTALPRODUTOS então seria assim
e se o nome do command butto for COMMAND_INSERIR
Private Sub TEXT_TOTALPRODUTOS_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
COMMAND_INSERIR_Click
End If
End SubPrivate Sub COMMAND_INSERIR_Click()
MsgBox [Ô]teste[Ô]
End Subagora se o seu textbox tiver apenas o nome TOTALPRODUTOS e o command button tiver apenas o nome INSERIR
Private Sub TOTALPRODUTOS_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
INSERIR_Click
End If
End SubPrivate Sub INSERIR_Click()
MsgBox [Ô]teste[Ô]
End Subespero que tenha sida claro
Obrigado à todos mas tentei todas os códigos e não funcionou. Quero lembrar que esse código é em excel vba. Eu programo em Delphi há mais de 7 anos e estou com dificuldades em algumas coisas como esta. Eu Já tinha alterado para o nome dos objetos conforme no meu mas não adiantou. Agradeço mais uma vez à todos, mas se souberem de algo, estou no aguardo.
O que pode fazer é inserir o seu código dentro da condição. Desta forma, quando o usuário clicar no enter irá executar o código.
If KeyAscii = 13 Then
[ô] inserir aqui o código que está dentro do botão COMMAND_INSERIR
End If
If KeyAscii = 13 Then
[ô] inserir aqui o código que está dentro do botão COMMAND_INSERIR
End If
E ai HENRYMARQUES
Fiz um teste dentro do Excel aqui e deu certo.
Tenta o seguinte
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
CommandButton1_Click
End If
End Sub
Fiz um teste dentro do Excel aqui e deu certo.
Tenta o seguinte
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
CommandButton1_Click
End If
End Sub
Grande Anderson Gregor, é exatamente isso que eu estava procurando. Agradeço à todos pela dicas aqui postadas, em especial ao Anderson.
[txt-color=#0000f0] [/txt-color]
[txt-color=#0000f0] [/txt-color]
Tópico encerrado , respostas não são mais permitidas