[AC-2007] Recherche par Code postal

[pierre1923]

Bonjour tout le monde.

Je suis aussi nouveau sur le forum qu'en Access c'est pourquoi je sollicite votre aide afin de résoudre mon problème.
J'aimerais créer un formulaire avec un champ vide dans lequel je tape mon code postal et qui en fonction de ce dernier va chercher dans ma base de donnée et me ressort la ou les villes correspondantes. J'ai essayé de plusieurs manières mais je n'y arrive pas.

si quelqu'un pourrait m'aider ce serait vraiment très gentil.

Cordialement,

Pierre

[argyronet]

Bonjour et bienvenu parmi nous...

Déjà un code postal est un texte et non un nombre donc il faudra délimiter la valeur tapée par des quotes ou des guillemets.
Si l'on suppose que la liste des villes se trouve dans une table tblVillesCP et que le résultat doit figurer dans une zone de liste nommée lboVilles, cela se traduirait par :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Private Sub txtCodePostal_AfterUpdate()
Dim strCP                                              As String
Dim strSQL                                             As String
Dim oRS As DAO.Recordset
 
    strCP = Nz(Me!txtCodePostal, vbNullString)
    If Len(txtCodePostal) = 5 Then
        strSQL = "SELECT Ville FROM tblVillesCP WHERE CP ='" & strCP & "';"
        Set oRS = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
        With oRS
            If .EOF Then
                MsgBox "Aucune ville ne correspond au code postal " & strCP
            Else
                Me.lboVilles.RowSource = strSQL
            End If
            .Close
        End With
 
    Else
        MsgBox "Veuillez incrire un code postal valide !", vbExclamation
    End If
    Set oRS = Nothing
End Sub

Argy

[pierre1923]

Merci Argy pour ta réponse. Je suis sur que cela fonctionne mais je n'arrive pas à l'appliquer...

- Il faut que je nomme ma table contenant les villes et les codes postaux : tblVillesCP

- Que je nomme ma zone de liste de "réception" lboVilles

et ensuite ou dois je copier le code ? dans la zone ou je dois taper le code postal ou dans la zone de réception?

Merci d'avance pour ton aide

[argyronet]

Bien disons que de façon conventionnelle, il est préférable de nommer les objets correctement...
Dans mon exemple, la table se nomme effectivement "tblVillesCP" et possède 2 champs nommés CP et Ville. Il faut que ça coïncide comme dirait le canard de Corneille.
En résumé :

• soit vous adaptez lke code en fonction de vos noms d'objets,
• soit vous nommez vous objets en fonction du code ;

Toutefois, il est judicieux de prendre en considération que ce dernier choix pourrait avoir un impact négatif sur le fonctionnement de votre appli si ces derniers sont utilisés ailleurs...

Le code exemple est affecté à l'événement AprèsMaj de la zone de texte où est inscrit le code postal...

Argy