ComboBox_Change onderbreken

[wieter]

Bij een knop kan men een [Response....vbYes/No] zetten, die de routine verlaat, of verder zet.
Is het mogelijk, dat wanneer men op het pijltje van een ComboBox klikt,in een _Change event, er ook eerst een [response vbYes/No] komt?
Indien ja, hoe is dan de syntax van die response?

 

[gast0660]

Voor wat ik van uw vraag begrijp, zoiets?

Private Sub ComboBox1_Change()
  If MsgBox("Correcte ingave?", vbYesNo + vbQuestion, "Kijk de gegevens na!") = vbNo Then Exit Sub
'uw macro
End Sub

 

[wieter]

Bedankt Dotchie.
Ik had al zoiets geprobeerd, werkt ook, MAAR ComboBox1(jaartal) zou niet mogen veranderen.

Ter verduidelijking: bestand bij gevoegd.

ps. Alle routines in het bestand zijn het werk van anderen. Mijn bijdrage was enkel kleine wijzigingen en aanpassingen.

 

[edmoor]

Als Combobox1 niet mag veranderen hoef je alleen maar het attribuut Enabled op False te zetten.

 

[wieter]

Zo simpel, maar je moet er aan denken.
De bedoeling is, dat een onbevoegde, de planning niet naar de kl***n kan helpen.
De administrator, weet wel wat hij moet doen, bij de jaarwisseling.
Bedankt Ed.

 

[edmoor]

Wat de verschillende keuzes voor een messagebox betreft kan je ook dit doen:

    Select Case MsgBox("Keuze", vbYesNoCancel)
        Case vbYes
            [COLOR="#008000"]'Code bij Yes[/COLOR]
        Case vbNo
            [COLOR="#008000"]'Code bij No[/COLOR]
        Case vbCancel
            [COLOR="#008000"]'Code bij Cancel[/COLOR]
    End Select

 

[HSV]

Is het mogelijk, dat wanneer men op het pijltje van een ComboBox klikt

Private Sub ComboBox1_Click()

 

[wieter]

Weer een goede tip Ed,
Dit uittesten geeft mij weer enkele uren tijdverdrijf gedurende die ellendige winter.
Bedankt !

 

[wieter]

@Harry, bedankt
Dat had ik ook al geprobeerd, maar ook dan wijzigt de CB.

 

[HSV]

Excuses, ik bedoelde eigenlijk deze...

Private Sub ComboBox1_DropButtonClick()

....maar ik neem aan dat je geholpen bent.

 

[wieter]

Ik ga het toch proberen Harry.
Kwestie van het te willen weten.

 

[wieter]

Gelijk even snel getest.
Werkt super Harry!
Die : _DropButtonClick() kende ik niet. (weer bijgeleerd).
Ik heb nu zelfs 2 mogelijkheden.
Bedankt Harry.

 

[edmoor]

Als je die niet kende dan ken je waarschijnlijk ook de methode niet om dat soort dingen per object te kunnen kiezen:

 

[wieter]

De methode kende ik wel, maar die _DropButtonClick() was me nooit opgevallen.
En dus ook nog nooit gebruikt

 

[edmoor]

Die ellendige winter geeft je toch maar mooi de gelegenheid die events voor meerdere objecten eens te bekijken en mee te spelen