Discussion :

[mihego32]

Bonjour,

Un bête truc que je ne comprends plus ?

Dans une nouvelle application MsAccess 2010 (.accdb), j'ai un formulaire avec une combobox "cboFirme" qui me permet de sélectionner une firme. La combobox affiche la première colonne dont la largeur est > 0, ici c'est column(0) avec le nom de la firme.
J'ai 2 contrôles de type text où je souhaite afficher la région de la firme, "ctlFirmeRégion" (2ème colonne), et son numéro de téléphone, "ctlFirmeTél" (3ème colonne).
Les propriétés de source de ces contrôles contiennent "=[cboFirme].[column](1)" et "...(2)", syntaxe confirmée dans l'aide.
A l'affichage du formulaire, les 2 champs affichent "#Nom ?".
Où est donc mon erreur ? Problème de compatibilité de versions ?

A titre d'info, sous Windows XP Sp3, je viens de passer à Access 2010 (Microsoft Office Professional Plus 2010, version 14.0.5128.5000 (32 bits)), après avoir développé une floppée d'applications depuis Access v2 jusqu'à la 2003. Ces "anciennes" applications n'ont pas été converties en format Access 2010, elles restent des .mdb qui utilisent avec succès une syntaxe comme "=cboPers.column(2)" même sous Access 2010.

Merci d'avance si quelqu'un peut éclairer ma lanterne. Je n'ai rien trouvé dans la FAQ ni sur d'autres sites, je continue à cherche et si je trouve, je posterai ici la solution.

[Orion34080]

Bonjour,

Dans l'événement "Après MAJ" de cboFirme
tu places le code suivant :

Code :

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

1
2
3
4
Private Sub cboFirme_AfterUpdate()
      Me.ctlFirmeRégion = Me.cboFirme.Column(1)
      Me.ctlFirmeTél= Me.cboFirme.Column(2)
End Sub

Et tu devrais obtenir le résultat escompté : à chaque sélection de ligne dans ta combo, les deux zones de texte reflèteront bien la valeur des deux autres colonnes (cachées) de ta combo.

Michel

[mihego32]

Salut à toutes et tous,

Je sais que cela fait presque 6 ans que j'ai posté sur ce problème et il me sembait y avoir répondu mais comme le problème refait surface, persiste et frappe ...

La solution proposée par Orion34080 n'est intéressante que pour une cbo modifiée et pas pour une cbo qui affiche l'enregistrement courant. Par ailleurs, il ne s'agit pas de colonnes cachées, AMHA.

Avec mon programme développé et opérationnel depuis 2008 et en constante amélioration où il s'agit de noter mes activités quotidiennes, en indiquant pour chacune son Domaine (Windows, Access, Bricolages etc) et les Personnes liées, j'ai donc un formulaire Notes avec 2 sous-formulaires pour choisir par Cbo le(s) Domaine(s) et Personne(s). Pour le domaine, j'ai un champ "dérivé" dans lequel j'indique le sommaire des particularités du Domaine, avec la formule :

=Nz(cboDomaine.Column(2)) ou son équivalent =Nz([cboDomaine].[Column](2))

correspondant à la 3ème colonne affichée de la requête de ma cbo. J'ai un mécanisme similaire pour indiquer l'adresse de la Personne. La fonction Nz(MyVar[, valifNull]) sert pour le cas où aucun Domaine ou Personne n'est associé à la Note affichée et où la cbo est vide et ses colonnes sont donc de valeur Null.

Après une révision majeure de la base Programme pour passer du format .MDB en .ACCDB, j'ai e.a. ajouté des filtres et séquences de tri ET surtout l'affichage de plusieurs champs liés pour les Domaines. Et cela fonctionnait impeccablement avec les bons affichages.

Donc, développement et tests terminés, je connecte une autre base Data et bardaf, c'est l'embardée : les champs liés au Domaine affichent "#Nom ?" tandis que celui de la Personne affiche correctement l'adresse de la Personne. Les syntaxes et toutes les propriétés des champs sont identiques. Supprimer la foction NZ() ne change rien.

Je vais tenter de remédier au problème avec une solution similaire à celle d'Orion34080 mais sur l'évènement Current mais cela me fait ch... choir les cheveux de constater ces comportements erratiques d'Access.

Si vous avez un tuyau, merci d'avance.

[mihego32]

Suite de mes recherches. J'ai donc mis le code suivant dans l'évènement OnCurrent de mon sous-formulaire :

Code :

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

1
2
3
4
5
6
7
8
Option Compare Database
Private Sub Form_Current()
    Me.ctlDomN° = Nz(Me.cboDomaine.Column(5))
    Me.ctlChkObsDom = Nz(Me.cboDomaine.Column(6))
    Me.ctlGroupeN° = Nz(Me.cboDomaine.Column(7))
    Me.ctlGroupe = Nz(Me.cboDomaine.Column(2))
    Me.ctlChkObsGrp = Nz(Me.cboDomaine.Column(8))
End Sub

A l'exécution, j'ai un message pour la 1ère ligne d'impossibilité d'attribuer une valeur à l'objet. Je pensais que c'était parce qu'il avait les propriétés Activé = NON et Verrouillé = OUI. J'ai modifié ces propriétés : idem. J'ai alors supprimé la propriété Source du Contrôle.

Et cela fonctionne ... sauf que le sous-formulaire étant en continu, les champs dérivés du 2ème Domaine (Logiciels perso) affichent tous les valeurs dérivées du 1er Domaine (Access). Résultat qui rend inutile à 100 % l'affichage de ces informations.

Donc, jusqu'à nouvel ordre, Access 2010 ne permet que de temps à autre et de manière imprévisible d'afficher dans un contrôle les informations provenant d'autres colonnes de la Cbo que celle affichée. Je devrais me sentir heureux d'être retraité car comment expliquer à un client ou boss que MS produit des logiciels imprévisibles au comportement variant d'un instant à l'autre.

Provisoirement, je vais rendre invisibles ces contrôles d'affichage de valeurs dérivées et mettre en commentaire l'évènement Oncurrent. NA !

PS : en plus, je perds au moins une vingtaine de secondes lorsqu'en mode Création, je sélectionne le sous-formulaire puis un de ses contrôles avant d'avoir la main pour voir sa Fenêtre de Propriétés. Je me demande ce qu'Access turbine pendant ce temps. Essayerait-il de dégoûter ses utilisateurs et développeurs ?

[mihego32]

Je suppose qu'il est illusoire de chercher à comprendre comment cela fonctionne correctement maintenant. Mes étapes :
1. Utilisation - pour confirmation - de l'évènement AfterUpdate de la Cbo (avec le même code que pour le OnCurrent) : les valeurs ne sont affichées que lorsqu'un Domaine est choisi dans la CBO mais alors comme pour OnCurrent, tous les domaines de la Notes affichent les mêmes valeurs : sans intérêt ? Donc j'ai supprimé ces Events.
2. Juste pour voir, je remets la source du contrôle pour le 1er des 4 champs avec :
=Nz(cboDomaine.Column(5))
et ... affichage ok. Puis le 2ème : ok. Jusqu'au 5ème : affichages ok aussi bien pour les valeurs numériques que de texte ou de check-box. A nouveau, passage à la base Data réelle et ... ? Ouiiiiii cela fonctionne.

Pourquoi cela ne fonctionnait-il pas pendant un certain temps ? Juste pour faire perdre du temps, sans doute.

L'important c'est que cela fonctionne mais je ne peux pas juste indiquer "résolu" sans savoir pourquoi et en apprendre quelque chose ? D'autant que mon PC continue à ramer dans la session Access à chaque changement de focus en mode Création !