Discussion :

[Pogny]

Voila apres une serie d'essai non concluant je post sur votre forum voila mon probleme :

je possede une -table "patient" referencé par des tables de données
-une table liée (provenant d'Excel) listecommune (contenant la liste des commune de mon departement(N° insee,commune,CP...)


Mon formulaire "patient" est basé sur la table "patient".
La selection de la commune se fait par une liste deroulante.
Il faudrait que le CP correspondant a la commune se remplisse de facon automatique sur mon formulaire.

j'ai creeé une requete CP :

Code :

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

1
2
3
SELECT listecommune.[code postal]
FROM listecommune, patient
WHERE patient.commune=listecommune.commune And N°=(Form!patient!N°.value);

ca c'est ma derniere idee.
une procedure evenementielle est sur le champ commune elle dit
apres selection "texte58.requery" (texte58 est mon champ Code postal)
mon champ texte58 a pour evenement
Docmd.query("CP")

j'ai essayé plusieur autre tentative sans succés alors que c'est si simple .... aidez moi ^^

[maxdwarf]

je ne sais pas si ça peux t'aider mais lorsque les champs sont des chaînes de caractères, je crois qu'il faut préferer 'LIKE' plutôt que '=' (à vérifier..)

dans les proriétés de ton formulaire, as-tu inclus la table où se trouve les CP?

[Pogny]

je crois qu'il faut préferer 'LIKE' plutôt que '=' (à vérifier..)

mon '=' sert a faire une jointure entre mes tables "patient" et "listecommune"

dans les proriétés de ton formulaire, as-tu inclus la table où se trouve les CP?

---> tu peux developper ?

[jujusoso]

je pense que le mieux est d'utiliser un recordset enfin je ne suis pas expert

j'ai nommé ton champ choix de commune : liste_commune et ton champ code postal : code_postal

Sur ton champ "liste commune" tu met une [procédure évenementielle] sur after_update (après MAJ) et dans le code tu tape

if me.liste_commune.value <> "" then

dim rst as DAO.recordset

Set rst = CurrentDb.OpenRecordset("SELECT [code postal] FROM listecommune WHERE commune = """ " & me.liste_commune.value & "" ")

me.code_postal = rst![[code postal]

rst.Close
Set rst = Nothing
end if

[Pogny]

je vais tester merci

[Pogny]

AIE il aime pas ca

Set rst = CurrentDb.OpenRecordset("SELECT [code postal] FROM listecommune WHERE commune = """ " & me.liste_commune.value & "" ")

[jujusoso]

quel message d'erreur te renvoie t'il?

c'est peut être une erreur du a une bibliothèque manquante.

[Pogny]

nononon juste un "Erreur de syntaxe "

il dit "Attendu separateur de liste ou )"

au niveau du code : (.... " "" & me.commune.value & "" ")

[jujusoso]

désolé j'ai essayer j'ai réussi c'est que j'ai encore du mal à remplacer les apostrophes par les doubles "" le me perds dans mes comptes

essaie ca

Set rst = CurrentDb.OpenRecordset("SELECT [code postal] FROM listecommune WHERE commune = """ & Me.liste_commune.Value & """")

met le tout sur une ligne bien sur et sinon pour le rst![[code postal] je pense que tu a vu que j'avai mi une [ en trop.

[Pogny]

je pense que tu a vu que j'avai mi une [ en trop.

je l'avais corrigé

[Pogny]

Merci beaucoup ca marche

j'avais declaré code_postal en zone de liste mais en fait fallais du texte

tu peux m'expliquer en privé la fonction des """ ?

[jujusoso]

et est ce que ca marche maintenant?

[Longrais]

Bonjour,

Je bute la liste ci-dessous :

Code :

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

1
2
 
Me.codepostal = rst![code_postal]

En effet, cette dernière ligne retourne la valeur NULL. Alors que le résultat de la requête SQL retourne bien un code postal.

Est-ce-que vous avez déjà rencontré ce problème ?

Merci.

[Longrais]

Bonjour,

J'ai un formulaire Access avec 2 champs :
- Le premier champ pour la commune est un champ de liste déroulante, appelé liste_commune.
- le deuxième champ pour le code postal est un champ de zone de texte, appelé codepostal.
Je souhaite, après sélection de la commune, que le champ codepostal se remplisse automatiquement à partir d'une table.
Mon code VBA est le suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub liste_commune_AfterUpdate()
  If Me.liste_commune.Value <> "" Then
    Dim rst As DAO.Recordset
    Set rst = CurrentDb.OpenRecordset("SELECT code_postal FROM adh_codepostal WHERE ville = """ & Me.liste_commune.Value & """")
    Me.codepostal = rst![code_postal]
    rst.Close
    Set rst = Nothing
  End If
End Sub

J'obtiens une erreur au niveau de la ligne en gras. Le résultat de Me.codepostal est nulle.

Est-ce-que vous avez déjà été confronté à ce cas et si oui, comment vous en êtes-vous sorti ?

Merci de vos retour,

[zoom61]

Salut,

J'arrive peut-être trop tard, mais as-tu vu l'article de Pierre Fauconnier ? Il parle juste des codes postaux et des villes...

@+.