Discussion :

[zebi42]

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

[Lou Pitchoun]

Salut,

Tu veux faire quoi exactement. Parce que j'ai l'impression que tu te compliques la vie pour rien.

MotDir correspond à quoi ? Liste, champ ??

Si tu veux affecter une source à une liste déroulante en focntion d'une valeur saisie dans un champ texte je te conseille la manipulation suivante :
Un champ texte, un bouton, la liste.
Sur clic du bouton :

Code :

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

1
2
3
4
5
Me.Lst_Resultat.RowSource = "Ta chaine SQL"
If Me.Lst_Resultat.ListCount = 0 Then
    MsgBox "Il n'y a pas de résultats pour la recherche suivante :" & vbLf & Me.Recherche, vbExclamation
    Me.Recherche.SetFocus
End If

[zebi42]

Motdir est un champ de formulaire qui est passé en paramètre à ma requête.
Je souhaite afficher le résulta de ma requête dans un zone de liste

[Lou Pitchoun]

Alors le code que je t'ai fourni est tout indiqué
Lst_Resultat = liste déroulante
Recherche = champ texte (pour toi MotDir)

Tu as juste à mettre le SQL de ta requête et à le modifier pour récupérer la valeur du champ MotDir
Exemple :

Code :

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

Me.Lst_Resultat.RowSource = "SELECT Nom FROM Client WHERE Nom Like " & Chr(34) & Chr(42) & Me.Recherche & Chr(42) & Chr(34)"

[zebi42]

Merci beaucoup, Je fais un essai