Discussion :

[El Bosc]

Bonsoir.

Je suis en train de développer une petite application de facturation.
Pour se faire, je dois calculer le montant d' une facture, d' un BL, d' une facture des BL émis pour un client.
Au départ, j' ai trois formulaires:
un formulaire création d' une facture soit F1
un formulaire modification d' une facture soit F2
un formulaire de facturation des BL d' un client soit F3.
Les calculs dans les trois cas sont les même. Seul les critères diffèrent à savoir:
Cas 1: Clé de préparation=F1!Clé de préparation
Cas 2: Clé de préparation=F2!Clé de préparation
Cas 3: Clé de préparation=F3!Clé de préparation
Plutôt que d' avoir trois procédures distinctes et sachant que le code SQL est dans le code VBA, peut-on récupérer le nom du formulaire déclanchant cette procédure et l' utiliser comme paramètre.
Exemple:

Code :

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

1
2
NomFormulaire=Forms(0).Name
Requête="select.....Clé_préparation=NomFormulaire!Clé_Préparation;"

Quand pensez-vous?

Cordialement

[Robert1957]

Bonjour El Bosc,

Tu peux le passer en argument dans ta fonction ou sub au moment de l'appel:

Code :

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

1
2
3
Sub Requete(numR As String)
 
End Sub

ou numR serait la valeur de ton formulaire.

Bonne journée

[El Bosc]

Bonsoir,

Je dois mal utiliser votre solution car j' obtiens un message d' erreur. Voici une requête exemple/

Code :

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

1
2
3
SELECT T_BdrLv.Cf_BL, T_BdrLv.Cf_Clt, T_BdrLv.DtBL
FROM T_BdrLv
WHERE (((T_BdrLv.Cf_Clt)=[Formulaires]![F_DtnFctBLFct]![Cf_Clt]));

En fait, seule la partie "[Formulaires]![F_DtnFctBLFct]" est différente suivant l' origine de l' appel de procédure.
Suivant votre argument numR, je lui demande de trouver le nom du formulaire actif. Ensuite, j' ai tenté de l' in sérer dans la requête mais sans succés.
Voir code ci-dessous.

Code :

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

1
2
3
4
5
6
7
8
Public Sub Requete(NmR As String)
Dim Rqt As String
NmR = Forms(2).Name
MsgBox NmR 'Cette boite ne sert qu' à vérifier le nom du formulaire
Rqt = "SELECT T_BdrLv.Cf_BL, T_BdrLv.Cf_Clt, T_BdrLv.DtBL FROM T_BdrLv " & _
         "WHERE (((T_BdrLv.Cf_Clt)=NmR!Clt));"
DoCmd.RunSQL Rqt
End Sub

Merci de m' expliquer mon erreur

[Robert1957]

Bonjour El Bosc,

Code :

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

"WHERE (((T_BdrLv.Cf_Clt)=" & NmR & "!Clt));"

En supposant que c'est numérique.

Mais la solution que je te proposais: Quand l'appel de la procédure est faite tu es sur le formulaire, tu as déjà la liste qui fait ta clé de préparation alors tu fais:

Code :

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

Requête Me.TaListeCléDePréparation

Et dans la procédure:

Code :

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

1
2
3
4
5
6
7
8
Public Sub Requete(NmR As String)
Dim Rqt As String
 
MsgBox NmR 'Cette boite va vérifier la clé de préparation
Rqt = "SELECT T_BdrLv.Cf_BL, T_BdrLv.Cf_Clt, T_BdrLv.DtBL FROM T_BdrLv " & _
         "WHERE (((T_BdrLv.Cf_Clt)=" & NmR & "));"
DoCmd.RunSQL Rqt
End Sub

Bonne journée

[Tofalu]

RunSQL n'accepte que les requêtes actions ou DDL

[Robert1957]

Bonjour El Bosc, Christophe,

Encore une fois dans le vrai Christophe. Il n'y a vraiment rien qui t'échappe . Désolé El Bosc mais ma réponse n'est plus bonne. La solution qui me vient à l'esprit serait, en supposant que tu as une requête enregistrée, de reconstruire ta requête à chaque fois avec:

Code :

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

1
2
3
    Set db = CurrentDb
    Set qdf = db.QueryDefs("TaRequête")
    qdf.SQL = Rqt

Ainsi elle prendrait les bons paramètres à chaque fois que tu lancerais ta procédure.

Tu pourrais aussi affecter la valeur de la requête ainsi créer comme suit, disons à une liste:

Code :

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

Me.Liste.RowSource = Requête (Me.TaListeCléDePréparation)

Il faudrait que tu modifies ta procédure pour en faire une fonction:

Code :

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

1
2
3
4
5
6
7
8
Public Function Requete(NmR As String) As String
Dim Rqt As String
 
MsgBox NmR 'Cette boite va vérifier la clé de préparation
Rqt = "SELECT T_BdrLv.Cf_BL, T_BdrLv.Cf_Clt, T_BdrLv.DtBL FROM T_BdrLv " & _
         "WHERE (((T_BdrLv.Cf_Clt)=" & NmR & "));"
Requete = Rqt
End Function

Bonne journée

[El Bosc]

Bonjour,

Je teste et torture votre solution sans succès. J' obtiens toujours lors de l' exécution pas à pas, le message suivant:
Une action executerSQL nécessite un argument consistant en une instruction SQL.
Pour info, le code tel que je l' ai testé:

Code :

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

1
2
3
4
5
6
7
8
9
Public Sub Requete(NmR As String)
Dim Rqt As String
NmR = Forms(1).Name
MsgBox NmR
Rqt = "SELECT T_BdrLv.Cf_BL, T_BdrLv.Cf_Clt, T_BdrLv.DtBL FROM T_BdrLv " & _
         "WHERE (((T_BdrLv.Cf_Clt)=" & NmR & "!Cf_Clt));"
DoCmd.RunSQL Rqt
 
End Sub

Les clé Cf_Clt sont tout les deux numérique

Cordialement

[Robert1957]

Bonjour El Bosc,

C'est parce que tu ne peux pas effectuer :

Code :

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

DoCmd.RunSQL Rqt

Comme le disait Christophe le DoCmd n'accepte pas les requêtes sélections.

Bonne journée

[El Bosc]

Bonjour,

En définitive, il n' y a pas de solution à ce problème. Dommage, cela aurait raccourci considérablement mes procédures. Bon, après, ce n' est pas bien grave dans la mesure ou les temps d' exécution sont très courts.
Merci encore de votre aide et bonne continuation

Cordialement