Discussion :

[star]

Bonjour,
J'ai développé une petite application mettant en oeuvre un formulaire dans lequel j'affiche les données des enregistrements de la table sous jacente.



Cependant, je rencontre un problème d'affichage des données au chargement du formulaire, ainsi que lorsque je passe d'un enregistrement au suivant ou précédent. Access affiche les données dans les champs du formulaire de manière aléatoire (voir la capture suivante) avec pour certains champs les données qui n'apparaissent pas.




Auriez-vous une idée du problème ou une solution ?
.

[star]

Il convient de préciser que les données sont stockées dans une base de données MySQL et que le formulaire est ouvert à partir d'un client Access 2016. Le problème se situe au niveau de l'affichage des données dans les champs lors de changements d'enregistrements.

A l'affichage d'un enregistrement comme ci-dessous, des champs ne sont pas valorisés, à l'instar de IdCompteur par exemple. Cependant, lorsque je clique sur le bouton du ComboBox, j'ai bien la donnée qui apparait dans le champ ainsi que dans la liste, ce qui prouve bien que la donnée est remontée du formulaire.





Comment corriger ce comportement d'Access ?

Je me vois mal délivrer l'application en l'état.

Merci d'avance
.

[star]

J'ai essaye avec la fonction VBA DoEvents sans réel succès probant.

Je désespère à moitié.
.

[loufab]

Bonjour,

Doevents ne résoudra pas ton problème.

C'est assez inhabituel ce comportement. Il faut faire des tests sur ton application pour avoir un diag.

Cordialement.

[star]

Ci-joint une vidéo de capture d'écrans qui montre ce qui se passe durant les changements d'enregistrements et leur affichage dans le formulaire : https://youtube.com/shorts/-EXOXiX-C...wm96686ltJyw-D

[loufab]

Bonjour,

Apparemment tu n'as pas configuré correctement ta zone de liste.

Vérifie Nombre de colonne, Colonne liée et LargeurS colonneS.

Ce sont les 3 piliers de la Zone de liste.

Cordialement,

[star]

Bonjour loufab,

Vérifie Nombre de colonne, Colonne liée et LargeurS colonneS

Chaque ComboBox a 2 colonnes : Id, Libelle
La colonne liée est la première
Largeur des colonnes:
- Id : 0cm
- Libelle : 8cm

Peut mieux faire ?
.

[loufab]

La colonne liée est la première

C'est quoi la valeur ?

[star]

C'est quoi la valeur ?

la Valeur de la colonne liée Id : UUID
Type de la colonne Id : CHAR(36)

Exemple :



.

[star]

Code :

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

