Discussion :

[sl.info]

Bonjour,

Je cherche le moyen d'annuler l'ouverture de la liste d'une ComboBox;
Je dois vérifier si la personne click sur l'objet pour lui poser une question
Selon la réponse, l'objet peut être mise à jour ou doit rester dans son état.

- La propriété Enabled ne me permet pas de controler l'évèment MouseDown
- La propriété Locked me permet de controler l'évèment MouseDown mais l'action Dropdown s'éxécute...

Je vous remercie par avance pour vos réponses...

[Invité]

Bonjour

Essaye sur l'évènement Enter de ta liste déroulante.

Starec

[sl.info]

Le pb est le même sur l'évènement Enter...

Je me suis donc débrouillé avec la fonction SendKeys

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub cboPhase_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If cboPhase.Locked Then
        If MsgBox("Effacer l'import ?", vbQuestion + vbYesNo) = vbYes Then
            DoCmd.SetWarnings False
            DoCmd.RunSQL "Delete * from tblImport;"
            DoCmd.SetWarnings True
            cboPhase.Locked = False
            cboExercice.Locked = False
        Else
            SendKeys vbKeyEscape
            cmdIntegration.SetFocus
        End If
    End If
End Sub

@ bientôt