1 2 3 4 5 6 7 8 9 10 11 12 13
|
If ComboBox1.Text = "Critere1" Then
r = " select champ1, champ1, champ1, champ1,... from maTable where Critere1= '" & cri.Text & "'"
ElseIf ComboBox1.Text = "Critere2" Then
r = " select champ1, champ1, champ1, champ1,... from maTable where Critere2= '" & cri.Text & "'"
ElseIf ComboBox1.Text = "Critere3" Then
r =" select champ1, champ1, champ1, champ1,... from maTable where Critere3= '" & cri.Text & "'"
ElseIf ComboBox1.Text = "Critere4" Then
r = " select champ1, champ1, champ1, champ1,... from maTable where Critere4= '" & cri.Text & "'"
ElseIf ComboBox1.Text = "Critere5" Then
r = " select champ1, champ1, champ1, champ1,... from maTable where Critere5= '" & cri.Text & "'"
Else
end if |
Partager