Annulér knap i Msgbox

Den indbyggede meddelelse giver jo netop mulighed for at acceptere eller annullere. Hvis du annullerer, bliver forespørgslen ikke kørt!

Jeg er ikke helt med på, hvad du vil ud over det?

Dim msg, Style, Title, Ctxt, Response
   
    msg = "Du har aktiveret slet af data. Vil du fortsætte ?"
    Style = vbYesNo + vbCritical + vbDefaultButton2    ' Define buttons.
    Title = "Slet Data"    ' Define title.
    Ctxt = 1000    ' Define topic
    Response = MsgBox(msg, Style, , Title, Ctxt)
   
    If Response = vbYes Then    ' User chose Yes.
   
        SletData
   
    Else
   
        MsgBox ("Du har valgt at afbryde sletning af data.")
   
    End If

eller bare:

If msgbox("Ønsker du at slette?", vbquestion+vbokcancel, "Slet posten?") = vbOK then
    docmd.Setwarnings false
    docmd.Runcommand accmddeleterecord
    docmd.Setwarnings true
endif

Prøv med   

If MsgBox("My message", vbOKCancel) = vbCancel Then
        Exit Sub
    Else
        Din kode her.
    End If

thanx :o)

Hej
Det var lige den If sætning jeg skulle bruge.
Tak for hurtig hjælp til alle

Pc