Bonjour,
Il y 1 mois de cela avec l'aide immence de madefemer, j'ai crée un formulaire access qui contient des listes box et des textebox.
Ce formulaire fonctionne à merveille .
On me demande d'ameliorer ce formulaire .
je m'explique,
dans l'evenement open du formulaire, j'ai 4 listebox donc celui -ci :
je souhaiterais inserer dans mon formulaire , une case à cocher qui :
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 Private Sub Form_Open(Cancel As Integer) 'ListeBox_VracArrivee With Me.Liste_VracArrivee .ColumnHeads = True .ColumnCount = 7 ' nombre de colonne que doit avoir la listebox .BoundColumn = 1 ' la colonne de reference strSQLWHERE = "WHERE NOT SelectionArrivee AND NOT SelectionMiseAQuai AND NOT SelectionTerminee" strSQLWHERE1 = "WHERE tb_FrequenceLiaison.Frequence <> 'non reguliere' AND NOT SelectionArrivee AND NOT SelectionMiseAQuai AND NOT SelectionTerminee" strSQLORDERBY = "ORDER BY tb_FrequenceLiaison.Frequence DESC,tb_ProvDest.Nom_Ville, tb_Liaison.Heure_Theo;" 'trier par nom de ville et Frequence .RowSource = txt_ChaineSQL & _ strSQLWHERE & vbCrLf & _ strSQLORDERBY .Requery End With End If
case cocher : ma liste box ci dessous contient strSQLWHERE1 ( <> ma lise box ne contient pas les lignes "non reguliere")
case non cocher : ma lise box ci dessous contient strSQLWHERE ( ma lise box contient les lignes "non reguliere")
j'ai essayé ce code ci dessous mais il ne fonctionne pas dans l'évenement open du formulaire:
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 Private Sub Form_Open(Cancel As Integer) 'ListeBox_VracArrivee With Me.Liste_VracArrivee .ColumnHeads = True .ColumnCount = 7 ' nombre de colonne que doit avoir la listebox .BoundColumn = 1 ' la colonne de reference If Cocher_VracArrivee_Frequence.Value = -1 Then .RowSource = txt_ChaineSQL & _ strSQLWHERE1 & vbCrLf & _ strSQLORDERBY .Requery Else .RowSource = txt_ChaineSQL & _ strSQLWHERE & vbCrLf & _ strSQLORDERBY .Requery End If End With
Partager