messagbox doet het niet

[jojo96]

In access 2007 heb ik een knop gemaakt voor opslaan en nieuw. Als de actie is uitgevoerd moet er een messagebox komen met een uitroepteken. Alleen komt dit uitroepteken er niet. En ook heb ik een titel ingevuld voor de messagebox, maar die komt er ook niet.
Wat is er dan mis met mijn code?

Private Sub opslaan___nieuw_Click()
On Error GoTo Err_opslaan___nieuw_Click


    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.GoToRecord , , acNewRec

Exit_opslaan___nieuw_Click:
    MsgBox prompt:="De lab uitslagen zijn succes vol ingevoerd."
    Title = "Toevoegen"
    Style = vbInformation
    Exit Sub

Err_opslaan___nieuw_Click:
    MsgBoxErr.Description
    Resume Exit_opslaan___nieuw_Click

End Sub

 

[Warme bakkertje]

Exit_opslaan___nieuw_Click:
    Msg ="De lab uitslagen zijn succes vol ingevoerd."
    Title = "Toevoegen"
    Style = vbInformation
    MsgBox(Msg,Style,Title)
    Exit Sub

 

[OctaFish]

Waarom zo gruwelijk omslachtig?

MsgBox "De lab uitslagen zijn succes vol ingevoerd.", vbInformation, "Toevoegen"

 

[Warme bakkertje]

Voor mij hoeft het ook niet, hoor ('Less is more') maar ik heb het verwijt al gekregen dat voor een beginnend VBA-gebruiker deze korte codes vaak onbegrijpelijk en daarom naderhand ook moeilijk aan te passen zijn ingeval van veranderingen op het werkblad of database.

 

[Mark xl]

Ik vind het niet zo heel erg omslachtig, als je al nagaat hoeveel mensen de intellisense niet eens lezen... (of F1 drukken)
het is nu toch duidelijk op welke plaats welke instelling van de messagebox wordt gelezen