Desculpe se ja tem este topico, mas não encontrei nada parecido.
Tenho um subform com 5 campos de uma tabela, ele está vinculado ao outro pela matricula da pessoa, neste subform abre uma lista de pessoas que preciso registrar a entrada em outra tabela, vinculado ao numero do rg, então abro o form pai, vejo a lista das pessoas que são parentes do individuo do form pai e vou clicando no botão na frente de cada pessoa para registrar a entrada no local.
este botao tem que registrar a data e a hora da entrada e armazenar isto para consulta posterior.
Qual a melhor forma para colocar este botão? tentei com insert into, mas não ta registrando o rg da pessoa que esta visitando.
aí está
Private Sub INSERTINTO_Click()
Dim SQLINSERT As String
SQLINSERT = "INSERT INTO CONTROLE_ENTRADA(DATA_VISITA,RG,MATRÍCULA) VALUES (DATE(),(SELECT * FROM [FORM!VISITAS1!RG] AND [FORM!VISITAS1!MATRÍCULA])"
DoCmd.RunSQL SQLINSERT
End Sub
Tenho um subform com 5 campos de uma tabela, ele está vinculado ao outro pela matricula da pessoa, neste subform abre uma lista de pessoas que preciso registrar a entrada em outra tabela, vinculado ao numero do rg, então abro o form pai, vejo a lista das pessoas que são parentes do individuo do form pai e vou clicando no botão na frente de cada pessoa para registrar a entrada no local.
este botao tem que registrar a data e a hora da entrada e armazenar isto para consulta posterior.
Qual a melhor forma para colocar este botão? tentei com insert into, mas não ta registrando o rg da pessoa que esta visitando.
aí está
Private Sub INSERTINTO_Click()
Dim SQLINSERT As String
SQLINSERT = "INSERT INTO CONTROLE_ENTRADA(DATA_VISITA,RG,MATRÍCULA) VALUES (DATE(),(SELECT * FROM [FORM!VISITAS1!RG] AND [FORM!VISITAS1!MATRÍCULA])"
DoCmd.RunSQL SQLINSERT
End Sub