Discussion :

[informer]

Bonjour à tous

Voilà mon problème, j'ai le formulaire suivant (cf. image)

Objet	Nom
formulaire type Navigation	frmNavMain
sous-formulaire Navigation	frmTabNavMain
bouton Monitoring	btnNavMonitoring
Formulaire associé au btnNavMonitoring	frmOpe
Dans frmOpe, la Zone de Liste	cbxFile

J'ai cette fonction dans un module appellée par le bouton Ok

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Function fAddCboxFile(psPath As String, psFile As String, iIdx As Integer)
 
        Dim oCtrl As Object
        Dim oCbx As ListBox
 
        Debug.Print Forms!frmNavMain!frmTabNavMain.Form.cbxFile
        Set oCbx = Forms!frmNavMain!frmTabNavMain.Form.cbxFile
        Debug.Print oCbx.Name
        oCbx.RowSource = oCbx.RowSource & "," & psFile
 
        Set oCbx = Nothing
 
End Function

Mais rien n'et chargé

Merci par avance pour tout aide

[marot_r]

Bonjour.

Si tu es sur un système en Français, il me semble que le séparateur de valeur dans une liste est le point-virgule ";" et non la virgule.
Attention si ton système est prévu pour fonctionner dans un environnement multilingue cela peut être un problème.

À part cela, t'es-tu assuré que ton code était bien exécuté ?
Une façon facile de le faire est de mettre une instruction du type MsgBox "fAddCboxFile" dans ton code.

Aussi, l'accès au formulaire dans un formulaire de navigation est un peu complexe.
Je ne me souviens plus des détails mais ce n'est pas la méthode habituelle donc il y a peut-être aussi un problème là.

Pour ta liste je te sugère le préfixe lst au lieux de cbx qui évoque plutôt une comboBox (liste déroulante qui n'affiche qu'une seule valeur et affiche la liste des valeurs sur demande) qu'une liste tout court (qui affiche tout de suite une série de valeurs).

A+

[informer]

Bonjour marot_r et bonne annnée 2020

Merci pour tes remarques que j'ai de suite appliquées


La solution est de sélectionner dans la feuille propriété->Données -> Origine source = Liste valeurs


Je veux maintenant deux colonnes, quelle est la méthode à utiliser?

[informer]

S'il existe plusieurs colonnes alors il faut utiliser la méthode addItem

Code :

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

1
2
3
With oLstBox
    .AddItem psFile & ";" & psStatus
End With

[marot_r]

Bonjour.

Si tu as bien accès, il faut mettre un point-virgule entre les éléments à la place de la virgule.
Vérifie que tu as bien défini 2 colonnes dans la propriété nombre de colonnes.
Et il est possible qu'il faille mettre :

Code :

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

oLst.requery

après l'assignation des valeurs.

A+

[informer]

Merci encore marot_r pour ton aide.