[Resolvido]Localizar Registro

quando quero fazer algo do tipo eu uso esse codigo que aprendi aqui no forum

Código:

Private Sub findReg(nome As String)
Dim rst As DAO.Recordset
       
    Set rst = Form_meuFormulario.RecordsetClone
   
    nome = Nz("nome_paciente = '" & nome & "'", "")
   
    Me.RecordsetClone.FindFirst (nome)
   
    If Not Me.RecordsetClone.NoMatch Then
        Form_meuFormulario.Bookmark = Me.RecordsetClone.Bookmark
    Else
        MsgBox "Não Localizado", vbCritical
    End If
End Sub

para usar eu chamo a função no evento apos atualizar da caixa de texto

Código:

findReg (Me.pesquisa)

ronaldo, Boa tarde!!

vc usou a função "Call" para chamar a instrução após a atualização?

att;

Ney

call é opcional, mas eu nao uso.

Ronaldo, bom dia!!

não consegui fazer à adaptação, estou disponibilizando o meu projeto para verificação, esta dando erro.


obrigado!!

Att;

Sidney

boa tarde

estava dando erro por dois motivos.
1 - essa função de localizar o codigo obrigatoriamente tem q estar no formulario e nao em um modulo a parte.
2 - nas linhas que vc indica o nome do formulario obrigatoriamente tem que estar a palavra reservada "Form_". no seu caso estava sem.

Código:


'antes
Set rst = Frm_CadastrosUsuarios.RecordsetClone
'depois
Set rst = Form_Frm_CadastrosUsuarios.RecordsetClone


segue código corrigido

Código:


Private Sub txtPesquisa_AfterUpdate()
'adicionei esse if pra nao dar erro quando o campo ficar vazio.
If Not IsNull(Me.txtPesquisa) Then
    FindReg (txtPesquisa)
End If
End Sub


Public Sub FindReg(Nome As String)

Dim rst As DAO.Recordset
        
    Set rst = Form_Frm_CadastrosUsuarios.RecordsetClone
    
    Nome = Nz("Login = '" & Nome & "'", "")
    
    Me.RecordsetClone.FindFirst (Nome)
    
    If Not Me.RecordsetClone.NoMatch Then
        Form_Frm_CadastrosUsuarios.Bookmark = Me.RecordsetClone.Bookmark
    Else
        MsgBox "Não Localizado", vbCritical
    End If
End Sub


ve se agora vai a bagaça. rsrs

Ronaldo,

Perfeito, valeu, grande abraço!!!

Att; Sidney

disponha, o forum agradece o retorno