Bonjour,
J'ai cette erreur dans la fonction ci-dessous et bien sûr, je ne comprends pas.
Peut-on me donner un coupe de main pour corriger cette erreur.
Merci d'avance.
chCritères = InputBox("Tapez la ou les première(s)" & vbLf _
& "lettre(s) du nom à retrouver.", "Recherche par nom") & "*"
If chCritères = "*" Then
Exit Sub
End If
monSQL = "SELECT tblfacturesToutesAnnées.NCL,tblfacturesToutesAnnées.Nfact_an,tblfacturesToutesAnnées.DateFact," _
& "tblfacturesToutesAnnées.TF,tblfacturesToutesAnnées.Nom,tblfacturesToutesAnnées.Prénom,tblfacturesToutesAnnées.Localité" _
& "tblfacturesToutesAnnées.Marque, tblfacturesToutesAnnées.type FROM tblfacturesToutesAnnées" _
& "WHERE tblfacturesToutesAnnées.nom like '" & chCritères & "'"
Set rst = maBD.OpenRecordset(monSQL)
@+
Guy FALESSE
