1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VBA Office (Excel, Word ...)
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
2629
Date d'inscription
samedi 11 janvier 2014
Statut
Modérateur
Dernière intervention
13 mai 2022
 - 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
A voir également:

1 réponse

Réponse 1 / 1
vb95
Messages postés
2629
Date d'inscription
samedi 11 janvier 2014
Statut
Modérateur
Dernière intervention
13 mai 2022
 151
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