Discussion :

[Leimi]

Bonjour,

J'ai une listbox que je remplis en parcourant un recordset sur le load de mon formulaire.
Depuis un autre formulaire je modifie une table qui change le résultat de mon recordset.
J'aimerais mettre ma listbox à jours depuis cet autre formulaire mais je ne peut pas faire de requery puisque ma listbox est en mode liste de valeurs.
Il faudrais que je puisse atteindre la fonction qui initialise ma listbox mais je n'y arrive pas.


Merci

remplissage de ma listbox

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
33
34
35
36
37
 
Private Sub ref()
Dim rs As Recordset
Dim CodeDe As Integer
Dim codeM As Integer
 
Set rs = CurrentDb.OpenRecordset("select DEMARCHE.CodeDem,NumPlis,DateDem,DateRet, _
DEMARCHE.CodeEnt,RaisonSocialeEnt,MARCHE.CodeMarche, _
NumLot,LibLot from ENTREPRISE,DEMARCHE,Viser,MARCHE _
where DEMARCHE.CodeAo=" & Me.OpenArgs & " and _ 
ENTREPRISE.CodeEnt=DEMARCHE.CodeEnt and _
DEMARCHE.CodeDem=Viser.CodeDem and _
Viser.CodeMarche=MARCHE.CodeMarche order by NumPlis,NumLot")
 
If Not rs.EOF Then
    Me.CodeDem.RowSource = "  ; N° ; ; Entreprise ; Date demande ; Date retrait ; ; N°Lot ; Lot"
End If
 
CodeDe = 0
While Not rs.EOF
    If CodeDe <> rs.Fields("CodeDem") Then
        Me.CodeDem.RowSource = Me.CodeDem.RowSource & ";" & rs.Fields("CodeDem") _
 & ";" & rs.Fields("NumPlis") & ";" & rs.Fields("CodeEnt") & ";" & _
rs.Fields("RaisonSocialeEnt") & ";" & rs.Fields("DateDem") & ";" & _
rs.Fields("DateRet") & ";" & rs.Fields("CodeMarche") & ";" & rs.Fields("NumLot") _
& ";" & rs.Fields("LibLot")
        Else
        Me.CodeDem.RowSource = Me.CodeDem.RowSource & ";" & _
rs.Fields("CodeDem") & "; ;" & rs.Fields("CodeEnt") & "; ;" & _
rs.Fields("DateDem") & ";" & rs.Fields("DateRet") & ";" & _
rs.Fields("CodeMarche") & ";" & rs.Fields("NumLot") & ";" & _
rs.Fields("LibLot")
    End If
    CodeDe = rs.Fields("CodeDem")
    rs.MoveNext
Wend
End Sub

Edit : Correction du code, lignes trop longues. Loufab

[loufab]

Bonjour,

Pourquoi ne pas mettre cet appel sur la réception du focus du formulaire ?

Il se mettra à jour lorsque de form2 tu reviendras sur le form1.

Cordialement,