Urgent
Pourquoi l'erreur 3070 ci-dessous s'affiche quand je lance ce prog ?
(The Microsoft jet database engine does recognize 'Titre' as e valid field name or expression)

Private Sub Command3_Click()
Dim Recherche As String
Dim Expression As String
Expression = InputBox("Tapez le début d'un Nom :", "Recherche d'un Nom")
Recherche = "Titre LIKE" & "'" & Expression & "*" & "'"
Data1.Recordset.FindFirst Recherche
Do While Not Data1.Recordset.NoMatch
If MsgBox("Continuer une recherche ?", vbYesNo, "Rechercher") <> vbYes Then Exit Do
Data1.Recordset.FindNext Recherche
Loop
MsgBox "Il n'y a plus de Nom correspondant aux critères !", vbOKOnly, "Recherche"
End Sub
Merci pour une réponse.
Doumai60

J'ai trouvé l'erreur
Merci quand même
Doumai60

Salut,


Est ce que tu pourrais me donner la solution je suis ultra bloqué!!!!


Merci.

Salut
Ne sachant pas si je te l'ai bien envoyé je te le renvoie

Private Sub Command3_Click()
     Dim Recherche As String
     Dim Expression As String
     Expression = InputBox("Tapez le début d'un Nom :", "Recherche d'un Nom")
     Recherche = "NOM LIKE" & "'" & Expression & "*" & "'"
    Data1.Recordset.FindFirst Recherche
     Do While Not Data1.Recordset.NoMatch
         If MsgBox("Continuer une recherche ?", vbYesNo, "Rechercher") <> vbYes Then Exit Do
         Data1.Recordset.FindNext Recherche
     Loop
     MsgBox "Il n'y a plus de Nom correspondant aux critères !", vbOKOnly, "Recherche"

End Sub
Doumai60