waarde van msgbox gebruiken

[gotcha123]

ik heb een msgbox gemaakt waarin het de bedoeling is dat als je op OK drukt een (gefilterd) formulier geopend wordt en er automatisch een nieuwe record klaarstaat om in te vullen.
Echter als je op Annuleren zou drukken, dan is het de bedoeling dat hetzelfde formulier opent, maar dat het laatst ingevulde record getoond moet worden.
Ik heb dit trachten te doen met volgende VBA code

DoCmd.OpenForm stDocName, , , stLinkCriteria
    MsgBox "Welkom! Wenst u een nieuwe record aan te maken, druk dan op OK. Wenst u de laatst ingevoerde record te bekijken, druk dan op Cancel", vbOKCancel, "Welkom in het basisprofiel van deze speler!"
        If vbOKCancel = 1 Then DoCmd.GoToRecord , , acNewRec Else   
        DoCmd.GoToRecord , , acLast

Echter als ik dit doe, dan opent hij altijd een nieuwe record, zelfs al druk ik op annuleren.

Kan iemand mij de fout aanwijzen in de If-procedure?

Alvast bedankt!

 

[dizzl]

Je toont de msgbox maar haalt de waarde niet op.

 Dim resultaat As VbMsgBoxResult
 resultaat = MsgBox("Wil je toevoegen?", vbYesNo)
 If resultaat = vbOK Then
    'doe dit
 End If

 

[gotcha123]

thanks, dit lukt heel goed!

er mag een slotje op...