[Resolvido]novo registro

Agravina 22/7/2010, 23:29

Agravina: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010

Mensagem nº1

[Resolvido]novo registro

Mensagem Agravina 22/7/2010, 23:29

como disparar novo registro atraves atraves tc enter
atualmente uso tc f2 com este cod
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF2 Then

criquio 22/7/2010, 23:31

criquio

criquio: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009

Mensagem nº2

Re: [Resolvido]novo registro

Mensagem criquio 22/7/2010, 23:31

Troque o KeyCode para 13

If KeyCode = 13 Then

.................................................................................

Meu novo site: www.vcssistemas.com.br

Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
1 - faça uma cópia do aplicativo
2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
3 - use o Compactar/Reparar
4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
Positive as mensagens que achar útil, no canto superior direito delas.

**JPaulo** 23/7/2010, 09:26

JPaulo

JPaulo: Moderador; Respeito às regras :

Sexo :
Localização :
Mensagens : 11016
Registrado : 04/11/2009

Mensagem nº3

Re: [Resolvido]novo registro

Mensagem JPaulo 23/7/2010, 09:26

Funciona sim, mas tem de colocar o formulario com visualizar teclas = Sim

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF2 Then
DoCmd.GoToRecord , , acNewRec
Else
KeyCode = 0
End If
End Sub

.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

Pay-Pal R$ Aqui
Pay-Pal € Aqui

Ou ainda: Aqui (Novo)

Sucesso e Bons Estudos
Success and Good Studies

[Resolvido]novo registro Folder_announce_new