Forms: Remplir des champs automatiquement dès que d'autres champs sont remplis	Author(s) Erika Yoxall

---Soumis par Erika Yoxall---

Remplir des champs automatiquement dès que d'autres champs sont remplis.

(Q)    Est-il possible d'avoir des champs remplis automatiquement dès que certains autres champs du formulaire sont remplis?

(A)    Un exemple typique est celui d'obtenir l'état et la ville connaissant le code postal. Si vous avez une table de code postaux contre lesquels on possède la ville et l'état, il devient aisé, à l'aide de la procédure événementielle onExit du contrôle de code postaux, ZIP, de pousser les valeurs de ville et d'état.

Sub Zip_OnExit(Cancel As Integer)
Dim varState, varCity As Variant
    varState = DLookup("State", "tblZipCode", "ZipCode =[Zip] ")
    varCity = DLookup("City", "tblZipCode", "ZipCode =[Zip] ")
    If (Not IsNull(varState)) Then Me![State] = varState
    If (Not IsNull(varCity)) Then Me![City] = varCity
End Sub