Bonjour,
C vrai que la soluce que j'ai proposé (mais pas testé, oups!) a un petit problème. Je teste !
A+
Salut,
Bonjour,
C vrai que la soluce que j'ai proposé (mais pas testé, oups!) a un petit problème. Je teste !
A+
Salut,
Bonjour le motard (?!)
Mes requêtes de calcul doivent réagir de la manière suivant :
Si FRM Fourgen est ouvert, trier les enregistrement correspondants au fournisseur sélectionné. (=la page de FRM ouverte)
Si FRM Cliengen est ouvert, trier les enregistrement correspondants au client sélectionné.
Si aucun des 2 FRM ouvert, ne pas effectuer de tri et faire calcul sur tous les enregistrements.
Le souci est que je suis une vrai bille en SQL ou VBA et que je n'arrive pas à saisir la logique des codes que vous me donnez...
La fonction proposé par Trini te permet d'avoir ou non une condition supplémentaire dans ta requete en fonction de l'ouverture ou non d'un formulaire, donc si le formulaire n'est pas ouvert la fonction te renvoie "true" ce qui regle ton probleme de boite de msg à remplir, puisque access ne vois pas de critere, dans ta requete, avec des noms des formulaires qui ne sont pas chargé.
Re,
Correctif à partir de la remarque de Fazerman (le motard?).
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 SELECT data_base.coordinateur FROM data_base WHERE CritereChoixCoordinateur( data_base.coordinateur )=true ;Désolé pour la coquille !
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
16
17
18
19 ' ' Critere si Frm Client ouvert ' Public Function CritereChoixCoordinateur(pValeur) as boolean ' Appel de la fonction IsLoaded If IsLoaded("choix_coordinateur") Then ' retourne Vrai si ouvert/chargé Select Case Forms.choix_coordinateur.statut Case 1 CritereChoixCoordinateur = (Frms.choix_coordinateur.coordinateur = pvaleur ) End Select Else CritereChoixCoordinateur = true ' ou CritereChoixCoordinateur = false ' pour n'afficher aucun enregistrement si le formulaire n'est pas ouvert, c'est au choix. End If End Function
Sinon
Neuro, C vrai que cette soluce n'est peut-être pas évidente mais j'espère qu'en lisant l'exemple + simple de Fazerman, cela t'aide un peu quand même.Le souci est que je suis une vrai bille en SQL ou VBA et que je n'arrive pas à saisir la logique des codes que vous me donnez...
Salut,
Je me colle au problème asap.
Si vous n'entendez plus parler de moi, c'est que je suis mort de désespoir et occupé à multiplier mes requêtes pour chaque cas de figure...
@+
Neuro
J'ai un message d'erreur :
sur la lignePropriété ou méthode non gérée par cet objet
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 CritereChoixCoordinateur = ([Forms].[choix_coordinateur].[coordinateur] = pValeur)
C'est bon fallai juste mettre
Merci Trini.
Code : Sélectionner tout - Visualiser dans une fenêtre à part [Forms]![choix_coordinateur].[coordinateur]
Et bon courageà toi neuro
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager