Erreur de Syntaxe 3075

Question

bonjour chers amis, quelqu'un pourrait m'aider à trouver une solution à ce code, car à chaque fois que je l'éxécute, ce message s'affiche (Erreur d'éxécution '3075, Erreur de Syntaxe (absence d'opérateur dans l'expression <> Private Sub Rech1_click() Dim nomchamp As String Cbtext.SetFocus nomchamp = Cbtext.ItemData(Cbtext.ListIndex) Textesaisir.SetFocus DoCmd.OpenForm "RECHECHE_UN_MEMBRE" If TexteCadre.Value = 1 Then Forms!RECHECHE_UN_MEMBRE.RecordSource = "select* from RECHECHE_GENERALE2 where " & nomchamp & "=" & """" & Textesaisir.Text & """" ElseIf TexteCadre.Value = 2 Then Forms!RECHECHE_UN_MEMBRE.RecordSource = "select* from RECHECHE_GENERALE2 where " & nomchamp & "LIKE'" & Textesaisir.Text & "*'" ElseIf TexteCadre.Value = 3 Then Forms!RECHECHE_UN_MEMBRE.RecordSource = "select* from RECHECHE_GENERALE2 where " & nomchamp & "LIKE'*" & Textesaisir.Text & "'" ElseIf TexteCadre.Value = 4 Then Forms!RECHECHE_UN_MEMBRE.RecordSource = "select* from RECHECHE_GENERALE2 where " & nomchamp & "LIKE'*" & Textesaisir.Text & "*'" ElseIf TexteCadre.Value = 1 Then Forms!RECHECHE_UN_MEMBRE.RecordSource = "select* from RECHECHE_GENERALE2 where " & nomchamp & "<>" & """" & Textesaisir.Text & """" End If End Sub

vb95 · Answer

bonjour
Afin de rendre ce code plus lisible prière de suivre ce tuto :  https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
et par la même occasion spécifier le numéro de ligne de l'erreur .
merci

vb95 · Answer

bonjour
L'erreur ne serait pas sur la ligne n° 10 de ton code

Forms!RECHECHE_UN_MEMBRE.RecordSource = "select* from RECHECHE_GENERALE2  where " & nomchamp & "LIKE'*" & Textesaisir.Text & "*'"

il manque un astérisque après le mot LIKE je pense

Erreur de Syntaxe 3075

2 réponses

Votre réponse

Discussions similaires