Sujet Précédent Sujet Suivant

Soucis de syntax isnot sur sql

Résolu
vinkey33 Messages postés 97 Date d'inscription mercredi 9 décembre 2015 Statut Membre Dernière intervention 23 janvier 2021 - 22 nov. 2017 à 11:03
vb95 Messages postés 3417 Date d'inscription samedi 11 janvier 2014 Statut Contributeur Dernière intervention 20 mai 2023 - 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

1 réponse

Réponse 1 / 1
vb95 Messages postés 3417 Date d'inscription samedi 11 janvier 2014 Statut Contributeur Dernière intervention 20 mai 2023 165
22 nov. 2017 à 20:35
Si tes listes déroulantes sont des ListBox la syntaxe est la suivante : 

If Liste_Equipement.ListCount = 0 Then
0
Rejoignez-nous