Discussion :

[vinkey_33]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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 [Liste_Equipement] = Null 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 & """ "
 
  DoCmd.RunSQL RunMySQL
  End If
 End Sub

[tee_grandbois]

bonsoir,
je n'ai pas bien compris ton besoin mais cette instruction n'est pas correcte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If [Liste_Equipement] = Null Then

pour tester la valeur nulle ce n'est pas avec = mais avec isnull() :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If isnull([Liste_Equipement]) Then

et cette instruction devrait être après le End If :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.RunSQL RunMySQL

[vinkey_33]

sa ne fonctionne toujours pas en fesant comme tu ma dit, il me marque comme erreur : " erreur d'exécution '94' : utilisation incorrecte de null" et voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub créer_Affectation_3_en_1_Click()
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

[tee_grandbois]

Bonjour,
C'est une liste déroulante, donc cela renvoie Vide et pas Null. Dans ce cas essaie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If [Liste_Equipement] = "" Then