Findfirst

Résolu
AKRAMNOUIR Messages postés 13 Date d'inscription dimanche 12 mars 2006 Statut Membre Dernière intervention 12 mars 2008 - 14 mai 2007 à 01:38
cs_neotof Messages postés 75 Date d'inscription jeudi 12 août 2004 Statut Membre Dernière intervention 3 décembre 2012 - 28 nov. 2007 à 16:41
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

4 réponses

chaibat05 Messages postés 1883 Date d'inscription samedi 1 avril 2006 Statut Membre Dernière intervention 20 novembre 2007 2
14 mai 2007 à 18:26
Bonjour,

1° Pour le FindFirst le RecordSet doit être de type Dynaset.
    Regardes dans la propriété RecordSetType de ton objet Data.
2° La synthaxe exacte est :
    Data1.Recordset.FindFirst "[Nom] ='" & cod & "'"
3
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
14 mai 2007 à 08:35
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
0
cs_moustachu Messages postés 1079 Date d'inscription jeudi 14 novembre 2002 Statut Membre Dernière intervention 1 janvier 2012
14 mai 2007 à 09:58
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
0
cs_neotof Messages postés 75 Date d'inscription jeudi 12 août 2004 Statut Membre Dernière intervention 3 décembre 2012
28 nov. 2007 à 16:41
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
0
Rejoignez-nous