Carte du site
 Remerciements
 Netiquette
 Bugs
 Tables
 Requêtes
 Formulaires
 États (rapports)
 Modules
 APIs
 Chaînes
 Date/Time
 Général
 Ressources
 Téléchargeables

 Termes d'usage

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

© 1998-2001, Dev Ashish, All rights reserved. Optimized for Microsoft Internet Explorer