Discussion :

[yassine149]

Bonjour, je bloque sur un petit pb au niveau vba. Voici le détail:
Je dispose d'un formulaire de modification d'infos préalablement saisies.
Je souhaiterai que lorsque je choisis la date de saisie il m'affiche les données saisies sur les champs.
J'ai un champ auteur (de type texte). pour ce lui la j'arrive à récuperer l'auteur.
Par contre la où je bloque c'est que je dispose d'une zone de liste (sur laquelle on peut faire pusieurs choix) et j'arrive pas à bien écrire le code qui permetterait de choisir ceux rensigné parmi la liste proposée.
Si je suis pas trés clair voici un exemple
Exemple:
j'ai dans ma liste de zone des Codes: A , B et C
supposons que j'avais renseignés au 01/01/2007 les codes A et B
je souhaiterais en choisissant la date 01/02/2007 qu 'il met (en noir ou en ombré je sais pas cmt dire ça i.e itemselected.value!=NULL en gros) les champs A et B et le choix C reste en blanc.
Voici le code que j'essais d'écrire

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
 
Private Sub journee_gaziere_Change()
Dim rs As DAO.Recordset
 
'On récupére l'auteur
 
Set rs = CurrentDb.OpenRecordset("select  Auteur from Matable where Journee=#" & Madate & "#  ")
Me.Auteur = rs("Auteur")
 
'ce que j'arrive pas à écrire: 
 
choisir les champs déja renseignés 
pour tous les champs renseignés
mettre en valeur ce champ dans ma zone de liste
fin pour
 
 
End Sub

Merci beaucoup pour ceux qui pourront m'aider

[helas]

Voici comment sélectionner une valeur dans une zône de liste ,l'adapter pour plusieurs valeurs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
 colonne = 0
 For ligne = 0 To Me!ZoneDeListe.ListCount - 1
  If Me!ZoneDeListe.Column(colonne, ligne) = valeur Then
   Me!ZoneDeListe.Selected(ligne) = True
  Else
   Me!ZoneDeListe.Selected(ligne) = False
  End If
 Next i