Discussion :

[elvisogo]

Bonjour a tous je voudrais solliciter votre aide pour la réalisation d’un tutoriel celui de ce
http://argyronet.developpez.com/offi...ectitemlistAB/
je les suivie pourtant a la lettres appart les données remplis dans les deux tables.
Mon problème ce situe exactement au niveau du champ Métier.
Quand je click sur le champ catégories la liste des catégories apparait mais lorsque je sélectionne une catégorie, Métiers devrai s’activé mais rien, dans le tuto la propriété activé= non

Ensuite dans le code événement de ce champs voici ce que j’ai mis je précise que j’ai suivie le tuto a la lettre j’ai chercher en vain l’erreur mais rien je sèche depuis 48h j’ai même teste le code avec l’événement click mais rien même en activant le champ au préalable.

Table
TBLcategories ; champs de cette table : IDCategorie ,Categorie
TBLMetiers ; champs de cette table : IDMetier ,Metier ,IDCategorie





Code sur le formulaire ,pour le champs Metier

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
18
19
20
Private Sub cmbMetiers_AfterUpdate()
 
Dim lngIDCat   As Long
Dim SQL        As String
  '' Vérifie que l'on a cliqué sur une catégorie pour éviter le NULL
  If Not IsNumeric(Me!cmbCategories) Then Exit Sub
  '' Affecte la valeur de IDCategorie à la variable lngIDCat
  lngIDCat = Me!cmbCategories
  '' Construit la chaîne SQL avec la catégorie concernée
  SQL = "SELECT IDMetier, Metier, IDCategorie FROM TBLMetiers WHERE IDCategorie =" & lngIDCat & " ORDER BY Metier"
  '' Affecte la chaîne SQL à la liste des métiers
  cmbMetiers.RowSource = SQL
  '' Déverrouille la liste des métiers
  cmbMetiers.Enabled = True
  '' Donne le focus la liste des métiers
  cmbMetiers.SetFocus
  '' Déroule la liste des métiers
  cmbMetiers.Dropdown
 
End Sub

Si quelqu'un a une idée du pourquoi sa marche pas j’utilise Access 2007 y a-t-il une option que je n'ai pas activé une référence ??
Pourtant mon projet besoin d’une amélioration de ce tuto pour fonctionner c’est quand j'ai voulu le modifie pour l’adapter a mes besoin et que cela ne marchait pas alors j’ai voulu teste le tuto pour voir si j’ai bien compris.
J'ai remarqué aussi que le tuto parle dune option a cocher que je trouve pas non plus
« Si vous n'avez pas l'habitude d'utiliser l'éditeur Visual Basic ou bien si vous n'avez pas
coché dans les options d'Access, la rubrique intitulée "Toujours utiliser les procédures
événementielles" »

[jimbolion]

elvisogo bonjour,

Quand je click sur le champ catégories la liste des catégories apparait mais lorsque je sélectionne une catégorie, Métiers devrai s’activé mais rien, dans le tuto la propriété activé= non

A la lecture du code et sans même jeter un oeil au tuto tu as la propriété qui agit après la mise à jour de cmbMetiers -> cmbMetiers_AfterUpdate()

En clair cet événement ne peut être exécuté puisqu'il agit après la mise à jour sur la modification de ta zone de liste cmbMetiers pourtant inactive. Cela aurait dû attirer ton attention.

Donc cet événement doit être placé après la modification de ta zone de liste cmbCategories et non de cmbMetiers

Je te laisse donc avancer sur ton apprentissage d'Access

@ Bientôt

Jimbolion

[elvisogo]

Je met en pratique ce que tu m'a dit. Mais merci beaucoup.. J'apprends toujours suis vraiment nulle et j'ai la pression aussi merci je teste à j'arrive

[argyronet]

Bonjour,

Ce n'est pas question d'être nulle mais tu écris que tu as appliqué à la lettre or si tu relis le tuto, il est écrit :

Code :

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

Private Sub cmbCategories_AfterUpdate()

et non comme tu l'as fait :

Code :

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

Private Sub cmbMetiers_AfterUpdate()

Donc tu as bien loupé quelque chose...

Argy

P.S. Quand même Jim, tu aurais pu lire mon tuto, pffft !!!

[jimbolion]

Argy,

Sorry

* Promis je recommencerai plus

jim

[elvisogo]

Effectivement.. Le bon sens je l'oublie celui là.. Quand je suis vraiment fatigué.. Trop chargé et beaucoup de pression merci à tous désolé pour le dérangement