1
2
3
4
5
6
7
8
9
 
    Application.Echo False ' Desactiver le rafraichissement de l'écran (figer l'ecran)
 
    cboIdMode_Populate
    cboIdLieu_Populate
    cboIdCompteur_Populate
    cboIdNavire_Populate
 
    Application.Echo True ' Reactiver le rafraichissement de l'ecran

Avec Application.Echo pas plus de changement de l'affichage aléatoire dans laquelle certains champs ne sont pas valorisés.
Auriez-vous des idées pourquoi ?
.

[loufab]

la Valeur de la colonne liée Id : UUID

Ce n'est pas ce que je t'ai demandé. Je veux savoir ce que tu as mis dans la propriété, pas la colonne que tu as lié.

Echo :
Si tu comprends l'objet de la commande, pourquoi tu l'utilise ? Espères-tu un miracle ? Access comme VBA ne fait pas de miracle, il fait juste ce que tu lui dis de faire.

N'ayant qu'une vue partielle de ton appli, le mieux serait de mettre un point d'arrêt et de suivre ce qui se passe pas à pas.

[tee_grandbois]

bonjour loufab et star,
juste pour être bien certain que le problème vient des listes déroulantes, qu'est-ce que cela donne si on les enlève, cela ramène t-il bien les données d 'origine ?

[star]

Bonjour tee_grandbois, loufab,

cela ramène t-il bien les données d 'origine

Les enregistrements sont bien remontés dans le formulaire, c'est juste que les listes déroulantes affichent leurs contenus un coup sur deux si je puis dire comme on peut le constater dans le short suivant :

Je veux savoir ce que tu as mis dans la propriété, pas la colonne que tu as lié

Je ne vois pas de quelle propriété tu fais référence

.

[tee_grandbois]

est-ce qu'il s'agit d'une table MySQL connectée via ADO, faisant suite à cette discussion ?
- ou alors est-elle liée ou est-ce une copie en table locale ?
- les tables qui servent de support aux listes déroulantes sont-elles locales ou viennent-elles aussi de MySQL ?
- que contient la propriété "Contenu" de chaque liste, ou est-ce ce type de code qui les alimentent: cboIdMode_Populate dans ce cas que contiennent-ils ?

je sais, cela fait beaucoup de questions mais il nous faudrait vraiment plus d'informations car avec des tables Access mêmes en base distante ou attachées, cette anomalie n'existe pas, à mon sens

[star]

est-ce qu'il s'agit d'une table MySQL connectée via ADO, faisant suite à cette discussion ?
- ou alors est-elle liée ou est-ce une copie en table locale ?
- les tables qui servent de support aux listes déroulantes sont-elles locales ou viennent-elles aussi de MySQL ?
- que contient la propriété "Contenu" de chaque liste, ou est-ce ce type de code qui les alimentent: cboIdMode_Populate dans ce cas que contiennent-ils ?

Ce sont des tables MySQL liées sous Access.
Les ComboBox sont bound à des tables MySQL par des requêtes in-line.

Ci-dessous en exemple, les propriétés de la liste IdMode :


Ci-dessous la procédure cboIdMode_Populate chargée d'alimenter les listes cboIdGenre, cboIdLieu et cboIdNavire par programme suivant le cas du Mode saisi par l'utilisateur :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub cboIdMode_Populate()
 
    Debug.Print "cboIdMode_Populate ForFicheReleve"
 
    If Me.cboIdMode.Value = "3e6ddce6-7b8a-11ee-9523-00090faa0001" Then ' Releves hebdomadaires
        Me.cboIdGenre.RowSource = "SELECT Id, Libelle FROM Genres WHERE Libelle <> 'Releve' ORDER BY Libelle;"
        Me.cboIdLieu.RowSource = "SELECT DISTINCT Li.Id, Li.Libelle FROM Lieux Li INNER JOIN Compteurs Co ON Co.IdLieu = Li.Id WHERE Co.IdNavire Is Null And Co.IdConsignataire Is Null ORDER BY Li.Libelle;"
        Me.cboIdNavire.RowSource = "SELECT Id, Libelle FROM Navires ORDER BY Libelle;"
    ElseIf Me.cboIdMode.Value = "3e6ddfee-7b8a-11ee-9523-00090faa0001" Then ' Releves mensuels
        Me.cboIdGenre.RowSource = "SELECT Id, Libelle FROM Genres WHERE Libelle = 'Releve' ORDER BY Libelle;"
        Me.cboIdLieu.RowSource = "SELECT DISTINCT Li.Id, Li.Libelle FROM Lieux Li INNER JOIN Compteurs Co ON Co.IdLieu = Li.Id WHERE Co.IdNavire Is Not Null And Co.IdConsignataire Is Null ORDER BY Li.Libelle;"
    ElseIf Me.cboIdMode.Value = "3e6de130-7b8a-11ee-9523-00090faa0001" Then ' Releves trimestriels
        Me.cboIdGenre.RowSource = "SELECT Id, Libelle FROM Genres WHERE Libelle = 'Releve' ORDER BY Libelle;"
        Me.cboIdLieu.RowSource = "SELECT DISTINCT Li.Id, Li.Libelle FROM Lieux Li INNER JOIN Compteurs Co ON Co.IdLieu = Li.Id WHERE Co.IdNavire Is Null And Co.IdConsignataire Is Not Null ORDER BY Li.Libelle;"
    End If
 
End Sub

.

[tee_grandbois]

dans quel évènement sont exécutés les chargements des combos ?

[star]

dans quel évènement sont exécutés les chargements des combos ?

Private Sub Form_Current()
.

[tee_grandbois]

Private Sub Form_Current()

c'est le bon choix ...

Ci-dessous la procédure cboIdMode_Populate chargée d'alimenter les listes cboIdGenre, cboIdLieu et cboIdNavire

sans connaitre le contenu des autres procédures, on remarque dans celle-ci que cboIdNavire n'est pas chargé dans tous les ElseIf ... est-ce volontaire ?

[star]

cboIdNavire n'est pas chargé dans tous les ElseIf... est-ce volontaire ?

En effet, le fonctionnel de l'application le prévoit
.

[tee_grandbois]

En effet, le fonctionnel de l'application le prévoit
.

OK ... donc, selon toi, cela ne vient pas l'application