Discussion :

[mgascult]

Bonjour à Tous,

Je bug depuis hier sur ce souci et ne trouve pas la réponse
Soit j'ai de la m.... dans les yeux soit il y a un vrai problème.

J'ai créé un liste sur la requête ci-dessous elle contient 21 champs.



Mon code qui pour moi est bon

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
DoCmd.OpenForm "F_suivi_demande_HHE"
 
[Forms]![F_suivi_demande_HHE]!txt_ID_demande.Value = lst_rech_demande.Column(0)
[Forms]![F_suivi_demande_HHE]!txt_date_demande.Value = lst_rech_demande.Column(1)
[Forms]![F_suivi_demande_HHE]!txt_nom_demandeur.Value = lst_rech_demande.Column(2)
[Forms]![F_suivi_demande_HHE]!txt_nom_valideur.Value = lst_rech_demande.Column(3)
[Forms]![F_suivi_demande_HHE]!txt_date_debut.Value = lst_rech_demande.Column(4)
[Forms]![F_suivi_demande_HHE]!lst_type_demande.Value = lst_rech_demande.Column(5)
[Forms]![F_suivi_demande_HHE]!txt_prenom_demandeur.Value = lst_rech_demande.Column(6)
[Forms]![F_suivi_demande_HHE]!txt_sigle_demandeur.Value = lst_rech_demande.Column(7)
[Forms]![F_suivi_demande_HHE]!txt_mail_demandeur.Value = lst_rech_demande.Column(8)
[Forms]![F_suivi_demande_HHE]!txt_prenom_valideur.Value = lst_rech_demande.Column(9)
[Forms]![F_suivi_demande_HHE]!txt_sigle_valideur.Value = lst_rech_demande.Column(10)
[Forms]![F_suivi_demande_HHE]!txt_mail_valideur.Value = lst_rech_demande.Column(11)
[Forms]![F_suivi_demande_HHE]!txt_date_valid.Value = lst_rech_demande.Column(12)
[Forms]![F_suivi_demande_HHE]!txt_date_fin.Value = lst_rech_demande.Column(13)
[Forms]![F_suivi_demande_HHE]!lst_immeuble.Value = lst_rech_demande.Column(14)
[Forms]![F_suivi_demande_HHE]!lst_pk.Value = lst_rech_demande.Column(15)
[Forms]![F_suivi_demande_HHE]!txt_date_confirm.Value = lst_rech_demande.Column(16)
[Forms]![F_suivi_demande_HHE]!txt_date_envoi_mail_HHE.Value = lst_rech_demande.Column(17)
[Forms]![F_suivi_demande_HHE]!lst_statut_demande.Value = lst_rech_demande.Column(18)
[Forms]![F_suivi_demande_HHE]!txt_commentaire.Value = lst_rech_demande.Column(19)
[Forms]![F_suivi_demande_HHE]!lst_motif.Value = lst_rech_demande.Column(20)

Et le champ qui fait défaut



A l'ouverture du formulaire, tous les champs mentionnés dans le code sont bien complétés et corrects sauf le champ motif qui est vide
J'ai refais ma liste, ma requête contrôlé je ne sais plus combien de fois l'ordre des champs mais rien n'y fait il reste vide

Les propriétés sont identique au champ immeuble hormis la source.


Merci pour votre aide et Belle journée 🌞

[micniv]

Comme c'est la dernière colonne de ta liste, as-tu bien saisi le nb correct de colonnes (21) ?

[mgascult]

bonjour,

merci micniv,
non j'ai mis 20 car on commence à partir de 0 mais j'ai tenté 21 quand même au cas ou et rien non plus

[hyperion13]

Salut,
Un truc tout con (c'est comme tout bon mais avec un c)
lst_rech_demande.Column(20) ne retournerait-elle pas une valeur NULL ?

[mgascult]

merci hyperion13,
Non et pour le fait, j'en suis sur car c'est un champ obligatoire.
Je n'arrive pas à comprendre

[hyperion13]

Re,
Et pourquoi ne pas alimenter votre combobox (lst_motif) au chargement du form !

Code :

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

1
2
3
4
5
6
Private Sub Form_Load()
Dim strSql As String
    strSql = "SELECT lib_motif FROM T_motifs"
    Me.lst_motif.RowSource = ""
    Me.lst_motif.RowSource = strSql
End Sub

[mgascult]

en fait cette combo doit être alimentée en entrée par la requête qui alimente lst_rech_demande mais cette donnée peut etre modifiée par la liste déroulante en cas de changement.
Dans la liste Immeuble (lst_immeuble), je ne rencontre pas le souci alors que je suis aussi sur une combobox

[mgascult]

je viens de trouver mais c'est incompréhensible j'ai inversé ces deux champs

Code :

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

1
2
[Forms]![F_suivi_demande_HHE]!txt_commentaire.Value = lst_rech_demande.Column(20)
[Forms]![F_suivi_demande_HHE]!lst_motif.Value = lst_rech_demande.Column(19)

et je récupère bien les données.
Mais c'est contre l'ordre de la requête

[micniv]

Comme c'est la dernière colonne de ta liste, as-tu bien saisi le nb correct de colonnes (21) ?

C'est bien ce à quoi je pensais : Je te demandais combien de colonnes avais-tu déclaré dans les propriétés de la listbox ...
Tu as dû mettre 20 au lieu de 21 !
Et c'est pour ça que le !lst_motif.Value = lst_rech_demande.Column(19) fonctionne

[mgascult]

non j'ai mis 19 au lieu de 20