Discussion :

[spookyz]

Bonjour à tous,
Je réalise une petit formulaire avec un avec Access qui consiste à faire une addition de produit que je vends en direct .j’ai donc un formulaire avec des boutons chaque bouton représente un de mes produits.
Je clique sur le bouton les données nom et prix du produit s’affiche dans une liste présente sur le même formulaire puis un bouton valider enregistre le total de la commande dans la BD
Ça fonctionne bien
Mon problème est que pour chaque bouton je pars de l’événement clic Avec appel d’une procédure qui ajoute les données dans la liste qui a pour paramètre le nom du produit et son prix
Call laprocedure("nomduproduit", prix)

Ensuite le nom du produit sert de paramètre dans un recordset pour chercher dans la table de mes produits son id pour l’ajouter à la table des ventes
Mais ce procédé n’est pas sur ni efficace je pense, par ce que je ne peut pas changer le nom du produit dans la table et surtout je n'aï pas d’identificateur unique sur le nom du produit.
Je pourrais mettre le nom comme id unique dans la table ou bien mettre l’id du produit dans l’appel a la procédure a la place du nom enfin bref,
ma question est est-il possible d’affecter un contrôle (une image ou un bouton etc.) a chaque enregistrement d’une table ce qui éviterai les erreurs
Je n’ai aucune idée de la marche a suivre si toutefois cela est possible
Merci pour vos lumières

[marot_r]

Bonjour,

En dehors de l'interface il me semble que je procederai ainsi :

Table Produit
ClefProduit (numero auto)
NomProduit (texte)
PrixProduit (suppose que u n'as qu'un seul prix et que tu n'as pas besoind d'un historique.

Table Vente
ClefVente (numero auto)
DateVente
ClefProduit
PrixVente

Au niveau de l'interface, je suppose que ton nombre de produits est limité et que tu as un truc du genre :

Code :

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

1
2
3
4
 
[Produit A] [Produit B] [Produit C]
[Produit E] [Produit F] [Produit G]
[Produit H] [Produit I] [Produit J]

Requete qryProduit :
Trie les produits dans l'ordre alphabétique

Code :

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

select tblProduit.* from tblProduit order by tblProduit.NomProduit

Je donnerai a mes boutons le nom suivant btnProduitXXX ou XXX est un nombre entre 001 et le nombre maximum de produits.

Ensuite au chargement du formulaire je changerai le texte affiché par le bouton pour le nom du produit et le "tag" du bouton pour la clef du produit.

Un truc du genre :

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
 
dim db as dao.database:set db=currentdb
dim rProduit as dao.recordset:set rProduit=db.openrecordset("qryProduit",dbOpenSnapshot)
dim i as long:i=0
dim b as button
 
do while not rProduit.eof()
   i=i+1
   set b=me.controls("btnProduit" & format(i,"000") 
   b.caption=rProduit![NomProduit]
   b.tag=rProduit![ClefProduit]
   rProduit.movenext
loop
 
set b=nothing 'Libère la mémoire
rProduit.close:set r=nothing 'Ferme l'objet et libère la mémoire
db.close:set b=nothing 'Ferme l'objet et libère la mémoire

ensuite je créeer une fonction pour gerer les boutons :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
public function GererBoutonProduit()
   dim clefProdut as long:clefProduit=me.activecontrol.tag
   dim prixProduit as variant : prixProduit=DFirst("PrixProduit", "tblProduit", "[ClefProduit]=" & clefProduit)
 
   if not isnull(prixProduit) then 
        call AjouterProduit(ClefProduit, CDbl(prixProduit))
      esle
        msgbox "Pas de prix pour " & me.activecontrol.caption
   end if
 
end function

Code :

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

1
2
3
4
5
 
'À mettre dans le module associé au formulaire
private sub AjouterProduit(prmClefProduit as long, prmPrixProduit as double)
   'Ici le code qui ajoute le produit à la liste des achats, il faudra sans doute récupérer le nom du produit associé à la clef.
end sub

Pour chaque bouton je mettrais dans la proprieté "Sur Click" : =GererBoutonProduit()Comme cela ton formulaire s'adaptera automatiquement au nombre de produits (dans la limite des boutons créés) et au nom des produits tout en utilisant en interne un numéro unique (ClefProduit).

A+

[spookyz]

Bonsoir à tous,
Un grand merci marot_r ça fonctionne très bien c'est beaucoup plus sur et efficace que ma méthode
j'ai du faire quelques corrections sans doute la version d'access
je les ajoutent pour ceux que ça pourrait intéresser

Code :

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

1
2
3
4
5
Dim b As CommandButton
 
Set b = Me.Controls.Item(i - 1)
 
Call AjouterProduit(CLng(ClefProduit), CDbl(prixProduit))

Cordialement
Un cousin