COMO FAZER A TECLA ENTER INSERIR 2 NOVOS REGISTROS

CARINHENA 29/06/2004 20:11:00
#31635
Creio q o que vou pedir não seja dificil, mas, não consegui... rs...

No acces Xp, tenho um formulário chamado: Texto de Tradução.
Neste Formulário ha dois campos: Personagem e Texto.

Como eu faço pra que quando alguem apertar a tecla enter, automáticamente ele pule 2 registros ??
Caso não haja um (ou os dois) registro pra ir, que ele crie esse registros??

Um grande abraço...
CAJU 29/06/2004 22:10:07
#31639 Resposta escolhida
KeyDown()
if keycode = vbkeyreturn then
grs.movenext
if grs.eof then goto Adiciona2
grs.movenext
if grs;eof then goto Adiciona1
end if
exit sub

Adiciona2:
grs.addnew
grs!nome = "teste1"
grs.update
grs.addnew
grs!nome = "teste2"
grs.update
exit sub

Adiciona1:
grs.addnew
grs!nome = "teste1"
grs.update
eix tusb
Tópico encerrado , respostas não são mais permitidas
Voltar