[Resolvido]Não a nenhum registro atual. Usando Bookmark

Boa noite galera. Estou ajudando um amigo aqui, é usando o codigo Bookmark e sempre passa pela a condição e quando chega no Boolmark ele exibe a mensagem : "Não ha registro atual".
Sempre usei ele, a primeira vez que isso acontece eaté agorea não achei o erro.

Dim rs As Object
  If DCount("*", "tbldCad", "NnumeroTex='" & Me.txtPesquisa.Value & "'") < 1 Then
   MsgBox "NÃO HÁ REGISTRO REFERENTE", vbExclamation
  Else
     Set rs = Me.Recordset.Clone
        rs.FindFirst "[NnumeroTex] = " & Me.txtPesquisa.Value & ""
       Me.Bookmark = rs.Bookmark
     Set rs = Nothing
.....

Gilliard,

Tente isso. Mude:
De--> Dim rs As Object
Para--> Dim rs As DAO.Recordset

Abs
Alexandre Fim

Nobre Alexandre. ele persistiu, eu troque de formulário e voltou ao normal.
A única coisa que poderia atrapalhar seria o formulario não ter o campo para completar? Não é possível, pois a função dele era pegar e clonar tudo que teria igual a tabela com o fórmulario.

Gilliard bom dia,

você pode fazer assim:

Código:



Dim rs As Object
 
    '-- se a contagem for IGUAL A ZERO -----------------------------------------------------
    If DCount("*", "tbldCad", "NnumeroTex='" & Me.txtPesquisa.Value & "'") = 0 Then
        MsgBox "NÃO HÁ REGISTRO REFERENTE", vbExclamation
        Exit Sub '-- A rotina pára aqui !
    End If
    '--------------------------------------------------------------------------------------
   
    '-- se a contagem for MAIOR QUE ZERO -----------------------------------------------------
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[NnumeroTex] = " & Me.txtPesquisa.Value & ""
    Me.Bookmark = rs.Bookmark
    '--------------------------------------------------------------------------------------
   
    Set rs = Nothing



É isso

Att,

Alexandre Fim