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
|
'Dans le code je presume que l'element a ajouter dans la requette
'ce trouve dans le Caption du Checkbox
Dim CBox As Control
Private Sub Command1_Click()
Dim SQL As String
Dim SQLBrut As String
SQL = "Select * from Table Where"
'Generation du code brut de la requette
For Each Cbox In Form1.Controls
If TypeOf Cbox Is CheckBox Then
If Cbox.Value Then
SQLBrut = "& " & Cbox.Caption & " &" & SQLBrut
End If
End If
Next
SQL = SQL + SQLBrut
'Traitement de la requette
SQL = Replace(SQL, "&&", "And")
SQL = Replace(SQL, "&", "")
MsgBox SQL
End Sub |
Partager