Amigos(as) do Fórum,
Criei um Form "FDocentePesquisa" que está funcionando normalmente.
Dando 2 Cliques na pesquisa selecionada, gostaria que abrisse com o registro no Form onde foi cadastrado!
Tentei utilizando o seguinte código:
Private Sub ltPesquisaDocente_DblClick(Cancel As Integer)
On Error GoTo Err_ltPesquisaDocente_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "FDocente"
stLinkCriteria = "[FDocente]=" & "'" & Me![Docente] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_ltPesquisaDocente_Click:
Exit Sub
Err_ltPesquisaDocente_Click:
MsgBox Err.Description
Resume Exit_ltPesquisaDocente_Click
End Sub
Criei um Form "FDocentePesquisa" que está funcionando normalmente.
Dando 2 Cliques na pesquisa selecionada, gostaria que abrisse com o registro no Form onde foi cadastrado!
Tentei utilizando o seguinte código:
Private Sub ltPesquisaDocente_DblClick(Cancel As Integer)
On Error GoTo Err_ltPesquisaDocente_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "FDocente"
stLinkCriteria = "[FDocente]=" & "'" & Me![Docente] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_ltPesquisaDocente_Click:
Exit Sub
Err_ltPesquisaDocente_Click:
MsgBox Err.Description
Resume Exit_ltPesquisaDocente_Click
End Sub
- Anexos
- SGA.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (175 Kb) Baixado 8 vez(es)