Discussion :

[BCBFIS]

Je dispose de 3 tables T_FourNouveau pour ajouter un fournisseur, T_Codes postaux contenant les codes postaux de toutes les villes belges, leurs noms et le code ISO du Pays, enfin T_Pays contenant le code ISO du pays et le nom du pays. Dans un formulaire F_FourNouveau, j'introduis la raison sociale, le nom du fournisseur, son adresse, soit le code postal qui génère la localité et le code ISO du Pays, soit la localité qui génère le code postal et le code Iso du pays. Ensuite vient un champ dans lequel je souhaiterais faire apparâitre le nom du pays en fonction du code ISO de celui-ci, mais n'enregistrer dans la T_FourNouveau que le code ISO du pays. C'est là que ça coince. Je ne parviens pas à construire une requête qui permettrait d'aller chercher le nom du pays dans la T_Pays, l'afficher dans le formulaire et n'enregistre dans la T_FourNouveau que le code ISO du pays. Quelqu'un aurait-il rencontré un cas semblable ? Merci pour votre aide

[tee_grandbois]

bonjour,

Ensuite vient un champ dans lequel je souhaiterais faire apparâitre le nom du pays en fonction du code ISO de celui-ci, mais n'enregistrer dans la T_FourNouveau que le code ISO du pays.

Alors pourquoi avoir créé le champ Four_pays dans la table T_FourNouveau ?
Si le champ ne sert à rien il faut le supprimer de la table et mettre le champ en indépendant dans le formulaire (cela revient à ne rien mettre dans la propriété "Source contrôle")
Ensuite pour l'alimenter, le principe est le même que pour le code ISO (Four_CodePays): ajouter la table T_Pays dans la requête de la propriété "Contenu" de la liste déroulante Four_CP faire la jointure entre les 2 tables, ajouter la colonne Pays_Nom et modifier les propriétés sous-jacentes de la liste déroulante (curieusement, la propriété "Nbre colonnes" était déjà à jour ...):

Code :

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

SELECT [T_Codes postaux].Cp_CPLocalite, [T_Codes postaux].CP_NomLocalité, [T_Codes postaux].CP_ISOPays, T_Pays.Pays_Nom FROM [T_Codes postaux] INNER JOIN T_Pays ON [T_Codes postaux].CP_ISOPays = T_Pays.Pays_ISO ORDER BY [T_Codes postaux].Cp_CPLocalite, [T_Codes postaux].CP_NomLocalité;

puis dans l'évènement AfterUpdate de Four_CP, alimenter le nom du pays:

Code :

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

    Me.Four_Pays = Me.Four_CP.Column(3)

enlever la commande DoCmd.GoToControl "Four_Pays" qui n'a plus lieu d'être puisque le champ est devenu non modifiable.

Je rappelle quand même que les contrôles de cohérence doivent se faire sur l'évènement avant mise à jour (champs concernés et formulaire) et non pas sur perte focus, évènement qui survient APRES mise à jour, donc trop tard pour effectuer une annulation de saisie incomplète.

[BCBFIS]

Merci bien tee_grandbois. Présenté comme cela, ça devient beaucoup plus clair. Je vais suivre tes conseils.
Bonne fin de journée.

[BCBFIS]

Rebonjour Tee_grandbois.
J'ai essayé de suivre les instructions que vous m'aviez transmises hier, mais il y a sûrement quelque chose qui m'échappe, car après une petite modification du formulaire, niveau présentation, j'ai modifié la source de contrôle du champ Four_CP mais cela ne fonctionne plus. Je n'ose pas tout modifier de peur de faire pire que bien. Merci encore pour votre aide.

[tee_grandbois]

bonjour,
la requête ne correspond pas vraiment au code fourni:



voici ce que donne l requête correcte:



et le code de mise à jour du nom du pays:

Code :

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

1
2
3
4
5
6
Private Sub Four_CP_AfterUpdate()
  Me.Four_Local = Me.Four_CP.Column(1)
  Me.Four_CodePays = Me.Four_CP.Column(2)
  Me.Indication_Four_Pays = Me.Four_CP.Column(3)
  DoCmd.GoToControl "Four_AssTVA"
End Sub

et la base corrigée: Correctif_Database12.zip

[BCBFIS]

Merci bien Tee_grandbois,
La solution paraissait cependant clairement expliquée dans la 1ère répponse; j'ai l'impression, parfois, de ne plus comprendre ce que je lis.
Une excellente journée; encore un tout grand merci.