Soucis de syntax isnot sur sql [Résolu]

Messages postés
87
Date d'inscription
mercredi 9 décembre 2015
Dernière intervention
30 juillet 2018
- - Dernière réponse : vb95
Messages postés
1724
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
9 décembre 2018
- 22 nov. 2017 à 20:35
Bonjour, j'ai un petit souci pour trouver la bonne syntaaxe pour isnull je m'explique, j'ai un formulaire avec trois liste déroulante. je voudrais que si je met rien dans une liste déroulante qui sera toujours celle-ci, j'aimerais qui insere sur la table de destination les deux choix que j'ai selectionné voici le code
Dim strmysql As String
Dim RunMySQL As String
Dim VrEMEI As String
Dim VrSIM As String
Dim VrUSER_ID As String
VrUSER_ID = Me.Recherche_Employé
VrEMEI = Me.Liste_Equipement
VrSIM = Me.Liste_Abonnemen

If IsNull([Liste_Equipement]) Then
RunMySQL = "INSERT INTO [Affectation Equipement] ( User_ID, EMEI, SIM ) "
RunMySQL = RunMySQL & " SELECT """
RunMySQL = RunMySQL & VrUSER_ID
RunMySQL = RunMySQL & """, """
RunMySQL = RunMySQL & VrSIM
RunMySQL = RunMySQL & """ "
Else
RunMySQL = "INSERT INTO [Affectation Equipement] ( User_ID, EMEI, SIM ) "
RunMySQL = RunMySQL & " SELECT """
RunMySQL = RunMySQL & VrUSER_ID
RunMySQL = RunMySQL & """, """
RunMySQL = RunMySQL & VrEMEI
RunMySQL = RunMySQL & """, """
RunMySQL = RunMySQL & VrSIM
RunMySQL = RunMySQL & """ "
End If
DoCmd.RunSQL RunMySQL
Afficher la suite 

Votre réponse

1 réponse

Messages postés
1724
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
9 décembre 2018
0
Merci
Si tes listes déroulantes sont des ListBox la syntaxe est la suivante :

If Liste_Equipement.ListCount = 0 Then

Commenter la réponse de vb95

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.