Discussion :

[Nana35]

Bonjour,
je travaille sur access 2003.
Comment vérifier la sélection dans une zone de liste à sélection multiple?
Mon code fonctionne uniquement en sélection multiple "aucune"!

Code :

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

1
2
3
4
5
If IsNull(Me.LST_PARCELLE) Then
    MsgBox "Sélectionner une ou plusieurs parcelles.", 48, "Sélection obligatoire!"
    DoCmd.CancelEvent
    DoCmd.GoToControl "LST_PARCELLE"
    Exit Sub

Et comment faire apparaître la sélection multiple dans MsgBox?
merci d'avance

[spaiku]

Bonjour,

peut-être trouveras tu ton bonheur ici :
http://access.developpez.com/faq/?page=zdl

N'hésite pas si les symptômes persistent

[Access Newbie]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim VarLr As Variant
dim maListe as String
 
For Each VarLr In Me!MaListe.ItemsSelected
    if Me!MaListe.Selected(VarLr) = true then
        maListe=maListe & Me!MaListe.item(varLr) & vbcrlf
    endif
Next VarLr
 
msgbox maListe