Mon code ne fonctionne pas : Erreur de compilation-syntaxe

Fermé
bob0009 Messages postés 1 Date d'inscription mercredi 12 août 2015 Statut Membre Dernière intervention 12 août 2015 - Modifié par NHenry le 12/08/2015 à 21:09
NHenry Messages postés 15047 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 11 mars 2023 - 12 août 2015 à 21:11
Bonjour,

J'essaie de faire un formulaire avec un bouton de rechercher et des champs de recherche libre, j'ai des informations dans une table et j'aimerai les faire ressortir.

Mais je suis débutant et mon code ne fonctionne pas.

Es ce que quelqu'un pourrai m'aider svp.


Merci


voici mon code :


Private Sub cmd_recherche_Click()

Dim A As String
Dim B As String
Dim C As String
Dim D As String

If Me.Prenom Is Null Then A = "%"

ElseIf: A = Me.Prenom

End If

If Me.Nom Is Null Then B = "%"
ElseIf: B = Me.Nom

End If

If Me.DDN Is Null Then C = "%"
ElseIf: C = Me.DDN

End If

If Me.Nas Is Null Then D = "%"
ElseIf: C = Me.Nas

DoCmd.RunSQL "SELECT * FROM BNL WHERE Prenom like '" & A & "' and Nom like '" & B & "' and DDN like '" & C & "' and NAS like '" & D & "'"

End If


End Sub


EDIT: Ajout de la coloration syntaxique.

1 réponse

NHenry Messages postés 15047 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 11 mars 2023 331
Modifié par NHenry le 12/08/2015 à 21:31
De base, le : on évite, on met une instruction par ligne.

Ensuite, un ElseIf sert à tester une autre condition, Else, c'est si toutes les conditions précédentes sont fausse.

J'interviens principalement en VB6 et VB.NET, avec un peu de C#, mais la modération m'amène souvent sur d'autre langages.
En VB.NET pensez à activer "Option Explicit" et "Option Strict"
0