Bonjour,
J'ai un formulaire (frmStage2) lié à une table, qui contient 2 ListBox indépendant
La première listbox, ListeMois, contient une liste de dates.
Quand je clique dessus elle met à jours la 2ieme, ListeStage, par un requery
La 2ieme ayant comme sourcecontrol (elle se sert de la première liste):
et tout marche très bien ...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 SELECT tblStage.IdStage, [ChuFormation] & " / " & [WebFormation] AS RefFormation, tblFormation.LibelleFormation FROM tblFormation INNER JOIN tblStage ON tblFormation.IdFormation = tblStage.IdFormationStage WHERE (((Format([DateAffectationStage],"mmm yyyy"))=[Formulaires]![frmStage2]![ListeMois])) ORDER BY tblStage.DateAffectationStage;
Là où ça se complique :
Depuis ce premier formulaire j'en ouvre un 2ieme qui me permet d'ajouter des données dans le premier ...
et quand depuis le 2ieme je tente d'actualiser le premier et bien ça marche pas :
code du 2ieme formulaire :
si je veux que la 2ieme liste soit à jour je doit cliquer sur la 1ere ... et j'aurais voulu qu'elle soit à jour par le code ...
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
25
26
27
28
29
30
31
32 Private Sub CommandeAjouter_Click() On Error Resume Next 'Ajout d'un l'enregistrement (ds la table du 1er formulaire) : ok DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO tblStage ( IdFormationStage, DateAffectationStage ) SELECT " & Me.ListeFormation.Value & " AS NumForm, #" & Format(Me.TexteDate, "mm/dd/yyyy") & "# AS DateStage;" DoCmd.SetWarnings True strDate = Format(Me.TexteDate, "mmm yyyy") 'Fermeture du 2ieme formulaire DoCmd.Close 'maj de la source du 1er formulaire : ca marche Forms("frmStage2").Requery 'maj de la premiere liste : ca marche Forms("frmStage2").ListeMois.Requery 'sélection d'un élément de la 1ere liste : ca marche Dim x As Long For x = 0 To Forms("frmStage2").ListeMois.ListCount - 1 If strDate = Forms("frmStage2").ListeMois.ItemData(x) Then Forms("frmStage2").ListeMois.Selected(x) = True End If Next x 'maj de la 2ieme liste ca marche pas Forms("frmStage2").ListeStage.Requery end sub
Merci de votre aide
Partager