Discussion :

[gui-llaume]

Bonjour ,


je souhaite editer un etat qui s'appuie sur une requete.
Dans cette requete, il manque certains champs (date) qui sont demandés automatiquement par la machine à l'execution a travers une inputbox.
Comment récupérer les infos saisies a ce moment la dans une variable ?
ou alors , comment appeler l'etat pour que la requete s'execute avec une variable saisie ?

merci de votre aide .

[le_niak]

Bonjour,

Tu peux exécuter ta requete en VBA et donc utiliser une variable pour l'input.

Par exemple, sur le clique d'un bouton tu executes ta requete.

Code :

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

1
2
3
4
 
Dim Variable as String
 
Variable = InputBox("Question?")

[gui-llaume]

Bonjour,

Tu peux exécuter ta requete en VBA et donc utiliser une variable pour l'input.

Par exemple, sur le clique d'un bouton tu executes ta requete.

Code :

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

1
2
3
4
 
Dim Variable as String
 
Variable = InputBox("Question?")

ca c'est OK. c'est la suite qui me pose probleme :
appeller l'etat avec une requete qui reprend la variable .
a la base, mon etat est lié a la requete en question.
est ce une condition dans le code

Code :

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

DoCmd.OpenReport

ou alors faut il que je modifie mon état pour que les champs reprennent la valeur de la variable ?

[gui-llaume]

précision du cas :

code pour appeller l'etat

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub btn_edition_Click()
 
Dim dateenvoi As Date
 
 
'update date d'envoi des docs a editer
 
dateenvoi = InputBox("Entrez la date d'envoi des documents", "SAISIE", Date)
DoCmd.RunSQL ("UPDATE contrat,annexe set dateenvoicontrat = " & dateenvoi & " ," & _
                " dateenvoiannexe = " & dateenvoi & " where dateenvoicontrat is  null and dateenvoiannexe is  null")
 
DoCmd.OpenReport "contrat DN", , ???

en fait, mon but est d'ouvrir l'etat en question avec uniquement les résultats de la requete pour laquelle dateenvoiannexe et dateenvoicontrat = dateenvoi (saisie)


la requete de l'état :

Code :

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

1
2
3
4
SELECT client.CDCLIENT, contrat.cdcontrat, annexe.cdannexe, annexe.typeannexe, services_annexe.cdservice, service.typeservice, RIB.IDRIB, acteur.CDACTEUR, acteur.NOM, acteur.ADRESSE, acteur.CP, client.RS, client.NOM, client.ADR1, client.ADR2, client.ADR3, client.CP, client.VILLE, contrat.dateintegrationcontrat, annexe.dateintegrationannexe, RIB.BQNOM, RIB.ETAB, RIB.GUICHET, RIB.NUMCPT, RIB.CLE, service.natureservice, service.descrservice, service.pdtservice, service.PUservice, services_annexe.qteservice, services_annexe.date_debut, services_annexe.date_fin, acteur.VILLE, contrat.typecontrat, service.modaliteremuservice, [client.nom] & [contrat.cdcontrat] & [annexe.cdannexe] & [caractereindex] AS [index]
FROM [index], service INNER JOIN (((((acteur INNER JOIN client ON acteur.CDACTEUR = client.[CODE ACTEUR]) INNER JOIN contrat ON client.CDCLIENT = contrat.cdclient) INNER JOIN annexe ON contrat.cdcontrat = annexe.cdcontrat) INNER JOIN RIB ON client.CDCLIENT = RIB.CDCLIENT) INNER JOIN services_annexe ON annexe.cdannexe = services_annexe.cdannexe) ON service.typeservice = services_annexe.typeservice
WHERE (((services_annexe.qteservice)<>0) AND ((contrat.typecontrat)="C-DN") AND ((contrat.dateenvoicontrat) Is Null) AND ((annexe.dateenvoiannexe) Is Null))
ORDER BY acteur.CDACTEUR, [client.nom] & [contrat.cdcontrat] & [annexe.cdannexe] & [caractereindex], contrat.cdcontrat, annexe.cdannexe, service.typeservice;

en rouge , la partie de la requete qui auparavant ne prenait que les champs vides mais que je viens de remplir par la commande update.

en gros , c'est soit j'update les champs avant la requete , soit j'execute la requete et je récupere les valeur saisies pour les champs vide !!!

[DMboup]

Tu peux enlever la partie rouge de ta requête. Et en ouvrant ton état après la saisie de la date voulue tu ouvre ton état sur les enregistrements souhaité avec

Code :

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

1
2
3
 
 
DoCmd.OpenReport "contrat DN", , ,"[dateenvoicontrat] =  " & format(TaVariable;"mm.dd.yyyy")

[gui-llaume]

Tu peux enlever la partie rouge de ta requête. Et en ouvrant ton état après la saisie de la date voulue tu ouvre ton état sur les enregistrements souhaité avec

Code :

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

1
2
3
 
 
DoCmd.OpenReport "contrat DN", , ,"[dateenvoicontrat] =  " & format(TaVariable;"mm.dd.yyyy")

merci pour ta réponse, c'est exactement ce que je cherchais , la syntaxe du openreport !

malheureusement , je me suis rendu compte entre temps que le besoin fonctionnel est d'éditer l'etat tel quel avec la requete existante.
a l'edition , il va me demander mes date d'envoi pour renseigner les champs de l'état. et en fait , ce sont ces données que je veux récupérer pour ensuite faire la commande update pour mettre a jour les enregistrements.

Code :

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

1
2
3
4
5
6
7
oCmd.OpenReport ("contrat DN")
 
' a l'ouverture, l'interface access me demande les champs dateenvoiannexe et dateenvoicontrat qui sont a null pour editer l'etat
' je souhaite récupérer les valeurs entrées ici pour les utiliser dans la ligne suivante
 
DoCmd.RunSQL ("UPDATE contrat,annexe set dateenvoicontrat = " & dateenvoi & " ," & _
                " dateenvoiannexe = " & dateenvoi & " where dateenvoicontrat is  null and dateenvoiannexe is  null")