Olá Pessoal,
Tenho um formulario de cadastro de funcionários onde criei uma caixa de listagem com o campo nome ao clicar no nome vai para o registro. Mas tem um determinado funcionario que quando tento localizar gera um erro e cai no seguinte código.
Private Sub Lista145_AfterUpdate()
' Encontrar o registro que coincide com o controle.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[NOME] = '" & Me![Lista145] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
O que estou esquendo ????
Abraços Gerson
Tenho um formulario de cadastro de funcionários onde criei uma caixa de listagem com o campo nome ao clicar no nome vai para o registro. Mas tem um determinado funcionario que quando tento localizar gera um erro e cai no seguinte código.
Private Sub Lista145_AfterUpdate()
' Encontrar o registro que coincide com o controle.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[NOME] = '" & Me![Lista145] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
O que estou esquendo ????
Abraços Gerson