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 30 31 32 33 34 35 36 37
| Option Compare Database
Private Sub cmbDOSSIER_Click()
Dim lngIDDOS As Long
Dim SQL As String
'' Vérifie que l'on a cliqué sur une catégorie pour éviter le NULL
If Not IsNumeric(Me!cmbDOSSIER) Then Exit Sub
'' Affecte la valeur de IDCategorie à la variable lngIDDOS
lngIDDOS = Me!cmbDOSSIER
'' Construit la chaîne SQL avec la catégorie concernée
SQL = "SELECT IDWPT, IDENT FROM WAYPOINT WHERE IDDOS =" & lngIDDOS & ""
'' Affecte la chaîne SQL à la liste des moulins
cmbListe.RowSource = SQL
'' Me.Liste18.RowSource = SQL
'' Déverrouille la liste des moulins
cmbListe.Enabled = True
'' Donne le focus la liste des moulins
cmbListe.SetFocus
'' Déroule la liste des Liste
cmbListe.Dropdown
End Sub
Private Sub cmbListe_BeforeUpdate(Cancel As Integer)
End Sub
Private Sub cmbListe_Click()
Dim IIDWPT As Long
Dim SQL As String
Dim Result
IIDWPT = Me!cmbListe
SQL = "SELECT NOM, X, Y, ALT FROM WAYPOINT WHERE IDWPT =" & IIDWPT & ""
Me.Liste18.RowSource = SQL
End Sub |
Partager