1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Private Sub Radio1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Selection
End Sub
Private Sub Radio2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Selection
End Sub
Private Sub Selection()
Select Case Option_consult
Case 1 ' Par Utilisateur
cmbRechNom.Visible = True
cmbRechGroupe.Visible = False
RefreshQuery
Case 2 ' Par Groupe
cmbRechNom.Visible = False
cmbRechGroupe.Visible = True
RefreshQuery2
End Select
End Sub |
Partager