Discussion :

[pal017]

Bonjour,
Je lance aujourd'hui plusieurs requêtes à partir de la saisie d'un champ dans un formulaire.
Je souhaiterai désormais avoir 2 formulaires et lancer ces mêmes requêtes à partir de la saisie du même type de champ texte mais rempli dans un formulaire ou dans un autre.

Aujourd'hui, j'ai modifié mes requêtes avec comme critère ci-dessous mais j'ai un pop-up "Entrer une valeur de paramètre" car un des champs est évidemment vide.

Code :

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

(((Mon champ cible)=[Formulaires]![frm_Main]![txtChamp1] Or (Mon champ cible)=[Formulaires]![frm_Main2]![txtChamp2]));

J'ai testé aussi mais même problème

Code :

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

vraifaux ((((Mon champ cible)=[Formulaires]![frm_Main]![txtChamp1] est null;(Mon champ cible)=[Formulaires]![frm_Main2]![txtChamp2]));(Mon champ cible)=[Formulaires]![frm_Main]![txtChamp1])

J'ai aussi mis en amont des mes requêtes DoCmd.SetWarnings False pour enlever les msgbox mais ça n'empêche pas le "Entrer une valeur de paramètre"

Mes requêtes fonctionnent bien de manière dissocier si je mets l'un ou l'autre champ critère [Formulaires]![frm_Main]![txtChamp1] ou [Formulaires]![frm_Main2]![txtChamp2].

Comment puis-je procéder svp ? (je ne suis pas une bête de course en Access...)
Il faudrait créer une sorte de paramètre qui serait créé à partir de la saisie et faire pointer les requêtes sur ce paramètre ?
Si oui comment procéder svp ?

Merci d'avance

[marot_r]

Bonjour.

Pour faire ce que tu utilises le formulaire doit être ouvert c'est ce qui explique le problème.

En standard je ne pense pas qu'il y ai de solution.

Ici une idée avec un peu de code VBA.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
public function LireParam() as string
   dim result as string:result='PasDeFormulaireOuvert"
 
   if currentProject.AllForms("frm_Main").IsLoaded then
       result=forms![frm_main]![txtChamp1]
   end if
 
   if currentProject.AllForms("frm_Main2").IsLoaded then
       result=forms![frm_main2]![txtChamp2]
   end if
 
   LireParam=resut
end function

et come critère tu mets :

Code :

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

=LireParam()

Acces va appeler la fonction qui elle-même va regarder si les formulaires sont ouverts et lire la valeur.
J'ai supposé que les formulaires n'étaient jamais ouvert tous les 2 ne même temps, sinon tu vas toujours avoir le choix du second.

A+

[tee_grandbois]

bonsoir,
Autre solution:
charger le paramètre via la définition de la requête. Il faut laisser le critère comme cela:

Code :

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

(Mon champ cible)=[Formulaires]![frm_Main]![txtChamp1]

ou même:

Code :

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

(Mon champ cible)=[QuelleValeur]

ensuite dans n'importe quel formulaire, on peut charger le paramètre et exécuter la requête comme cela:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim Qdf As DAO.QueryDef
Dim PNomReq As String
 
PNomReq = "NomdelaRequete"
 
Set Qdf = CurrentDb.QueryDefs(PNomReq)
Qdf.Parameters(0).Value = Me.txtChamp1     'chargement paramètre
Qdf.Execute     'exécution de la requête
 
Set Qdf = Nothing

[marot_r]

Bonjour tee_grandbois.

Ta solution fonctionne seulement si c'est une requête d'action, pas une requête de sélection, n'est-ce pas ?

A+

[tee_grandbois]

bonjour marot_r,
je dirais: pas seulement, bien que, évidemment, pour les requêtes sélection il faut un Openrecordset à la place d'un Execute (on pourrait même tester le type de la requête pour, soit exécuter, soit ouvrir un recordset) :

Code :

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

1
2
3
4
5
6
7
8
9
Dim Ors as recordset
Dim Qdf As DAO.QueryDef
Dim PNomReq As String
 
PNomReq = "NomdelaRequeteSelection"
 
Set Qdf = CurrentDb.QueryDefs(PNomReq)
Qdf.Parameters("Quellevaleur").Value = Me.Monparam     'chargement paramètre
Set ors = Qdf.OpenRecordset

mais le principe du paramètre est le même.

[marot_r]

Ok, Merci.