Utilizo a função abaixo no evento após atualizar e funciona perfeitamente, quando o campo é um ID.
o problema é que para um campo date (yy/mm/yyyy) ele não encontra a data especifica.
===============
Dim rs As Object
Set rs = Me.RecordsetClone
rs.FindFirst "[idRegistro] = " & Nz(Me![busca], 0)
If Not rs.NoMatch Then
Me.Bookmark = rs.Bookmark
Else
MsgBox "Nenhum registro encontrado"
End If
rs.Close
Set rs = Nothing
===============
Se alguém puder me ajudar. Obrigado
o problema é que para um campo date (yy/mm/yyyy) ele não encontra a data especifica.
===============
Dim rs As Object
Set rs = Me.RecordsetClone
rs.FindFirst "[idRegistro] = " & Nz(Me![busca], 0)
If Not rs.NoMatch Then
Me.Bookmark = rs.Bookmark
Else
MsgBox "Nenhum registro encontrado"
End If
rs.Close
Set rs = Nothing
===============
Se alguém puder me ajudar. Obrigado
Última edição por espacojames em 7/6/2014, 09:19, editado 1 vez(es)