Personalize the text of a MsgBox

[craig1988]

I would like to personlize the message displayed to a user.

The user clicks a button which runs the four append queries below. Each time the queries are ran, the number of records change.

I have turned off the SetWarnings.

When the import is complete, a MsgBox displays a message saying that "Records have been imported". I would like to be able to display a breakdown of the records imported for example.

0 DDI records added
4 DDO records added
2 CTI records added
0CTO records added

Hopefully someone can help me out

Function MMassImportOFAC()
On Error GoTo MMassImportOFAC_Err
    DoCmd.SetWarnings False
    DoCmd.Hourglass True
    DoCmd.OpenQuery "QOFACImportDDIn", acViewNormal, acReadOnly
    DoCmd.OpenQuery "QOFACImportDDOut", acViewNormal, acReadOnly
    DoCmd.OpenQuery "QOFACImportCTIn", acViewNormal, acReadOnly
    DoCmd.OpenQuery "QOFACImportCTOut", acViewNormal, acReadOnly
    Beep
    MsgBox "Records have been imported", vbInformation, "Import Complete"
    DoCmd.SetWarnings True

MMassImportOFAC_Exit:
    Exit Function
MMassImportOFAC_Err:
    MsgBox Error$
    Resume MMassImportOFAC_Exit
End Function

[ranman256]

dim lCnt as long 
lCnt = dcount("*","table")

msgbox  lCnt & " records imported"

[craig1988]

Hi Ranman

You are really helping me out so thank you for your ongoing help.

What table do I tagret to extract the correct figure?

I tried to target the append queries but I got an error message?

Regards
Craig