[Resolvido]Executar um comando ao pressionar a tecla enter

Boa tarde a todos, tenho um form com um botão incluir que serve para salvar meus registros. mais quando eu aperto a tecla enter no lugar de clicar no botão,meu dados se perdem quero que ao presionar a tecla enter execute a função deste meu botão incluir.. Como poderia ser feito isso?

Talvez assim, no evento "Ao pressionar tecla":

Código:

If KeyCode = vbKeyReturn Then
    Call NomeBotão_Click
End If

O evento "Visualizar teclas" precisa ser "Sim".

Olá criquio, olha o codigo deu erro de compilação. So quero que ao apertar a tecla enter ele faça a função do botão incluir.

É isso mesmo, essa é a ideia. Coloque aí o código completo como está usando.

Boas, poste ai que te ajudamos!

Olá amigos esta ai um exemplo de meu bd.. Coloquei o codigo... If KeyCode = vbKeyReturn Then
Call NomeBotão_Click
End If

no evento ao presionar a tecla mais não deu em nada.. Tenho 3 campos e são programdos para que quando eu clique em incluir eles não se apagão. Mais quando presiono enter eles se apagão.. Da uma olha para vcs verem..

O seu botão se chama NomeBotão mesmo? É para colocar o nome do botão no lugar disso;.

Matheus quando aperta a tecla (Enter)está incluindo o registro eu testei aqui!

Teste:

Matheus eu percebi o que quer e fiz a alteração, teste ai.

Show Lupércio, mais uma vez obrigado, vcs tem nos ajudado muito.. Valeu.. E aproveitando quero te fazer uma pergunta.. Estou acabando meu BD e gostaria de compilar ele.. Mais quero que ao clicar no icone do Programa ele abra com um programa normal, sem ter que abrir a janela do access.. so a tela do menu principal do meu form, vc entendeu... Valeu amigo

Há varias maneiras! Uma delas veja!

Olha Lupércio não e exatamente isso.. mais e quase la.. Neste seu modelo aparece o form mais atraz dele aparece a tela do access.. quero que so apareça o form e a tela do access fique fechada.. Asssim, clico no icone para abrir meu bd ele abre so o Form principal... Sabe quando vc abre um programa como avast, nero, ele abre sempre a tela do programa.. entendeu..abraço

Veja:

Lupércio aqui em o Bd abriu mais o form principal não apareceu, e continua abrindo a janela do access..

Veja: Aqui no meu PC está normal!

Boa noite Lupércio.. acho que não deu certo pois meu windows e 64 bits, tem como atualizar o codigo? O seu codigo esta em 32 bits, sera que e isso?

Troque o códido não sei se funcina"

Private Declare Function IsWindowVisible Lib "user64" (ByVal hwnd As Long) As Long
Dim dwReturn As Long

Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3

Private Declare Function ShowWindow Lib "user64" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long

Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean
If Procedure = "Hide" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
End If
If Procedure = "Show" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
If Procedure = "Minimize" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED)
End If
If SwitchStatus = True Then
If IsWindowVisible(hWndAccessApp) = 1 Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
Else
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
End If
If StatusCheck = True Then
If IsWindowVisible(hWndAccessApp) = 0 Then
fAccessWindow = False
End If
If IsWindowVisible(hWndAccessApp) = 1 Then
fAccessWindow = True
End If
End If
End Function

amigo Lupércio nada feito ele pede para atulaizar o codigo...

Desculpe a demora Matheus, adptei o exemplo de um ninja aqui do fórum.
Mestre Criquio!

Olá amigo Lupércio, olha não consegui adaptar o codigo então instalei o access 32 bitse deu certo.. Obrigado.. lembra que vc colocou um codigo para que quando eu apertace a tecla enter ele inciria os registros, então esto tendo um problema e estou postando o bd para vc ver e me dar uma ajuda.. quando eu aperto a tecla enter 2 caixas ficão desfiguradas, data da venda e descrição da uma olhada..

kkk

Resolvi esse problema com a primeira resposta

Obrigado criquio