Afficher une table selon les critères d'une liste

**Claudine** · 02/12/2010, 16h30

Bonjour à tous
Le formulaire''Commande"
Si je clic sur la 'ListeTypeClients' et que je sélectionne(Ecole) un deuxième clic dans TypeClients fait apparaître "Ecole".
Dès L'apparition de"Ecole", J'aimerais faire apparaître la Table[TabCommandeEcole] dans mon formulaire''Commande"
Idem pour "Mutuelle" apparition de la table [TabCommandeMutuelle]
J'ai essayer avec macro, mais je n'arrive pas à trouver la procédure dans le code
Pouvez-vous m'aider? je travaille avec access2000
Sincères remerciements
Claudine

**ClaudeLELOUP** · 02/12/2010, 16h33

Bonjour,

tu parlais d'une pièce jointe ?

**ClaudeLELOUP** · 02/12/2010, 16h47

Tu dois zipper pour pouvoir poster.
Attention, je peux seulement t'aider si ta BDD est compatible Access2000.

**Claudine** · 02/12/2010, 17h26

Bonsoir ClaudeLeloup
Merci pour le renseignement.
Ce projet de base de données est réalisée avec Access2000
Merci pour votre aide car c'est un projet qui me tiens à coeur de réaliser malgré ma faible connaissance en VB
Claudine

**ClaudeLELOUP** · 02/12/2010, 17h39

Voici le code pour l'événement sur clic

Code :

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

1
2
3
4
5
6
Private Sub TypeClients_Click()
Me.TypeClients = Me.Modifiable18.Value
If Me.TypeClients.Value = "Ecole" Then
      DoCmd.RunMacro "Macro1"
End If
End Sub

Reviens si autre problème.

**Claudine** · 03/12/2010, 11h05

Bonjour Claude Leloup,
Merci pour le code qui fonctionne à merveille.
Par la même occasion pouvez-vous m'aider car je bute de nouveau sur une ligne de code:
J' ai ajouté à ma bddessai12 une table "ListeProduits" dans laquelle je trouve les champs[DescriptionProduit],[PrixUnit],[PrixMutuelle],[PrixEcole](Ces deux derniers sont différents pour un même produit)
J'ai ajouter dans le formulaire"Commande" une zone de texte''PrixRistourné" dans laquelle j'aimerais afficher le prix par exemple de "Cougnou250gnature" si le TypeClients affiche"Ecole" Voici ma ligne de code:

Code :

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

If [TypeClients] = "Ecole" And [DescriptionProduit] = "Cougnou250gnature" Then [PrixRistourné] = [Tab]![ListeProduits]![PrixMutuelle]

Message: il ne reconnait pas le champ [PrixMutuelle] de ma table:ListeProduits
Je rappelle que j'utilise Access2000
D'avance, je vous remercie pour votre aide précieuse.
Claudine

**ClaudeLELOUP** · 03/12/2010, 11h58

Bonjour Claudine,

Je réponds à ta question.

Voici le code :

Code :

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

