findfirst

salut

j ai une base appelé base comportant les champs  Num, Nom ....
et je veut rechercher un enregistrement selon le Nom  avec findfirst --> (opération  non autorisé pour ce type d'objet ) comme résultat ,

Private Sub recherhe_Click()
 
cod = InputBox(" donner le code client")
With Data1.Recordset

.FindFirst (" Nom = ' " & cod & " ' ")

End With

gaffe aux espaces...

le code :
Data1.Recordset.FindFirst "Nom='" & cod & "'"

suffit...
ceci dit, j'ignore d'ou vient ton erreur


Renfield
Admin CodeS-SourceS- MVP Visual Basic

Bonjour,

Dans mes souvenirs de DAO, je crois que FindFirst est parfois susceptible.
Essaye :
Private Sub recherhe_Click()
dim cod as string
dim strFind as string
 
cod = InputBox(" donner le code client")
strFind  = "Nom='" & cod & "'"

With Data1.Recordset

.FindFirst (strFind)

End With


++
 Moustachu

bonjour je veux recherché par critère dans une talbe par choix de critère la recherche fonctionne sauf quand je choisis de recherché par data


Private Sub Txt_Recherche_KeyUp(KeyCode As Integer, Shift As Integer)

    Dim str_critere As String
    Dim str_recherche As String
   
    str_critere = Combo2.Text
    str_recherche = Txt_Recherche.Text
   
    If KeyCode = vbKeyReturn Then
   
        If str_critere <> "Age" Then
                   
            'Data1.RecordSource = "Select * From Personne Where " & str_critere & "='" & str_recherche & "'"
             Data1.Recordset.FindFirst str_critere & "='" & str_recherche & "'"
            
                If Data1.Recordset.NoMatch Then
               
                    MsgBox "Valeur introuvable"
                   
                    Exit Sub
                   
                Else
               
                    List1.AddItem Data1.Recordset.Fields("Nom") & " " & Data1.Recordset.Fields("Prenom")
                   
                End If
        Else
           
           
            Data1.Recordset.FindFirst str_critere & "='" & str_recherche & "'"
           
                If Data1.Recordset.NoMatch Then
           
                    MsgBox "Valeur introuvable"
           
                    Exit Sub
               
                Else
           
                    List1.AddItem Data1.Recordset.Fields("Nom") & " " & Data1.Recordset.Fields("Prenom")
           
                End If
           
        End If
       
    End If
               
   
End Sub

Le probleme viens d'ici Data1.Recordset.FindFirst str_critere & "='" & str_recherche & "'"
je dois changé quelle chose a cette ligne mais j ai deja essayé et ca ne tourne tj pas

Merci d'avance