Discussion :

[Jac_S_69]

J'ai une base de données d'environ 4000 personnes. Ces personnes habitent essentiellement dans le même département mais malheureusement pas toutes. Le code postal ne peut servir de clé primaire à ma table des villes car des villages peuvent avoir le même code postal. Lorsque je crée une table avec toutes les villes de France et leur code postal à savoir environ 39000, j'arrive à avoir dans mon formulaire d'enrégistrement d'une nouvelle personne une liste de choix déroulante des villes disponibles (39000) mais je ne sais pas comment faut il faire pour que la liste me propose un choix rapide et de plus plus restreint en fonction de la ou des permières lettres de la ville que je tape . exemple si je tape M puis A je voudrais que le choix se concentre uniquement sur les villes commencant par MA. Merci d'avance pour vos réponses .

[chdemarles]

Bonjour
Il suffit dans la requête de saisir dans le champ "VILLE" ou autre
la commande suivante :

Comme [Saisir les premières lettres de la Ville ] & "*"

En espérant avoir répondi à ta demande

A+

[random]

tu prévois une zone de texte dans ton formulaire nommons la deb
l'utilisateur va y entrer les premières lettres
tu fais une requete select codepost ville from tabledescp where ville
like [Formulaires]![monformulaire]![deb] & "*"
cette requête va nourrir ta zone de liste déroulante
sur deb pour l'évènement change
tu mets me.requery

[User]

Salut,

suppose que tu as une table1 (pour les villes) dont le 1er champ est Nom.

1 liste1 déroulante (combobox) dont la propriété RowSource="table1"

et maintenant tu mets sur l'évènement Change de ta liste1:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Liste1_Change()
 
  If (Liste1.text <> "") Then
  Liste1.RowSource = "Select * From Table1 where Nom Like '" & Liste1.text & "*'"
  Else
  Liste1.RowSource = "Table1"
  End If
 
End Sub

Ce qui te permets d'afficher dans ta liste uniquement les villes qui commence par ta saisie.

Tu peux aussi utiliser la propriété autoexpand de ta liste:

Code :

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

Liste1.autoexpand=true

@+