Discussion :

[wappymil]

Bonjour a tous

je travaille sous office 365


j'ai deux questions relative a la récupération d'informations d'un formulaire pour les placer dans l’entête d'un état

je vais essayer de m'expliquer

j'ai crée une série de requêtes en cascades via un formulaire et des zone de liste déroulante en cascade jusque la ok


je voudrais ensuite créer un état grâce au résultat de se formulaire,
mais je doit avoir comme entête les données saisie dans le formulaire et le résultat d'une requête

je développe

mon entête doit être rédigée comme suis


"valeur zone liste1 " "(" "resultat d'une requête" ")" "valeur zone liste2" "valeur zone liste3""valeur zone liste4"


j'ai mis en rouge lorsque se sont des valeur qui proviennent de zone de liste déroulante, en vert des caractère fixe et en bleu fonce une donnée qui vient d'une requête. ( la donnée de la requête est tj unique)

pour la cascade j'ai a chaque fois créer les codes vba suivant

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
Private Sub CmbListeLigne_AfterUpdate()
Me![CmbListeParcours].Requery
 
' metre a zero les valeur suivante
 
Me![CmbListeParcours].Value = ""
Me![CmbJoursPassage].Value = ""
Me![CmbPeriode].Value = ""
 
'creer texte box avec valeur de la requette numero ligne
'Me![TxtNumLigne].Requery
'Me![TxtNumLigne] = [requette.ReqNumeroLigne.Expr1].Value
 
 
End Sub

j'avais pensez de passer par un text box pour récupérer la valeur de la requête mais ça fonctionne pas
j'ai déjà ce problème la


d'avance merci beaucoup

charles

[loufab]

Bonjour,

Utilise la clause OpenArgs de la commande OpenReport/Form et la propriété éponyme de l'état/formulaire dans son évènement SurOuverture.

ça permet de faire passer des informations sans utiliser un bricolage avec des liens vers des controles extérieurs.

Cordialement,

[wappymil]

Bonjour,

Utilise la clause OpenArgs de la commande OpenReport/Form et la propriété éponyme de l'état/formulaire dans son évènement SurOuverture.

ça permet de faire passer des informations sans utiliser un bricolage avec des liens vers des controles extérieurs.

Cordialement,

bonjour et merci
mais oups dessole mais la, je décroche complétement peux-tu développer stp

[loufab]

l'appel

Code :

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

DoCmd.OpenReport "monEtat", , , , , "mon bagage à transmettre au format String"

la réception du contenu

Code :

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

1
2
3
4
5
6
Private Sub Report_Open(Cancel As Integer)
Dim strBagageOpenArgs As String
strBagageOpenArgs = Me.OpenArgs
'...traitement
 
End Sub

Si tu souhaites envoyé une chaine de plusieurs valeurs, utilise un string du type "valeur;valeur;valeur;..."

et un traitement split() pour créer un tableau de valeurs à l'arrivée. Tu trouveras split() et join() dans l'aide.

Si tu veux en savoir plus sur une commande un coup de F1 dessus ça marche très bien.

[wappymil]

avec un peu de retard MERCI