Discussion :

[keniototo]

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.

[hyperion13]

Bonjour,
Pas trop claires vos explications, il faut utiliser un décrypteur.
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 :

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

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 :

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

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 :

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

1
2
3
Private Sub reset_Click()
Call ToutVider(Me)
End Sub

[keniototo]

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 .

[hyperion13]

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