Boa dia.
Poderiam me ajudar a usar o FINDFIRST no lugar do SEEK em tabelas vinculadas.
Utilizo o sequinte código:
Obs: Campo DTE - Tipo data
Campo RI - tipo texto
Access 2010
Private Sub Combinação114_BeforeUpdate(Cancel As Integer)
Dim rsttab As DAO.Recordset
Set Db = CurrentDb()
Set rsttab = Db.OpenRecordset("Tbl Cad_Adol")
rsttab.Index = "IND"
rsttab.Seek "=", Me.DTE, Me.RI
If rsttab.NoMatch Then
Else
MsgBox ("DADOS JA CADASTRADOS")
Me.Undo
End If
End Sub
Agradeço a possível ajuda.
Poderiam me ajudar a usar o FINDFIRST no lugar do SEEK em tabelas vinculadas.
Utilizo o sequinte código:
Obs: Campo DTE - Tipo data
Campo RI - tipo texto
Access 2010
Private Sub Combinação114_BeforeUpdate(Cancel As Integer)
Dim rsttab As DAO.Recordset
Set Db = CurrentDb()
Set rsttab = Db.OpenRecordset("Tbl Cad_Adol")
rsttab.Index = "IND"
rsttab.Seek "=", Me.DTE, Me.RI
If rsttab.NoMatch Then
Else
MsgBox ("DADOS JA CADASTRADOS")
Me.Undo
End If
End Sub
Agradeço a possível ajuda.