Avatar of route217
Flag for United Kingdom of Great Britain and Northern Ireland

asked on 

Insert Msg box in MS Access VBA Code

Hi Experts

I need a message box to appear when the following vba code is run to say the following and close down once the macro is complete

"This May Take Several minutes to run...........Please Wait!!!"

Private Sub Export_Quarterly_Reports_Click()

DoCmd.Echo False, "Exporting, Please Wait.........."

Dim RootMIdir As String
Dim FilePath As String
Dim xlPath As String
Dim rs As DAO.Recordset, sql As String
Dim xlobj As Object, wb As Object, ws As Object

xlPath = "\Report Templates\"
RootMIdir = "\Output Files"

Set xlobj = CreateObject("excel.application")
     Set wb = xlobj.Workbooks.Open(xlPath & "BB_Template.xls")
     Set ws = wb.Worksheets("AA_DATA")
          sql = "SELECT *"
          sql = sql & " FROM _DATA"
          Set rs = CurrentDb.OpenRecordset(sql)
          ws.Range("a2").CopyFromRecordset rs
         wb.SaveAs Filename:=RootMIdir & "\REPORT" & Format(Now(), " dd-mmm-yy") & ".xls"

Set ws = Nothing
Set wb = Nothing

Set xlobj = Nothing
Set rs = Nothing
DoCmd.Echo True

Open in new window

Microsoft Access

Avatar of undefined
Last Comment

8/22/2022 - Mon