Bonjour, j'ai réaliser un formulaire avec trois menu déroulant et une case a cochée. j'aimerais affiché le emei qui sont "non affecter" quand la case a coché est coché dans le menu déroulant et quand la case est non coché la même chose avec les "non affecté" voici le code mais il fonctionne pas
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
29
Dim OuiNon As String
Dim strmysql As String
Dim RunMySQL As String
 
'Me.Liste_Equipement = [Equipement].Num_EMEI
 
If Cocher_affectation.Value = True Then
RunMySQL = "SELECT [Equipement].Num_EMEI"
RunMySQL = RunMySQL & " FROM [Equipement]"
RunMySQL = RunMySQL & " WHERE Me.Liste_Equipement = Non affecté ;"
 
RunMySQL = "SELECT [Abonnements].Num_SIM"
RunMySQL = RunMySQL & " FROM [Abonnements]"
RunMySQL = RunMySQL & " WHERE Me.Liste_Abonnemen = Non Affecté ;"
'    DoCmd.RunSQL RunMySQL
 
ElseIf Cocher_affectation.Value = False Then
RunMySQL = "SELECT Equipement.Num_EMEI"
RunMySQL = RunMySQL & " FROM [Equipement]"
RunMySQL = RunMySQL & " WHERE Me.Liste_Equipement = affecté ;"
 
RunMySQL = "SELECT Abonnements.Num_SIM"
RunMySQL = RunMySQL & " FROM [Abonnements]"
RunMySQL = RunMySQL & " WHERE Me.Liste_Abonnemen = Affecté ;"
 '   DoCmd.RunSQL RunMySQL
End If
 
 
End Sub