Discussion :

[[ZiP]]

Bonjour,

Voici mon code placé dans un module :

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
19
20
21
22
23
24
    Dim MaTable As Recordset
 
    Set MaTable = CurrentDb.OpenRecordset("tbl_observations")
    MaTable.FindFirst "IdVisite = " & Form_frm_visite_recherche.lstListeObservations.Value
 
    Form_frm_observation_visualisation.txtObservationDescription.Value = MaTable("ObservationDescription")
    Form_frm_observation_visualisation.lstObservationType.Value = MaTable("ObservationType")
    Form_frm_observation_visualisation.lstCategorie.Value = MaTable("Categorie")
    Form_frm_observation_visualisation.lstCategorieSous.Value = MaTable("CategorieSous")
 
    Form_frm_observation_visualisation.txtAction1Description.Value = MaTable("Action1Description")
    Form_frm_observation_visualisation.lstAction1Type.Value = MaTable("Action1Type")
    Form_frm_observation_visualisation.tkAction1Terminee.Value = MaTable("Action1Terminee")
 
    Form_frm_observation_visualisation.txtAction2Description.Value = MaTable("Action2Description")
    Form_frm_observation_visualisation.lstAction2Type.Value = MaTable("Action2Type")
    Form_frm_observation_visualisation.tkAction2Terminee.Value = MaTable("Action2Terminee")
 
    Form_frm_observation_visualisation.txtAction3Description.Value = MaTable("Action3Description")
    Form_frm_observation_visualisation.lstAction3Type.Value = MaTable("Action3Type")
    Form_frm_observation_visualisation.tkAction3Terminee.Value = MaTable("Action3Terminee")
 
    MaTable.Close
    Set MaTable = Nothing

Tout fonctionne bien jusqu'à :

Code :

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

Form_frm_observation_visualisation.txtAction2Description.Value = MaTable("Action2Description")

A partir de cette ligne, les données renvoyées de la base sont "Null" alors que j'ai bien des données dans ces champs dans ma base...

Le nom du champ est correct, j'ai fais l'essai, si il est erroné, j'ai un message d'erreur, ce qui n'est pas le cas ici.

Savez-vous ce qui peut provoquer ce genre de "bug" dans mon code ?

Merci,
ZiP

[[ZiP]]

Après pas mal de recherche et de test, je viens de trouver mon erreur qui était sous mes yeux depuis le début...

Ici :

Code :

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

MaTable.FindFirst "IdVisite = " & Form_frm_visite_recherche.lstListeObservations.Value

J'ai remplacé par :

Code :

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

MaTable.FindFirst "IdVisite = " & Form_frm_visite_recherche.lstListeVisites.Value

ZiP