Boas
tenho uma tabela chamada Marcação de Consultas, e um campo de numeração automática chamado Nº do Verbete
No formulário de consulta eu quero carregar no campo (Nº do Verbete) e abrir o formulário com respectivo nº clicado
estou a usar este código mas não funciona
Private Sub Nº_do_Verbete_Click()
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Marcação de Consultas"
stLinkCriteria = "[Nº DO VERBETE]=" & "'" & Me![Nº DO VERBETE] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
'DoCmd.Close acForm, ("Nº DO VERBETE"), acSavePrompt
End Sub
tenho uma tabela chamada Marcação de Consultas, e um campo de numeração automática chamado Nº do Verbete
No formulário de consulta eu quero carregar no campo (Nº do Verbete) e abrir o formulário com respectivo nº clicado
estou a usar este código mas não funciona
Private Sub Nº_do_Verbete_Click()
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Marcação de Consultas"
stLinkCriteria = "[Nº DO VERBETE]=" & "'" & Me![Nº DO VERBETE] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
'DoCmd.Close acForm, ("Nº DO VERBETE"), acSavePrompt
End Sub