code reset, afficher sur vb access

Bonjour,

j'ai un table access se compose par code article , fournisseur, Qnté entré, Qnté sortie,Délais de livraision.., je veut créer un button ajouter, pour afficher les information apartir d'un code d'article entré,j'ai déja créer un formulare pour fair ça mais je n'arrive pas a faire le code pour executer le button ( afficher , reset)
Si quelqu'un peut m'aider je serais apprécié.

Cordialment.

Bonjour,
Pas trop claires vos explications, il faut utiliser un décrypteur.:weird:
1 - de mémoire d'éléphant, il est impossible de faire un reset sur l'ensemble des contrôles d'un formulaire si ce dernier a pour source une tbl ou une req.
2 - le reset est possible si vous avez construit un form avec des contrôles indépendants
3 - le form en capture d'écran a pour source une req, donc votre Sub() dans la fenêtre vba ne sert à rien et de toute façon va générer une erreur.

4 - sans connaitre la finalité de votre form, je vous conseille de créer un form sans source (tbl/req) avec une liste déroulante (SearchArt) et des zones de texte indépendantes.
5 - alimenter la liste déroulante avec l'ensemble des champs nécessaires (ceux qui sont dans votre form à l'écran, de num_art à conso)
6 - dans un module standard copier la function suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Public Function ToutVider(frm As Form) Dim ctrl As Control For Each ctrl In frm.Controls Select Case ctrl.ControlType Case acTextBox ctrl = "" Case acOptionGroup, acComboBox, acListBox ctrl = Null Case acCheckBox ctrl = False End Select Next End Function

---

7 - sur l'évènement sur_changement() de votre liste déroulante, passer le code suivant que vous adaptez bien sûr :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub SelectArticle_Change() Me.idarticle = Me.SelectArticle.Column(0) Me.designation = Me.SelectArticle.Column(1) Me.fournisseur = Me.SelectArticle.Column(2) Me.paht = Me.SelectArticle.Column(3) Me.delaislivraison = Me.SelectArticle.Column(4) Me.qteentree = Me.SelectArticle.Column(5) Me.qtesortie = Me.SelectArticle.Column(6) Me.stockreel = Me.SelectArticle.Column(7) Me.conso = Me.SelectArticle.Column(8) End Sub

---

8 - en enfin sur l'évènement click() de votre btn reset, passer le code suivant :

Code:

---

1 2 3

Private Sub reset_Click() Call ToutVider(Me) End Sub

---

Bonsoir ,


Je suis très heureux de la réponse que vous m'avez donnée, il a été très utile,
merci beaucoup,

Cordialement .

A quoi bon clôturer la discussion, si vous me sollicitez en MP :weird:
Pourtant, c'est indiqué dans ma signature.
En pj