Discussion :

[aculy]

Bonjour,
ce topic fait suite à celui-ci ou je demandais si mes tables semblaient correct.
https://www.developpez.net/forums/d1.../#post10693628

Maintenant je suis sur mon formulaire pour le bon de commande:
j'ai créé un formulaire où je peux noter la date du bon de commande puis j'ai une liste déroulante des fournisseur de ma base. (correspond à ma table commande)

Pour ce formulaire, j'ai créé un sous formulaire (table lgns commandes) où je choisi les articles et la quantité que je souhaite.
Et déjà là, je bloque sur le fait que j'ai la liste complète des articles de tous les fournisseurs et non pas seulement la liste d'article de mon fournisseur choisi au dessus....
Comment puis je n'avoir que ma liste lié à mon fournisseur ??
VBA / Macro / Req ?



(Comment faire pour que mon image sur le forum ici soit pas enorme à chq fois ?)

il y'a aussi un contrôle caché où je créé le N° commande avec le code ci-dessous.

Code :

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

1
2
3
Private Sub Form_BeforeInsert(Cancel As Integer)
    Me.Num_commande = "BDC" & Format(Date, "yyyymmdd") & "_" & Format(Right(Nz(DMax("Num_commande", "tb_Commandes"), 0), 4) + 1, "0000")
End Sub

ce N° de commande sera bien entendu intégré aussi dans ma table lgns commande (enfin son ID)

je sais pas si c'est une bonne idée de caché le N° commande mais en le laissant apparaître je pense qu'il est modifiable.. et je veux pas laisser la possibilité de le modifier....

Merci

[aculy]

je viens de contrôler effectivement il est modifiable si je le laisse apparant...
peut être que je peux le laisser apparant mais le bloquer en écriture (humaine)

[aculy]

je refaisais mon formulaire depuis le début pas à pas...
j'automatise toujours le num_commande et la date_commande
sans le sous formulaire et bim j'ai un soucis
et je ne sais pas pourquoi....
quand je sélectionne mon fournisseur.... il ne me donne que l'ID
j'avais le nom du fournisseur avant à l'écran et l'ID dans la table...


heureusement j'ai plein de cheveux car je commence à me les arracher...

[tee_grandbois]

bonsoir aculy,
il faut modifier la propriété Largeur colonnes en mettant 0cm pour la taille de la 1ère colonne (qui doit correspondre à ID), il faut vérifier également si le nombre de colonnes (propriété Nbre colonnes) correspond aux colonnes que l'on veut voir apparaitre dans la liste.

Exemple:
Contenu (champs de la table ou la requête): Select Id, NomFourn, AdresseFourn from fournisseurs;
Nbre colonnes:3
Largeur colonnes: 0cm;3cm;5cm

[fclus]

@tee_grandbois : je viens de découvrir l'effet de la colonne à 0 !!! ça change la vie

[aculy]

Merci je ne connaissais pas cette petite astuce la non plus....
du coup je vais pouvoir essayer de rajouter mon ssform

[aculy]

ca avance ca avance....
la je butte sur un soucis de MAJ de champs je pense


