Remplir Etat avec les données d'une requête

**emeraudes** · 29/05/2006, 12h05

Bonjour,

J'aimerais savoir comment remplir des champs d'un état avec le résultat d'une requête en VBA.
Sur le clique d'un bouton, je remplis un état avec une requête et je l'affiche.

J'ai trouvé ca comme code :

Code :

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

1
2
 
 DoCmd.OpenReport "EDP", acViewPreview, , "etNom = allo"

"EDP" c'est le nom du formulaire et "etNom" le nom du champs de l'état à remplir. Mais ca ne fonctionne pas

Aidez moi svpppp!
Merci

**FreeAccess** · 29/05/2006, 12h16

Bonjour,

Si ton état est basé sur une requête pourquoi ne pas baser celui-ci sur cette requête

Noramalement :

Code :

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

DoCmd.OpenReport "NomEtat", acViewPreview, "NomRequête"

En espérant avoir compris ton problème

**emeraudes** · 29/05/2006, 13h00

en fait je récupère les valeurs de la requêtes (plusieurs champs dans le select) et je les affiche dans des label différents sur l'état, donc je suis obliger d'affecter chaque champ à un label.

Mais comment faire ??

**Tofalu** · 29/05/2006, 17h16

Il faut passer les données à l'état via son argument OpenArgs et les récupérer dans son événement Open. Ou bien, lire les données depuis les requêtes directement depuis l'état, là encore dans son événement Open

**emeraudes** · 29/05/2006, 17h27

j'ai mis ce morceau de code mais ca ne marche pas
(c'est un test essayai de mettre 'allo' dans l'étiquette etNom)

Code :

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

1
2
 
DoCmd.OpenReport "EDP", acViewPreview, , , , "[etNom] = 'allo'"

est ce ca??

**emeraudes** · 30/05/2006, 13h45

j'ai même essayai ca mais ca ne fonctionne pas non plus

Code :

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

1
2
3
 
DoCmd.OpenReport "EDP", acViewPreview
Reports("EDP").Controls("etNom").Value = "allo"

aider moi svpppppppp

**philben** · 30/05/2006, 22h28

Bonjour,

Appeler l'état ainsi :

Code :

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

1
2
3
4
 
 
' le texte <allo> est passé en argument d'ouverture à l'état   
DoCmd.OpenReport "EDP", acViewPreview, , , , "Allo"

Sur l'évènement open de l'état, écrire en VBA :

Code :

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

1
2
3
4
5
6
7
 
 
Private Sub Report_Open(Cancel As Integer)
   If Not IsNull(Me.OpenArgs) Then
      Me.etnom.Caption = Me.OpenArgs
   End If
End Sub

Philippe

**philben** · 30/05/2006, 23h12

Je complète ma réponse pour passer plusieurs arguments :

Code :

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

1
2
3
4
5
 
 
Dim sMesArgs as string
sMesArgs = "Allo" & "|" & "Saphir" & "|" & "Diamant"
DoCmd.OpenReport "EDP", acViewPreview, , , , sMesArgs

Sur l'évènement open de l'état, écrire en VBA :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
Private Sub Report_Open(Cancel As Integer)
Dim asTmp() As String
If Not IsNull(Me.OpenArgs) Then
   asTmp = Split(Me.OpenArgs, "|")
   Me.etNom.Caption = asTmp(0)
   Me.Label2.caption = asTmp(1)
   Me.Label3.caption = asTmp(2)
End If
end sub