När man trycker på Nej knappen så vill jag att den skall avbryta. allså inte stänga av progremet


Private Sub mnuArkivClose_Click()
MsgBox "Är du säker på att du vill avsluta?", vbYesNo, ""
If MsgBox = vbNo Then

^- Vad skall jag skriva här ??
Exit Sub

Else
Unload Me
End If

End Sub


/Jonas

MsgBox returnerar ett värde, du måste ta tillvara på det i en variabel eller göra såhär istället.

Private Sub mnuArkivClose_Click()

If MsgBox("Är du säker på att du vill avsluta?", vbYesNo) = vbNo Then
Exit Sub
Else
Unload Me
End If

End Sub

Exit Sub gör så att koden avbryts.

/Johan

Funkar klocka, tack så hemskt mycket.. =)

/Jonas

Alternativ kan du lägga koden i QueryUnload. Vilket kommer göra att den frågar oavsett hur formuläret stängs ned.

Alternativ till En if sats kan vara Selct Case vilket jag tycker ger en bättre överblick. Samt lättare att förändra. T.ex Fråga om man vill spara eller inte, samt ha möjlighet att avbryta.

Private Sub mnuArkivClose_Click()
Unload Me
End Sub


Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Select Case MsgBox("Är du säker på att du vill avsluta?", vbYesNo)
Case vbNo
Cancel = True
End Select
End Sub