ComboBox - Annuler Dropdown

Version imprimable

05/11/2007, 14h46
sl.info

ComboBox - Annuler Dropdown

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... ;)
05/11/2007, 14h54
Invité

Bonjour

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

Starec

SendKeys

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

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

Code:

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 :mur: