Msgbox bij afsluiten

Status
Niet open voor verdere reacties.

Morsyd

Gebruiker
Lid geworden
25 dec 2007
Berichten
165
Hallo, ik heb een formulier in Excel, en als ik het wil afsluiten (op het kruisje duwen) had ik graag de vraag gehad "bent u zeker dat u wilt afsluiten?" met een Yes & No knop.
Indien Yes moet hij wel degelijk het formulier afsluiten, indien niet moet hij gewoon het formulier weer terugtonen
Code:
Private Sub Userform_Terminate()
  Afsluiten = MsgBox("Afsluiten?", vbYesNo)
  If Afsluiten = vbNo Then
   End If
     
End Sub
wat is er mis aan???
 
Hallo

Gebruik het QueryClose event in plaats van het Terminate event van de Userform.

Wigi
 
Wat is hier dan mis aan? er gebeurt niets:confused:

Code:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 If MsgBox("Wilt u sluiten?", vbYesNo) = vbNo Then
 Cancel = True
End If
End Sub
 
gewoon onderaan in de code van een formulier, maar als ik in een ander formulier op het kruisje duw krijg ik ook de msgbox... raar

En zit je wel in de juiste userform?

(OK, misschien wat simpele vraag, maar ik moet het wel zeker weten :D)
 
Hang je filetje eens bij aub.

Momenteel werkt het al bij het formulier dat het moet werken... bij de andere krijg ik gwn de msgbox en of ik nu ja of nee klik, het verdwijnt toch, maar als ik in het bepaalde formulier zit en ik klik op ja (dus afsluiten) dan krijg ik nogmaals het kadertje :s
 
De keuze is aan jou:

file bijhangen: ik zal ernaar kijken
file niet bijhangen: ik zal er niet naar kijken

Kies maar :p
 
De keuze is aan jou:

file bijhangen: ik zal ernaar kijken
file niet bijhangen: ik zal er niet naar kijken

Kies maar :p

Your file of 153,0 KB bytes exceeds the forum's limit of 100,0 KB for this filetype.:(
 
Enkel een paar userforms en code, rest is niet nodig.
 
Dit is al wat je moet hebben, achter de juiste userform:

Code:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

    Afsluiten = MsgBox("Afsluiten?", vbYesNo)
    
    Cancel = (Afsluiten = vbNo)

End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan