Discussion :

[Jeff_AiR_SoOn]

Bonjour à tous,
Nouvel arrivant sur ce forum, je souhaite obtenir de l'aide.

J'ai une base Access comprenant plusieurs tables:
TABLE_EPCI (N° ; liste de noms d'agglomération intitulée CHAMP_EPCI)
TABLE_INSEE (N° ; liste de code INSEE unique à chaque ville intitulée CHAMP_INSEE)
TABLE_COMMUNE (N° ; liste définie de communes intitulée CHAMP_COMMUNES)

Je souhaite créer un formulaire dans lequel il y aurait les 3 champs (CHAMP_EPCI / CHAMP_INSEE / CHAMP_COMMUNES) et il faudrait que lorsque je tape le champ INSEE, les deux autres champs se remplisse automatiquement)
Sachant qu'un code INSEE correspond à une commune et un EPCI, et qu'un EPCI correspond à plusieurs communes

Etant débutant dans Access, je rame un peu.

Merci d'avance pour les réponses que vous m'apporterez !!!

[argyronet]

Bonjour,

Peut-être en t'inspirant de ce tutoriel que j'ai écrit mais tu dois l'adapter pour tes 3 tables.
Je ne te conseille pas de zone de texte car tu exposes ton utilisateur ou toi-même au fait que tu peux commettre une erreur de correspondance avec un INSEE incorrect...

Argy

[Jeff_AiR_SoOn]

Merci beaucoup pour ta réponse,
J'ai essayé de faire comme tu m'as dit mais cela ne marche pas. Peut-être que j'ai un souci de version, j'ai Access 2010. Je pense que je ne recopie pas correctement le code car dans mon formulaire quand je choisi un EPCI, tout les codes INSEE apparaissent et non pas la liste des codes correspondant à l'EPCI.

Voici le code du formulaire:

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 cmbEPCI_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!cmbEPCI) Then Exit Sub
  ' Affecte la valeur de IDCategorie à la variable lngIDCat
  lngIDCat = Me!cmbEPCI
  ' Construit la chaîne SQL avec la catégorie concernée
  SQL = "SELECT IDEPCI,INSEE, IDEPCI FROM TBLCODE_INSEE WHERE IDCategorie =" & lngIDCat & " ORDER BY INSEE"
  ' Affecte la chaîne SQL à la liste des métiers
  cmbINSEE.RowSource = SQL
  ' Déverrouille la liste des métiers
  cmbINSEE.Enabled = True
  ' Donne le focus la liste des métiers
  cmbINSEE.SetFocus
  ' Déroule la liste des métiers
  cmbINSEE.Dropdown
 
End Sub

[argyronet]

Humm, tu n'as pas de champ "IDCategorie"...!
Adapte avec ta clé primaire pas celle de l'exemple.

Argy