waarom 2 maal op OK klikken bij messagebox vbOKCANCEL

[blueberry013]

Hallo,

Ik heb een probleempje...

Met deze code lukt het bij het afsluiten van een userform een messagebox te openen met Ok of cancel. Vraag is nu waarom ik 2 keer op OK of Cancel moet drukken eer de opdracht ook daadwerkelijk uitgevoerd wordt?

Ik zou dit graag met 1 muisklik willen oplossen...

Alvast bedankt voor de hulp!

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    
    If CloseMode = vbFormControlMenu Then
        Cancel = 1
    End If
    
    MsgBox "Wenst u af te sluiten?", vbOKCancel
    
    MSG = MsgBox("Wenst u af te sluiten?", vbOKCancel)
    
    If MSG = vbOK Then
    FormKalender3.Hide
    End If
    
End Sub

 

[edmoor]

Omdat dat 2x in je code staat.
De eerste keer toon je alleen de tekst en de tweede keer vang je het antwoord op.
Ik zou het iets anders in elkaar steken:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    
    If CloseMode = vbFormControlMenu Then
        Cancel = 1
    End If
    
    If MsgBox("Wenst u af te sluiten?", vbOKCancel) = VbOK Then
        FormKalender3.Hide
    End If
    
End Sub

 

[roeljongman]

als je het 2x vraagt moet je ook 2x antwoorden.

onderstaande zou voldoende moeten zijn

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    
    If CloseMode = vbFormControlMenu Then
        Cancel = 1
    End If
    
    MSG = MsgBox("Wenst u af te sluiten?", vbOKCancel)
    
    If MSG = vbOK Then
    FormKalender3.Hide
    End If
    
End Sub

 

[blueberry013]

Ok, zeer dom van me... ben nog vrij nieuw met vba

heel hard bedankt!! nu werkt het!

 

[Warme bakkertje]

Markeer je de vraag dan nog even als opgelost.