Discussion :

[gorjette]

Bonjour,

J'essais d'ouvrir et d'alimenter un État à partir des données contenues dans les champs d'un formulaire actif. En cliquant sur un bouton dans le formulaire, un État (cotations) s'ouvre et ses champs sont remplis avec les données du formulaire...

Seulement, le passage d'un listbox formulaire, à un listbox État ne fonctionne plus (il a déjà fonctionné).

Code :

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

Reports!cotations!Liste47.RowSource = Forms!depot!Liste92.RowSource

Le message d'erreure est le suivant: La méthode 'Item' de l'objet 'Reports' a échoué.

Merci pour vos idées.
Gorj

[Invité]

Bonjour

Seulement, le passage d'un listbox formulaire, à un listbox État ne fonctionne plus (il a déjà fonctionné).

C'est à dire "a déjà fonctionné" ? En effet, une listbox n'a aucun intérêt sur un état.

Si on veut filtrer un état par rapport à des données, on gère en général cela par la clause Where de la méthode DoCmd.OpenReport qui permet d'ouvrir un état.

Peux-tu donc détailler, et indiquer ta version d'Access.

Philippe

[gorjette]

La clause where de DoCmd.OpenReport, intéressant..!
Voici mon code... J'ouvre mon rapport et ensuite j'essais de passer le contenu de mon listbox... Le reste est demandé par le rapport directement (genre: text120 = Forms!depot!texte222).

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
 
Private Sub Command40_Click()
'État cotation ouverture
On Error GoTo Err_Command40_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "Cotations"
    DoCmd.OpenReport stDocName, acViewReport
 
Reports!cotations!Liste47.RowSource = Forms!depot!Liste92.RowSource
 
Exit_Command40_Click:
    Exit Sub
Err_Command40_Click:
    MsgBox Err.Description
    Resume Exit_Command40_Click
End Sub

Vous voyez, la ligne du centre a déjà fonctionné.
Je m'intéresse à votre clause "Where" du DoCmd...

Access 2010.
Cordialement,
Merci
Jeff

[gorjette]

si vous jetez un coup d'oeil, est-ce que vous y voyez une erreure?