mon process pour le moment est le suivant
j'ouvre mon formulaire, je vais choisir mon fournisseur dans la liste déroulante
cela créé le Num commande et mets la date du jour
dans mon sous formulaire (pour le moment c'est une liste déroulante) j'ai le num commande qui apparaît (qui plus tard quand tout cela sera ok,il n'y aura plus d'interet à l'avoir, mais pour le moment cela me permets de contrôler que je suis sur le bon num de commande)
ensuite j'ai une liste déroulante pour les ref de mon fournisseur.... (viendront ensuite les prix)

et là soucis..

si je me suis planté de fournisseur et que je le change au dessus dans le menu déroulant cela ne modifie pas la liste d'article
pourtant j'avais vu ici

https://access.developpez.com/faq/?page=zdl#DepZdl

qu'il fallait faire mettre à jour la liste alors en modifiant leur code par ceci

Code :

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

1
2
3
4
5
6
7
 
Option Compare Database
Option Explicit
 
Private Sub fournisseur_Change()
Me.Ref_article.Requery
End Sub

je pensais que cela suffirait mais rien

avez vous une piste ?

mon formulaire en création

[aculy]

j'ai trouvé.....

j'ai mis mon code ici

Code :

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

1
2
3
4
5
6
Option Compare Database
Option Explicit
 
Private Sub Ref_article_GotFocus()
Me.Ref_article.Requery
End Sub

[aculy]

bonjour,
je n'arrive pas a récupérer le prix unitaire de l'article sélectionné dans ma liste déroulante...



j'ai pensé passé par une macro qui exécuterait ma requete SQL qui fonctionne....

Code :

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

SELECT tb_Ref_article_four.Prix_ht FROM tb_Ref_article_four Where tb_Ref_article_four.Ref_article = forms.zzztb_lgns_commandes.ref_article;

et qui se lancerait ... je ne sais pas quand....



est ce que vous pensez que se serait une bonne solution ou vous en voyez une autre ?

il me reste cette fonction et faire un total ensuite des articles du BDC...



pareil j'ai placé une zone de texte avec en source controle

Code :

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

=Somme([Qt_article]*[Prix_unitaire])

mais cela ne fonctionne pas...

[tee_grandbois]

bonjour,

je n'arrive pas a récupérer le prix unitaire de l'article sélectionné dans ma liste déroulante...

Sur évènement Click ou After_Update de la liste déroulante et si le prix se trouve dans la 3ème colonne de la liste:

Code :

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

Me.Prix_Unitaire = Me.Ref_Article.column(2)

[aculy]

bonjour tee_grandbois,
il ne se passe rien

Code :

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

Me.Prix_Unitaire = Me.Ref_Article.column(2)

est ce que "Me.Ref_Article.column(2)" renvoi à ce que j'ai dans latable ?
ou dans le formulaire ?

le "Me." veut dire que je bosse sur ce formulaire ?

[tee_grandbois]

est ce que "Me.Ref_Article.column(2)" renvoi à ce que j'ai dans latable ?
ou dans le formulaire ?

dans le formulaire. Est-ce bien dans la 3ème colonne que se trouve le prix ?

le "Me." veut dire que je bosse sur ce formulaire ?

Oui, c'est l'équivalent du ThisWorbook d'Excel.

Le sous-formulaire est en mode feuille de données mais est-ce que Ref_Article est une "vraie" liste déroulante (contrôle créé dans le formulaire) ?
Si oui, que contiennent les propriétés Nbre Colonnes et Contenu ?

[aculy]

dans le formulaire. Est-ce bien dans la 3ème colonne que se trouve le prix ?

Dans le sous formulaire il y a id_commande/ref_art/qt/PHT/TTHT
donc je dirais 4eme colonne

Le sous-formulaire est en mode feuille de données mais est-ce que Ref_Article est une "vraie" liste déroulante (contrôle créé dans le formulaire) ?

ma liste déroulante vient de la table ref_art_four
ou je recupere les article du fournisseur choisi
via la requete qui est dans données/contenu

Code :

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

 SELECT tb_Ref_article_four.ID_ref_fournisseur, tb_Ref_article_four.Ref_article FROM tb_Ref_article_four WHERE tb_ref_article_four.fournisseurs = forms.zzztb_commandes.Fournisseur;

[tee_grandbois]

bonjour,

Est-ce bien dans la 3ème colonne que se trouve le prix ?

j'ai omis de préciser qu'il s'agissait des colonnes de la liste déroulante REf_Article mais visiblement elle ne contient pas de colonne prix:

Code :

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

SELECT tb_Ref_article_four.ID_ref_fournisseur, tb_Ref_article_four.Ref_article FROM tb_Ref_article_four WHERE tb_ref_article_four.fournisseurs = forms.zzztb_commandes.Fournisseur;

[aculy]

si je la transforme comme ceci

Code :

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

SELECT tb_Ref_article_four.ID_ref_fournisseur, tb_Ref_article_four.Ref_article,tb_Ref_article_four.Prix_ht FROM tb_Ref_article_four WHERE tb_ref_article_four.fournisseurs = forms.zzztb_commandes.Fournisseur;

cela devrait fonctionne?

je vais essayer dès que je me mets devant

MERCI

[tee_grandbois]

cela devrait fonctionne?

Oui

[aculy]

donc je vois maintenant dans la liste déroulante apparaître le prix de l'article j'ai mis:

plus le code de la requête ici

et j'ai dit de lancer sur : clic/Avant MAJ/Apres MAJ/focus

Code :

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

Me.Prix_unitaire = Me.Ref_article.Column(2)

mais rien n’apparaît la colonne reste vide
j'ai aussi testé

Code :

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

Me.Prix_unitaire = Me.Ref_article.Column(3)

[tee_grandbois]

bonsoir,

clic/Avant MAJ/Apres MAJ/focus

c'est sur Clic OU Après Maj, inutile d'en faire trop ...
pourrait-on voir la requête complète du contenu ?

[aculy]

bonjour,
désolé je n'avais pas eu accès à ma base depuis ayant été en déplacement.

Code :

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

1
2
3
SELECT tb_Ref_article_four.ID_ref_fournisseur, tb_Ref_article_four.Ref_article, tb_Ref_article_four.Prix_ht
FROM tb_Ref_article_four
WHERE (((tb_Ref_article_four.fournisseurs)=[forms].[zzztb_commandes].[Fournisseur]));

[aculy]

je me pose la questoin à savoir si j'ai pas mal monté mon formulaire....
comme je n'y connais pas grand chose à access j'ai les connaissances limite....
pour mes formulaires j'utilise l'assistant et après je modifie surtout la mise en page et mets un peu de code quand j'ai besoin

mais peut etre que la du coup mon soucis vient du fait que j'ai utilisé mon assistant pour faire le sous formulaire....