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
Code:
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