Bonjour,

Dans le code suivant, je remplis une zone de liste, mais à l'affichage, elle apparait à blanc; je pense qu'il s'agit d'un problème de rafraichissement mais je bute sur la façon de rafraichier depuis ce matin
Pouvez-vous m'aider ?

Merci

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
Private Sub MotDir_AfterUpdate()
Dim query As DAO.QueryDef
Dim Rec As DAO.Recordset
 
 
MotDir = UCase$(MotDir)
Set query = CurrentDb.QueryDefs("Recherche client alpha")
query.Parameters("param") = Forms![Recherche client]![MotDir]
 
test = query.Parameters("param")
 
Set Rec = query.OpenRecordset
 
If Rec.RecordCount = 0 Then
        MsgBox "Aucun client", vbInformation
     Else
DoCmd.OpenForm ("Affichage Recherche Alpha")
 
While Not Rec.EOF
    Forms![Affichage Recherche Alpha]!Liste2.RowSource = Forms![Affichage Recherche Alpha]!Liste2.RowSource _
    & Rec("Susp") & ";" & Rec("C30CPT") & ";" & Rec("C30AD1") & ";" & Rec("C30POS") & ";" _
    & Rec("C30AD5") & ";" & Rec("C30REP") & ";" _
    & Rec("C30LAN") & ";" & Rec("NOM") & ";"
 
    Rec.MoveNext
 
 Wend
 
 End If
 
End Sub