Private Sub cmdLocalizar_Click()

      Dim criterio As Long

      Dim str as Stirng

        str = InputBox$("Digite a matrícula do funcionário", "Localizar Funcionário")

        criterio = clng(str)

      daoFuncionarios.Recordset.Find "matricula =" & criterio

End Sub

 

mas nao esta sendo feita a conversao de string pra long

estou usando um formulario com DAO e preciso digitar numa textbox a matricula pra localizar o funcionario. Se tiver um outro codigo tambem é bem vindo

 

obrigado pela paciencia

Private Sub cmdLocalizar_Click()
             Dim criterio As Variant
            Dim str As String
            str = InputBox$("Digite o código: ", "Localizar Codigo")
            criterio = CVar(str)
            If criterio = Empty Then
                MsgBox "Digite o número do código", vbCritical
                Exit Sub
            Else
            adoCustos.Recordset.Find "codigo = '" & criterio & "'"
           
                If adoCustos.Recordset.EOF = True And adoCustos.Recordset.BOF = False Then
                   MsgBox "Este código não existe !", vbCritical
                   adoCustos.Recordset.MoveMin
                   Exit Sub
                End If
            End If