1
2
3
If Me.TypeClients = "Ecole" And Me.DescriptionProduit = "cougnou250gnature" Then
    Me.PrixRistourné = DLookup("prixMutuelle", "ListeProduits", "DescriptionProduit =""" & Me.DescriptionProduit & """")
End If

Mais je te garantis que ce n’est pas la bonne méthode !

Veux-tu poster ta BDD actuelle (avec les tables complétées et formulaires) et un mot d’explication de ce que tu voudrais voir dans ton formulaire « Commande ».
Nous pourrons ainsi dialoguer sur du concret.

**Claudine** · 03/12/2010, 18h27

Bonsoir ClaudeLeloup
J'ai essayé ton code qui ne donne pas d'erreur mais qui n'affiche rien!
Aussi, j'ai procédé avec une liste avec plusieurs colonnes qui m'attribue les différentes valeurs par clic dans les zones de texte concernées.
Tout parraît fonctionner normalement.
Si je vous ai demandé par code direct, c'est pour exploration des différentes méthodes possibles. Dans le cas ou vous m'indiquez une autre méthode , je vous en serais gré car je ne demande qu'à apprendre étant donné que j'estime que c'est passionnant la programmation
Je veux tout simplement dès que je sélectionne par exemple comme typeClient: Ecole et sélection d'un typeProduit dans la liste :ex: Cougnou250gnature que par un simpleClic dans les zones texteappropriées ,ces valeurs s'affichent car je prévois un état pour établir la facture.
Sincères remerciements pour votre aide
Claudine

**ClaudeLELOUP** · 03/12/2010, 20h30

Quelques remarques en vrac

J'ai essayé ton code qui ne donne pas d'erreur mais qui n'affiche rien!

Eh là-bas, avant d'envoyer, je teste.
--> ce code doit se trouver dans l'événement "sur activation" (current) et réveillé après mise à jour des champs typeClients et/ou Modifiable18
--------------------------
Dans Outils/Options.../onglet Général --> cocher compacter lors de la fermeture.
Prends l'habitude de le faire systématiquement.
-----------------------------

m'indiquez une autre méthode

Je prépare
-----------------------------
A combien cougnou250grJesusEnSucre ... pour une école ?

**ClaudeLELOUP** · 03/12/2010, 22h15

Vois la BDD en annexe qui pourrait nous servir de base pour la suite du dialogue.
-------------------
tTypeClients

J’ai un champ colonnePrix qui indique le N° de la colonne de la table ListeProduits, où se trouve le prix appliqué à ce type de client.
-------------------
Considère le formulaire fCommande.
Vois les propriétés de chacun des contrôles.
Si tu veux te documenter sur une propriété, tu places le curseur sur cette propriété et tu enfonces <F1> : l’aide Access s’ouvre à la bonne page.
--------------------
Quelques cas un peu plus difficiles

propriété Valeur initiale de [ZdlTypeClient] : =[ZdlTypeClient].[ItemData](0) veut dire la 1ère valeur de la liste. (0) car Access commence sa numérotation à Zéro. La 3ème ligne s’indiquerait (2).
-----------
ZdtColPrix
Ce champ a une utilité technique, tu positionneras sa propriété visible à NON.
source =[ZdlTypeClient].column(2) veut dire prendre la 3ème colonne de la donnée sélectionnée dans [ZdlTypeClient], c’est à dire celle qui indique, dans notre cas, où trouver le prix.
------------
Source contrôle de zdtPrix : =[ZdlProduit].column([ZdtColPrix]-1)
Veut dire se référer à une colonne de [ZdlProduit] , Access va considérer la colonne = ce qu’il trouve dans [ZdtColPrix] -1

Reviens si tu n'as pas tout compris.
Je t'attends pour la suite.

**Claudine** · 05/12/2010, 11h26

BonjourClaudeLeloup,
Cette nouvelle méthode me paraît géniale et je me rends compte que je ne connaît pas grand chose Bref, je sens que grâce à votre aide je vais progresser sérieusement d'autant plus que vos explications sont précises.
Chaque chose en son temps, j'aimerais d'abord revenir sur la ligne de code précédente qui même si elle n'est pas idéale, elle me permet de mieux comprendre le fonctionnement. De plus, je ne doute pas un instant que avant d'envoyer, vous testiez le dit code.
N'oubliez surtout pas que vous avez affaire à un amateur du dimanche et loin de vos compétences en programmation mais malgré tout en progressant et en prenant bonne note de vos conseils , j'ai réussi à faire apparaître le prix ristourné mais il y a un problème:
-En effet, ce prix ristouné n'apparaît que si je repasse à l'enregistrement précédent pour revenir ensuite à l'enregistrement concerné et cliquer sur le montant Total pour terminer
-Pour l'enregistrement suivant la case PrixRistourné reste affichée du Prix de l'enregistrement précédent et m'empêche de poursuivre ou alors je dois l'effacer de suite avant le choix du TypeClients et la suite
Je joins ma BDDEssai12 modifiée pour mieux se comprendre
Probablement que j'ai encore commis une erreur!
Sincères remerciements Claude
Claudine

**ClaudeLELOUP** · 05/12/2010, 15h28

Bon dimanche,
Programmeuse, c'est ton jour !

Expliquons d’abord ceci :

-Pour l'enregistrement suivant la case PrixRistourné reste affichée du Prix de l'enregistrement précédent

Dans l’événement sur activation, tu as écrit ceci

Code :

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

1
2
3
4
5
6
If Me.TypeClients = "Ecole" And Me.DescriptionProduit = "Cougnou250gnature" Then
    Me.PrixRistourné = DLookup("PrixEcole", "ListeProduits", "DescriptionProduit =""" & Me.DescriptionProduit & """")
End If
If Me.TypeClients = "Mutuelle" And Me.DescriptionProduit = "Cougnou500gnature" Then
    Me.PrixRistourné = DLookup("PrixMutuelle", "ListeProduits", "DescriptionProduit =""" & Me.DescriptionProduit & """")
End If

Tu aurais pu écrire comme ceci, une seule question plutôt que deux :

Code :

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

1
2
3
If Me.TypeClients = "Ecole" And Me.DescriptionProduit = "Cougnou250gnature" Or Me.TypeClients = "Mutuelle" And Me.DescriptionProduit = "Cougnou500gnature" Then
    Me.PrixRistourné = DLookup("PrixEcole", "ListeProduits", "DescriptionProduit =""" & Me.DescriptionProduit & """")
End If

Mais dans un cas comme dans l’autre, tu ne dis pas ce qu’il faut faire si cette condition n’est pas remplie. En l’occurrence : mettre Me.PrixRistourné à vide.

Ecris donc :

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Current()
If Me.TypeClients = "Ecole" And Me.DescriptionProduit = "Cougnou250gnature" Or Me.TypeClients = "Mutuelle" And Me.DescriptionProduit = "Cougnou500gnature" Then
      Me.PrixRistourné = DLookup("PrixEcole", "ListeProduits", "DescriptionProduit =""" & Me.DescriptionProduit & """")
   Else
      Me.PrixRistourné = Empty
End If
End Sub

… et Access fera ce que tu lui demandes.

Ceci maintenant :

En effet, ce prix ristourné n'apparaît que si je repasse à l'enregistrement précédent pour revenir ensuite à l'enregistrement concerné

Le mécanisme qui est décrit au point précédent se déclenche chaque fois que tu changes d’enregistrement.
Dans le cas que tu signales maintenant, tu te trouves dans un enregistrement (donc après l'événement "sur activation") et tu modifies la valeur d’un contrôle. Par exemple [TypeClients] passe de rien à « Mutuelle », si tu veux que le même processus se déclenche, tu dois en donner l’instruction.
Tel que tu l’as programmé actuellement, la valeur change après un clic, tu as ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub TypeClients_Click()
Me.TypeClients = Me.Modifiable18.Value
If Me.TypeClients.Value = "Ecole" Then
      DoCmd.RunMacro "Macro1"
 
      End If
      If Me.TypeClients.Value = "Mutuelle" Then
      DoCmd.RunMacro "Macro2"
End If
End Sub

Tu dois ajouter les instructions qui vont provoquer la mise à jour éventuelle de [PrixRistourné]

Par exemple comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub TypeClients_Click()
Me.TypeClients = Me.Modifiable18.Value
If Me.TypeClients.Value = "Ecole" Then
      DoCmd.RunMacro "Macro1"
 End If
If Me.TypeClients.Value = "Mutuelle" Then
      DoCmd.RunMacro "Macro2"
End If
If Me.TypeClients = "Ecole" And Me.DescriptionProduit = "Cougnou250gnature" Or Me.TypeClients = "Mutuelle" And Me.DescriptionProduit = "Cougnou500gnature" Then
      Me.PrixRistourné = DLookup("PrixEcole", "ListeProduits", "DescriptionProduit =""" & Me.DescriptionProduit & """")
   Else
      Me.PrixRistourné = Empty
End If

ou mieux, parce que dans ce cas spécifique, c’est la même chose que lors du changement d’enregistrement (Activation), tu peux aussi écrire comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub TypeClients_Click()
Me.TypeClients = Me.Modifiable18.Value
If Me.TypeClients.Value = "Ecole" Then
      DoCmd.RunMacro "Macro1"
 End If
If Me.TypeClients.Value = "Mutuelle" Then
      DoCmd.RunMacro "Macro2"
End If
Form_Current
End Sub

"Form_Current" équivaut à "Exécute, ici aussi, les instructions prévues lors de l’événement « sur activation »"

Mais encore une fois, tu vas t’y perdre si tu programmes toutes les combinaisons possibles. Tant mieux si cela t’aide à comprendre le fonctionnement d’Access, mais la manière de résoudre ton problème n’est pas la bonne.
Imagine que, à partir de 2011, "Bruxelles" (comme disent nos amis qui liront peut-être ce post) impose le poids des cougnous à 200 grs : tu peux modifier ton code !

A+

**Claudine** · 06/12/2010, 07h00

Bonjour ClaudeLeloup,
Merci pour votre aide matinale.
J'ai essayé d'appliquer vos lignes de code!
Tous semble correct si ce n'est que j'ai toujours le même problème soit que le prix ristourné n'apparaît que si je repasse à l'enregistrement précédent pour revenir à l'enregistrement concerné.
Je suis obligé dans l'évènement sur activation de revenir à 2 questions puisque:

Code :

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

1
2
3
If Me.TypeClients = "Ecole" And Me.DescriptionProduit = "Cougnou250gnature" Or Me.TypeClients = "Mutuelle" And Me.DescriptionProduit = "Cougnou500gnature" Then
    Me.PrixRistourné = DLookup("PrixEcole", "ListeProduits", "DescriptionProduit =""" & Me.DescriptionProduit & """")
End If

En effet

Code :

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

Me.PrixRistourné = DLookup("PrixEcole",

ne tient compte que du"PrixEcole" et non "PrixMutuelle"
Si nécessaire, je peux joindre ma BDD simplifiée pour mieux situer le problème

Remerciements
Claudine

**ClaudeLELOUP** · 06/12/2010, 11h21

Tel que programmé 2 cas afficheront le prix :

1° lorsqu’on aura la combinaison "Ecole" et "Cougnou250gnature"
2° lorsqu’on aura la combinaison "Mutuelle" et " Cougnou500gnature"

Pour toutes les autres combinaisons, le prix ne sera pas affiché.

Cela se produit à chaque changement d’enregistrement et chaque fois que tu double-cliques sur [typeclients]
Je joins l'exemple.

Une fois encore, c'est pour t'aider à comprendre.
La manière d'aborder n'est pas la bonne.
Je préfèrerais passer du temps à t’aider à bien construire, plutôt que de t’expliquer les effets d’un code mal conçu.

**Claudine** · 07/12/2010, 10h39

Bonjour Claude Leloup,
Merci pour votre compréhension
J'ai procédé à la mise en forme du formulaire et de l'état avec votre méthode géniale car elle autorise un minimum de programmation pour un résultat formidable.
Ci-Joint le travail et si vous le pouvez, n'hésitez pas à formuler vos remarques qui me permettent de progresser.
Sincères remerciement pour tout
Claudine

**ClaudeLELOUP** · 07/12/2010, 16h30

Bonjour,

On va d'abord dire ce qu'on fait :

Explique le cycle des opérations que tu voudrais intégrer dans ton application

Exemple :
1° Enregistrer la commande
....
n° Livraison
…
m° Facturer
...
o° Enregistrer paiement
…

Explique comment se déroule une commande

Exemple :
Le client téléphone
Quelqu’un note sur un papier, un formulaire ..
On encode

Explique quels sont les types de tarif

Exemple
Tel tarif, pièce par pièce pour tel type de client
tarte aux fruits : Mutuelle x €, Ecole y €, Untel z €, ... tous les autres : p €
Un certain pourcentage de ristourne par rapport au tarif normal ?
tarte aux fruits : prix : p € avec ristourne d'un pourcentage par client

Dans ton Référentiel des clients : tu devrais avoir un champ pour définir le type de Tarif qui lui est appliqué.

Dans ton référentiel Produits : tu devrais avoir un champ par type de Tarif.

**Claudine** · 09/12/2010, 16h47

BonsoirClaudeLeloup
Réponses à vos questions:
Explique le cycle des opérations que tu voudrais intégrer dans ton application
Enregistrer la commande (Actuellementt on les introduits dans les tableaux"CommandeMutuelle", "CommandeEcole", "CommandeSociété","CommandeResto" après reception du papier de la commande par téléphone
Explique comment se déroule une commande
Quelqu'un note sur un papier
Explique quels sont les types de tarif
Il y 5 Types de tarif: "TarifEcole","TarifMutuelle", "TarifSociété","TarifResto","TarifAutres"
Tous les tarifs ont des prix pièce par pièce et différents suivant le typeClients
Pourriez-vous vérifier où se situe le problème car la zone de texte du "Prix" reste vide pour les TypeClients: Resto et Autres. Tout fonctioone normalement avec typeClient: Mutuelle, Ecole, Société . Je croyais avoir compris votre méthode mais apparemment, ce n'est pas le cas (2 jours de recherche)A toutes fins utiles, je joint ma BDD actuelle
Remerciements
Claudine

**Claudine** · 09/12/2010, 18h02

Rebonsoir ClaudeLeloup,
Après mûres réflexion, je viens à l'instant de trouver mon erreur: ajouter le nombre de colonnes à la ListeProduits d'où inutile de répondre à cette question
Pourriez-vous vérifier où se situe le problème car la zone de texte du "Prix" reste vide pour les TypeClients: Resto et Autres. Tout fonctioone normalement avec typeClient: Mutuelle, Ecole, Société . Je croyais avoir compris votre méthode mais apparemment, ce n'est pas le cas (2 jours de recherche)A toutes fins utiles, je joint ma BDD actuelle
Je crois maintenant avoir bien compris!
Claudine

**ClaudeLELOUP** · 09/12/2010, 20h40

Bonsoir Claudine,

Je te suggère donc d’indiquer "Résolu" pour cette discussion.
Si tu le souhaites, je veux bien t’aider à réaliser ton application.
Pour cela tu dois d’abord, bien expliquer en détail ce que tu veux faire.
En séparant bien les étapes.
Exemple : (j’improvise, car je ne connais pas le problème)
- enregistrer les commandes
- lorsque la fabrication est terminée : établir un bon de livraison
- établir la facture…

Le bon endroit pour poster une telle discussion: Modélisation.

Cela va te demander un effort et du temps au début, mais ton application gagnera en qualité.

Si tu postes et que je ne réagis pas, c’est que j’étais distrait. Envoie-moi un message privé.
Bonne continuation et à bientôt.

Afficher une table selon les critères d'une liste

IHM

Discussions similaires

Partager

Partager