Caros Amigos,
Estou com uma problema que não estou conseguindo resolver...
Tenho um form frm_Comparecimentos_Cadastro_CB cuja tabela origem é tbl_Comparecimentos_CB:
Campos chave: ChaveComparecimento e ChaveAssistido
Demais Campos: DataComparecimento e mais um campo do tipo S/N;
Localizo um registro usando o DLookup: NumRec = DLookup("[ChaveComparecimento]", "tbl_Comparecimentos_CB", "[ChaveAssistido]= " & Me.Texto35)
Quando a função DLookup acima localiza o número do registro (NumRec) que satisfaz o critério acima,
preciso que o form se posicione no registro NumRec !!
Pela opções que pesquisei, só tem MoveFirst, MoveLast, MoveNext e MovePrevious !!
A função: DoCmd.GoToRecord acDataForm, "frm_Comparecimentos_cadastro_CB", , NumRec dá erro dizendo que a
tabela não está aberta, muito embora eu tenha usado os comandos abaixo:
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("tbl_Comparecimentos_CB")
Outros comandos que tentei:
DoCmd.GoToRecord , , , NumRec
DoCmd.GoToRecord acDataForm, "tbl_Comparecimentos_CB", acGoTo, NumRec
DoCmd.GoToRecord , , acGoTo, NumRec
Alguém consegue decifrar isso?
Agradeço desde já qualquer cooperação !
Estou com uma problema que não estou conseguindo resolver...
Tenho um form frm_Comparecimentos_Cadastro_CB cuja tabela origem é tbl_Comparecimentos_CB:
Campos chave: ChaveComparecimento e ChaveAssistido
Demais Campos: DataComparecimento e mais um campo do tipo S/N;
Localizo um registro usando o DLookup: NumRec = DLookup("[ChaveComparecimento]", "tbl_Comparecimentos_CB", "[ChaveAssistido]= " & Me.Texto35)
Quando a função DLookup acima localiza o número do registro (NumRec) que satisfaz o critério acima,
preciso que o form se posicione no registro NumRec !!
Pela opções que pesquisei, só tem MoveFirst, MoveLast, MoveNext e MovePrevious !!
A função: DoCmd.GoToRecord acDataForm, "frm_Comparecimentos_cadastro_CB", , NumRec dá erro dizendo que a
tabela não está aberta, muito embora eu tenha usado os comandos abaixo:
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("tbl_Comparecimentos_CB")
Outros comandos que tentei:
DoCmd.GoToRecord , , , NumRec
DoCmd.GoToRecord acDataForm, "tbl_Comparecimentos_CB", acGoTo, NumRec
DoCmd.GoToRecord , , acGoTo, NumRec
Alguém consegue decifrar isso?
Agradeço desde já qualquer cooperação !