Discussion :

[mcharmat]

Bonsoir,

J'ai réaliser un petit application pour gérer les congés des médecins, pas énorme, juste pour ne pas avoir des problèmes avec l'administration.

Pour ajouter un mois a chaque médecin pour une nouvelle année, je le fais manuellement, pour celà j'ai mis un champ de l'identifiant du médecin[ID_Medecin] via une liste déroulante avec multiselectionner, et un champ [NbrCredit] par défaut "30" (1 mois=30jours), et la date [DateCredit] je met #01/01/nouvellleAnée#

Pour ajouter 30 jours pour chaque médecin, il faut que je sélectionne un a un les médecins, alors j'aimerai qu'a l'ouverture de la liste déroulante, tous les médecins sont sélectionner, comme ça je sais que je n'oublie personne.

J'ai essayer -1 ou Vrai, ça ne marche pas .

Merci.

[Gado2600]

Bonsoir,
As-tu essayé avec ItemsSelected ou selected comme fonctions ?

[mcharmat]

Bonsoir,

Je ne connais pas ces fonctions, mais j'ai trouver ça pour déselectionner :http://demco.developpez.com/faqtmp/?page=zdl

Code :

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

1
2
3
4
5
 
Dim VarLr As Variant
For Each VarLr In Me!MaListe.ItemsSelected
    Me!MaListe.Selected(VarLr) = False
Next VarLr

J'ai essayer ça, et malheureusement ça n'a pas marcher

Code :

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

1
2
3
4
5
Private Sub ID_Medecins_BeforeUpdate(Cancel As Integer)
For Each VarLr In Me!ID_Medecins.ItemsSelected
    Me!ID_Medecins.Selected(VarLr) = True
Next VarLr
End Sub

Merci et bonne nuit.

[mcharmat]

Re-Bonsoir,

J'ai essayer ça aussi avec un boutton c'est mieux, malheureusement ça n'a pas marcher aussi

Code :

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

1
2
3
4
5
6
Private Sub Commande26_Click()
Dim i As Long
For i = 0 To Me.ID_Medecins.ListCount - 1
    Me.ID_Medecins.Selected(i) = True
Next i
End Sub

Merci et bonne nuit.