Results 1 to 2 of 2
  1. #1
    Join Date
    Mar 2004
    Location
    California
    Posts
    502

    Unanswered: Multiple DoCmds Take Long & Crash Access 2003

    There must be a better (FASTER)way to accomplish this than what I have here. Even though it works it takes forever and it crashes (Freezes) Access 2003 totally.

    Any Ideas?

    Code:
    Private Sub Command38_Click()
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel2003, "qryBeachCitiesProg", "D:\flw\Access\YTD", True
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel2003, "qryBeachCitiesCBvsOTHER", "D:\flw\Access\YTD", True
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel2003, "qryCBAllProg", "D:\flw\Access\YTD", True
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel2003, "qryCBCapoBeachProg", "D:\flw\Access\YTD", True
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel2003, "qryCBIrvineProg", "D:\flw\Access\YTD", True
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel2003, "qryCBLagBchNoProg", "D:\flw\Access\YTD", True
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel2003, "qryCBLagBchSoProg", "D:\flw\Access\YTD", True
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel2003, "qryCBLagunaNiguelProg", "D:\flw\Access\YTD", True
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel2003, "qryCBMissionViejoProg", "D:\flw\Access\YTD", True
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel2003, "qryCBNewportBeachProg", "D:\flw\Access\YTD", True
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel2003, "qryCBNewportBeachCNProg", "D:\flw\Access\YTD", True
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel2003, "qryCBTustinProg", "D:\flw\Access\YTD", True
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel2003, "qryCBYorbaLindaProg", "D:\flw\Access\YTD", True
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel2003, "qryCBNRTProg", "D:\flw\Access\YTD", True
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel2003, "qryReMaxDesertProg", "D:\flw\Access\YTD", True
    I'd love to have a =MsgBox("Year To Date Procedure Finished") as the last statement in this but I'm missing something in the Syntax.

    Football Day Yea!

    Thanks . . . Rick

  2. #2
    Join Date
    Mar 2004
    Location
    California
    Posts
    502

    DoCmd works

    However it is quite slow.

    What could make this really fly?

    Is it possible to do something like

    Sub

    DoCmd exPortSpreadsheet file path name etc.
    AND exPortSpreadsheet file path name etc.
    AND exPortSpreadsheet file path name etc.
    AND exPortSpreadsheet file path name etc.
    AND exPortSpreadsheet file path name etc.
    MsgBox("Export Procedures Finished")

    End Sub

    By the way the MsgBox works!

    Thanks . . . Rick

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •