Discussion :

[vincedjs]

Bonjour,

Voilà, j'ai 1 soucis lorsque je rempli une liste 'listecommandes'.

Avec 1 bouton j'appel 1 module:

Code :

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

1
2
3
Private Sub Commande0_Click()
Call date_cde
End Sub

Et donc mon module:

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
Option Compare Database
Dim rccombo As ADODB.Recordset
 
 
Public Sub date_cde()
Set rccombo = New ADODB.Recordset
 
rccombo.Open "COMMANDES", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
 
rccombo.MoveFirst
Do While Not rccombo.EOF
    Debug.Print rccombo.Fields(1)
    Form_date_commande_module.listecommandes.AddNew = rccombo.Fields(1)
    rccombo.MoveNext
Loop
End Sub

Et donc il me dit methode ou donnée introuvable en gros.
Je pense ca viens de la méthode utilisé, j ai essayé additem, rowsource,.. et rien n y fait.

[Invité]

Salut,

Quel ligne se met en erreur, s'il te plait

Starec

[vincedjs]

Form_date_commande_module.listecommandes.AddNew = rccombo.Fields(1)

[Arkham46]

slt,

n'essaye pas des noms de méthodes au hasard, ça peut durer longtemps...

(additem n'existe qu'à partir de la version 2002 d'access)

va voir la FAQ plutôt

[vincedjs]

C'est fait

[jean-paul lepetit]

Salut,

Essaies ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Sub date_cde()
Dim Contenu As String
Set rccombo = New ADODB.Recordset
rccombo.Open "COMMANDES", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
rccombo.MoveFirst
Do While Not rccombo.EOF
    Contenu = Contenu & rccombo.Fields(1)
    rccombo.MoveNext
    Contenu = Contenu & ";"
Loop
    Forms!Form_date_commande!Listecommandes.RowSource = Contenu
End Sub

[vincedjs]

Salut,

Essaies ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Sub date_cde()
Dim Contenu As String
Set rccombo = New ADODB.Recordset
rccombo.Open "COMMANDES", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
rccombo.MoveFirst
Do While Not rccombo.EOF
    Contenu = Contenu & rccombo.Fields(1)
    rccombo.MoveNext
    Contenu = Contenu & ";"
Loop
    Forms!Form_date_commande!Listecommandes.RowSource = Contenu
End Sub

Erreur d'éxécution '2450'
Impossible de trouver le formulaire 'Form_date_commande' auquel il est fait référence dans une expression de macro ..

[jean-paul lepetit]

Remplaces Form_Date_Commande, par le nom de ton formulaire....

[vincedjs]

pu d'erreur mais ma liste reste vide

[jean-paul lepetit]

Et lorsque tu avais mis le debug print, tu avais quelque chose dans la fenêtre d'execution ?

[vincedjs]

oui toutes les dates

[Arkham46]

type de la source de la zone de liste : "Liste de Valeurs"

[vincedjs]

idem

[jean-paul lepetit]

Je comprends pas, j'ai fait l'essai et ça marche chez moi....

Aprés le loop, rajoute une message box

Code :

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

MsgBox "Contenu " & Contenu

[vincedjs]

ca fonctionne, merci beaucoup