Results 1 to 8 of 8
  1. #1
    Johnny12 is offline Advanced Beginner
    Windows XP Access 2007
    Join Date
    Dec 2012
    Posts
    31

    Command or Action 'OutputTo' isn't available now

    I created a DB to run a series of reports. Everything is working great until some people try and run the reports. The DB is saved on a network shared drive we all have access too. When I run it, I don't get any errors. But when others run it, they get an error at a random location each time. There are 23 total reports that need to be saved to file. The error could pop up on the 5th one, the 13th one or the 21th one. Its different each time. The only thing that is the same, where it errors, that report nor any following reports are saved. Any clues what is going on? Here is the code:





    Code:
    Option Compare Database
    
    
    '-----------------------------------------------------------'
    ' Save Daily and Archive Reports to File                    '
    '                                                           '
    '-----------------------------------------------------------'
    
    
    
    
    Function RunAllReports()
    On Error GoTo RunAllReports_Err
    
    
    
    
        
        
        
    '==========================================='
    '                                           '
    'Save Todays Priority Reports as PDF        '
    '                                           '
    '==========================================='
        
        
        
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9510", "PDFFormat(*.pdf)", "T:\Enterprise All\DCAPR Reports\Today\Priority Report - 9510.pdf", False, "", , acExportQualityPrint
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9515", "PDFFormat(*.pdf)", "T:\Enterprise All\DCAPR Reports\Today\Priority Report - 9515.pdf", False, "", , acExportQualityPrint
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9520", "PDFFormat(*.pdf)", "T:\Enterprise All\DCAPR Reports\Today\Priority Report - 9520.pdf", False, "", , acExportQualityPrint
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9530", "PDFFormat(*.pdf)", "T:\Enterprise All\DCAPR Reports\Today\Priority Report - 9530.pdf", False, "", , acExportQualityPrint
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9540", "PDFFormat(*.pdf)", "T:\Enterprise All\DCAPR Reports\Today\Priority Report - 9540.pdf", False, "", , acExportQualityPrint
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9550", "PDFFormat(*.pdf)", "T:\Enterprise All\DCAPR Reports\Today\Priority Report - 9550.pdf", False, "", , acExportQualityPrint
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9560", "PDFFormat(*.pdf)", "T:\Enterprise All\DCAPR Reports\Today\Priority Report - 9560.pdf", False, "", , acExportQualityPrint
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9570", "PDFFormat(*.pdf)", "T:\Enterprise All\DCAPR Reports\Today\Priority Report - 9570.pdf", False, "", , acExportQualityPrint
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9580", "PDFFormat(*.pdf)", "T:\Enterprise All\DCAPR Reports\Today\Priority Report - 9580.pdf", False, "", , acExportQualityPrint
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9590", "PDFFormat(*.pdf)", "T:\Enterprise All\DCAPR Reports\Today\Priority Report - 9590.pdf", False, "", , acExportQualityPrint
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9990", "PDFFormat(*.pdf)", "T:\Enterprise All\DCAPR Reports\Today\Priority Report - 9990.pdf", False, "", , acExportQualityPrint
    
    
    
    
    '==========================================='
    '                                           '
    'Save Archive copy of Todays PDF            '
    '                                           '
    '==========================================='
    
    
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9510", "PDFFormat(*.pdf)", "T:\Enterprise All\DCAPR Reports\Archive\9510\Archive Priority Report_9510_" & Format(Now(), "YYYY-MMM-DD-HH-MM-SS") & ".pdf"
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9515", "PDFFormat(*.pdf)", "T:\Enterprise All\DCAPR Reports\Archive\9515\Archive Priority Report_9515_" & Format(Now(), "YYYY-MMM-DD-HH-MM-SS") & ".pdf"
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9520", "PDFFormat(*.pdf)", "T:\Enterprise All\DCAPR Reports\Archive\9520\Archive Priority Report_9520_" & Format(Now(), "YYYY-MMM-DD-HH-MM-SS") & ".pdf"
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9530", "PDFFormat(*.pdf)", "T:\Enterprise All\DCAPR Reports\Archive\9530\Archive Priority Report_9530_" & Format(Now(), "YYYY-MMM-DD-HH-MM-SS") & ".pdf"
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9540", "PDFFormat(*.pdf)", "T:\Enterprise All\DCAPR Reports\Archive\9540\Archive Priority Report_9540_" & Format(Now(), "YYYY-MMM-DD-HH-MM-SS") & ".pdf"
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9550", "PDFFormat(*.pdf)", "T:\Enterprise All\DCAPR Reports\Archive\9550\Archive Priority Report_9550_" & Format(Now(), "YYYY-MMM-DD-HH-MM-SS") & ".pdf"
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9560", "PDFFormat(*.pdf)", "T:\Enterprise All\DCAPR Reports\Archive\9560\Archive Priority Report_9560_" & Format(Now(), "YYYY-MMM-DD-HH-MM-SS") & ".pdf"
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9570", "PDFFormat(*.pdf)", "T:\Enterprise All\DCAPR Reports\Archive\9570\Archive Priority Report_9570_" & Format(Now(), "YYYY-MMM-DD-HH-MM-SS") & ".pdf"
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9580", "PDFFormat(*.pdf)", "T:\Enterprise All\DCAPR Reports\Archive\9580\Archive Priority Report_9580_" & Format(Now(), "YYYY-MMM-DD-HH-MM-SS") & ".pdf"
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9590", "PDFFormat(*.pdf)", "T:\Enterprise All\DCAPR Reports\Archive\9590\Archive Priority Report_9590_" & Format(Now(), "YYYY-MMM-DD-HH-MM-SS") & ".pdf"
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9990", "PDFFormat(*.pdf)", "T:\Enterprise All\DCAPR Reports\Archive\9990\Archive Priority Report_9990_" & Format(Now(), "YYYY-MMM-DD-HH-MM-SS") & ".pdf"
    
    
    
    
    '==========================================='
    '                                           '
    'Save All DC Archive file in Excel format   '
    '                                           '
    '==========================================='
        DoCmd.OutputTo acOutputTable, "tbl999_READY_to_PRINT", "ExcelWorkbook(*.xlsx)", "T:\Enterprise All\DCAPR Reports\Archive\Archive - Daily Priority Report All DCs " & Format(Now(), "YYYY-MMM-DD-HH-MM-SS") & ".xls"
        
        
        
        
      
        
        
    
    
    RunAllReports_Exit:
        Exit Function
    
    
    RunAllReports_Err:
        MsgBox Error$
        Resume RunAllReports_Exit

    End Function


    Click image for larger version. 

Name:	CaptureError.PNG 
Views:	29 
Size:	26.8 KB 
ID:	41103

  2. #2
    June7's Avatar
    June7 is online now VIP
    Windows 10 Access 2010 32bit
    Join Date
    May 2011
    Location
    The Great Land
    Posts
    52,820
    In future, please post code between CODE tags to retain indentation and readability.

    Are these 19 reports identical in structure, just with different filter criteria?

    Are there simultaneous users of this db? Simultaneous multi-user db should be split design and each user run their own copy of frontend.

    Why output to Excel?
    How to attach file: http://www.accessforums.net/showthread.php?t=70301 To provide db: copy, remove confidential data, run compact & repair, zip w/Windows Compression.

  3. #3
    Johnny12 is offline Advanced Beginner
    Windows XP Access 2007
    Join Date
    Dec 2012
    Posts
    31
    First, thank you for the response!

    I apologize for no code tag. I believe I edited the above post correctly.

    Format is identical, but information and sorting slightly different in each one (the 4 digit number is a warehouse #), thus having 11 different reports. The PDF version (without timestamps) is manually sent to the warehouse for action after being reviewed, the PDF version with timestamp is an archive. The excel is a tool for the end user to look at to determine why the DB made a decision that it did. (determine which trailer to unload first). It has all records for all DC's even those not included on the report. Only one person can open the DB at a time and we have ensured that so far during testing.

  4. #4
    ranman256's Avatar
    ranman256 is offline VIP
    Windows Vista Access 2010 32bit
    Join Date
    Apr 2014
    Location
    Kentucky
    Posts
    9,521
    if it 'isnt available' that means access in in some 'mode'.
    Usu in some edit, or dialog....something that user must get out of so the menu returns to normal operation.

  5. #5
    ssanfu is offline Master of Nothing
    Windows 7 32bit Access 2010 32bit
    Join Date
    Sep 2010
    Location
    Anchorage, Alaska, USA
    Posts
    9,664
    I"m not sure what version of Excel you want. See below

    acFormatType for Docmd.OutputTo (https://ss64.com/access/acformattype.html)
    Name
    Description
    acFormatHTML HTML format
    acFormatRTF Rich Text Format
    acFormatSNP Access report snapshot
    acFormatTXT Plain text
    acFormatDAP Data Access Page (2003 only)
    acFormatXLS Excel 2000-2003
    acFormatXLSB Excel Binary Workbook
    acFormatXLSX Excel 2007 Workbook
    acFormat12XLSX Excel 2013 Workbook & later
    acFormatXPS XPS Format (Access 2007+)
    acFormatPDF .PDF (Access 2007+)


    Here are two versions of your code

    Instead of "PDFFormat(*.pdf)", use acFormatPDF

    Instead of "ExcelWorkbook(*.xlsx)", use acFormatXLS for Excel 2000-2003 or acFormatXLSX for Excel 2007 Workbook

    Code:
    Option Compare Database
    Option Explicit
    
    '-----------------------------------------------------------'
    ' Save Daily and Archive Reports to File                    '
    '                                                           '
    '-----------------------------------------------------------'
    Function RunAllReports()
        On Error GoTo RunAllReports_Err
    
        Dim PDFTimeStamp As String
    
        '==========================================='
        '                                           '
        'Save Todays Priority Reports as PDF        '
        '                                           '
        '==========================================='
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9510", acFormatPDF, "T:\Enterprise All\DCAPR Reports\Today\Priority Report - 9510.pdf", False, , , acExportQualityPrint
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9515", acFormatPDF, "T:\Enterprise All\DCAPR Reports\Today\Priority Report - 9515.pdf", False, , , acExportQualityPrint
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9520", acFormatPDF, "T:\Enterprise All\DCAPR Reports\Today\Priority Report - 9520.pdf", False, , , acExportQualityPrint
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9530", acFormatPDF, "T:\Enterprise All\DCAPR Reports\Today\Priority Report - 9530.pdf", False, , , acExportQualityPrint
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9540", acFormatPDF, "T:\Enterprise All\DCAPR Reports\Today\Priority Report - 9540.pdf", False, , , acExportQualityPrint
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9550", acFormatPDF, "T:\Enterprise All\DCAPR Reports\Today\Priority Report - 9550.pdf", False, , , acExportQualityPrint
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9560", acFormatPDF, "T:\Enterprise All\DCAPR Reports\Today\Priority Report - 9560.pdf", False, , , acExportQualityPrint
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9570", acFormatPDF, "T:\Enterprise All\DCAPR Reports\Today\Priority Report - 9570.pdf", False, , , acExportQualityPrint
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9580", acFormatPDF, "T:\Enterprise All\DCAPR Reports\Today\Priority Report - 9580.pdf", False, , , acExportQualityPrint
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9590", acFormatPDF, "T:\Enterprise All\DCAPR Reports\Today\Priority Report - 9590.pdf", False, , , acExportQualityPrint
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9990", acFormatPDF, "T:\Enterprise All\DCAPR Reports\Today\Priority Report - 9990.pdf", False, , , acExportQualityPrint
    
    
        '==========================================='
        '                                           '
        'Save Archive copy of Todays PDF            '
        '                                           '
        '==========================================='
        PDFTimeStamp = Format(Now(), "YYYY-MMM-DD-HH-MM-SS")
    
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9510", acFormatPDF, "T:\Enterprise All\DCAPR Reports\Archive\9510\Archive Priority Report_9510_" & PDFTimeStamp & ".pdf"
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9515", acFormatPDF, "T:\Enterprise All\DCAPR Reports\Archive\9515\Archive Priority Report_9515_" & PDFTimeStamp & ".pdf"
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9520", acFormatPDF, "T:\Enterprise All\DCAPR Reports\Archive\9520\Archive Priority Report_9520_" & PDFTimeStamp & ".pdf"
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9530", acFormatPDF, "T:\Enterprise All\DCAPR Reports\Archive\9530\Archive Priority Report_9530_" & PDFTimeStamp & ".pdf"
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9540", acFormatPDF, "T:\Enterprise All\DCAPR Reports\Archive\9540\Archive Priority Report_9540_" & PDFTimeStamp & ".pdf"
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9550", acFormatPDF, "T:\Enterprise All\DCAPR Reports\Archive\9550\Archive Priority Report_9550_" & PDFTimeStamp & ".pdf"
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9560", acFormatPDF, "T:\Enterprise All\DCAPR Reports\Archive\9560\Archive Priority Report_9560_" & PDFTimeStamp & ".pdf"
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9570", acFormatPDF, "T:\Enterprise All\DCAPR Reports\Archive\9570\Archive Priority Report_9570_" & PDFTimeStamp & ".pdf"
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9580", acFormatPDF, "T:\Enterprise All\DCAPR Reports\Archive\9580\Archive Priority Report_9580_" & PDFTimeStamp & ".pdf"
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9590", acFormatPDF, "T:\Enterprise All\DCAPR Reports\Archive\9590\Archive Priority Report_9590_" & PDFTimeStamp & ".pdf"
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9990", acFormatPDF, "T:\Enterprise All\DCAPR Reports\Archive\9990\Archive Priority Report_9990_" & PDFTimeStamp & ".pdf"
    
    
        '==========================================='
        '                                           '
        'Save All DC Archive file in Excel format   '
        '                                           '
        '==========================================='
        'for  Excel 2000-2003 (*.XLS)
        DoCmd.OutputTo acOutputTable, "tbl999_READY_to_PRINT", acFormatXLS, "T:\Enterprise All\DCAPR Reports\Archive\Archive - Daily Priority Report All DCs " & PDFTimeStamp & ".xls"
        
        ' OR
        
        'for  Excel 2013 & later (*.XLSX)
        'DoCmd.OutputTo acOutputTable, "tbl999_READY_to_PRINT", acFormatXLSX, "T:\Enterprise All\DCAPR Reports\Archive\Archive - Daily Priority Report All DCs " & PDFTimeStamp & ".xlsx"
    
    
    RunAllReports_Exit:
        Exit Function
    
    
    RunAllReports_Err:
        MsgBox Error$
        Resume RunAllReports_Exit
    
    End Function


    This version has "DoEvents" to have a delay between commands
    Code:
    Option Compare Database
    Option Explicit
    
    '-----------------------------------------------------------'
    ' Save Daily and Archive Reports to File                    '
    '                                                           '
    '-----------------------------------------------------------'
    Function RunAllReports()
        On Error GoTo RunAllReports_Err
    
        Dim PDFTimeStamp As String
    
        '==========================================='
        '                                           '
        'Save Todays Priority Reports as PDF        '
        '                                           '
        '==========================================='
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9510", acFormatPDF, "T:\Enterprise All\DCAPR Reports\Today\Priority Report - 9510.pdf", False, , , acExportQualityPrint
        DoEvents
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9515", acFormatPDF, "T:\Enterprise All\DCAPR Reports\Today\Priority Report - 9515.pdf", False, , , acExportQualityPrint
        DoEvents
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9520", acFormatPDF, "T:\Enterprise All\DCAPR Reports\Today\Priority Report - 9520.pdf", False, , , acExportQualityPrint
        DoEvents
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9530", acFormatPDF, "T:\Enterprise All\DCAPR Reports\Today\Priority Report - 9530.pdf", False, , , acExportQualityPrint
        DoEvents
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9540", acFormatPDF, "T:\Enterprise All\DCAPR Reports\Today\Priority Report - 9540.pdf", False, , , acExportQualityPrint
        DoEvents
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9550", acFormatPDF, "T:\Enterprise All\DCAPR Reports\Today\Priority Report - 9550.pdf", False, , , acExportQualityPrint
        DoEvents
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9560", acFormatPDF, "T:\Enterprise All\DCAPR Reports\Today\Priority Report - 9560.pdf", False, , , acExportQualityPrint
        DoEvents
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9570", acFormatPDF, "T:\Enterprise All\DCAPR Reports\Today\Priority Report - 9570.pdf", False, , , acExportQualityPrint
        DoEvents
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9580", acFormatPDF, "T:\Enterprise All\DCAPR Reports\Today\Priority Report - 9580.pdf", False, , , acExportQualityPrint
        DoEvents
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9590", acFormatPDF, "T:\Enterprise All\DCAPR Reports\Today\Priority Report - 9590.pdf", False, , , acExportQualityPrint
        DoEvents
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9990", acFormatPDF, "T:\Enterprise All\DCAPR Reports\Today\Priority Report - 9990.pdf", False, , , acExportQualityPrint
    
    
        '==========================================='
        '                                           '
        'Save Archive copy of Todays PDF            '
        '                                           '
        '==========================================='
        PDFTimeStamp = Format(Now(), "YYYY-MMM-DD-HH-MM-SS")
    
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9510", acFormatPDF, "T:\Enterprise All\DCAPR Reports\Archive\9510\Archive Priority Report_9510_" & PDFTimeStamp & ".pdf"
        DoEvents
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9515", acFormatPDF, "T:\Enterprise All\DCAPR Reports\Archive\9515\Archive Priority Report_9515_" & PDFTimeStamp & ".pdf"
        DoEvents
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9520", acFormatPDF, "T:\Enterprise All\DCAPR Reports\Archive\9520\Archive Priority Report_9520_" & PDFTimeStamp & ".pdf"
        DoEvents
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9530", acFormatPDF, "T:\Enterprise All\DCAPR Reports\Archive\9530\Archive Priority Report_9530_" & PDFTimeStamp & ".pdf"
        DoEvents
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9540", acFormatPDF, "T:\Enterprise All\DCAPR Reports\Archive\9540\Archive Priority Report_9540_" & PDFTimeStamp & ".pdf"
        DoEvents
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9550", acFormatPDF, "T:\Enterprise All\DCAPR Reports\Archive\9550\Archive Priority Report_9550_" & PDFTimeStamp & ".pdf"
        DoEvents
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9560", acFormatPDF, "T:\Enterprise All\DCAPR Reports\Archive\9560\Archive Priority Report_9560_" & PDFTimeStamp & ".pdf"
        DoEvents
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9570", acFormatPDF, "T:\Enterprise All\DCAPR Reports\Archive\9570\Archive Priority Report_9570_" & PDFTimeStamp & ".pdf"
        DoEvents
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9580", acFormatPDF, "T:\Enterprise All\DCAPR Reports\Archive\9580\Archive Priority Report_9580_" & PDFTimeStamp & ".pdf"
        DoEvents
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9590", acFormatPDF, "T:\Enterprise All\DCAPR Reports\Archive\9590\Archive Priority Report_9590_" & PDFTimeStamp & ".pdf"
        DoEvents
        DoCmd.OutputTo acOutputReport, "rpt_DCAPR_Report_9990", acFormatPDF, "T:\Enterprise All\DCAPR Reports\Archive\9990\Archive Priority Report_9990_" & PDFTimeStamp & ".pdf"
        DoEvents
    
    
        '==========================================='
        '                                           '
        'Save All DC Archive file in Excel format   '
        '                                           '
        '==========================================='
        'for  Excel 2000-2003 (*.XLS)
        DoCmd.OutputTo acOutputTable, "tbl999_READY_to_PRINT", acFormatXLS, "T:\Enterprise All\DCAPR Reports\Archive\Archive - Daily Priority Report All DCs " & PDFTimeStamp & ".xls"
        
        ' OR
        
        'for  Excel 2013 & later (*.XLSX)
        'DoCmd.OutputTo acOutputTable, "tbl999_READY_to_PRINT", acFormatXLSX, "T:\Enterprise All\DCAPR Reports\Archive\Archive - Daily Priority Report All DCs " & PDFTimeStamp & ".xlsx"
    
    
    RunAllReports_Exit:
        Exit Function
    
    
    RunAllReports_Err:
        MsgBox Error$
        Resume RunAllReports_Exit
    
    End Function

  6. #6
    Johnny12 is offline Advanced Beginner
    Windows XP Access 2007
    Join Date
    Dec 2012
    Posts
    31
    ssanfu, thank you very much sir, that appears to have done the trick.

  7. #7
    ssanfu is offline Master of Nothing
    Windows 7 32bit Access 2010 32bit
    Join Date
    Sep 2010
    Location
    Anchorage, Alaska, USA
    Posts
    9,664
    You are very welcome...

    Good luck with your project....

  8. #8
    Johnny12 is offline Advanced Beginner
    Windows XP Access 2007
    Join Date
    Dec 2012
    Posts
    31
    Interesting thing happened today. I've run this DB maybe 100 times, at least, with no problems what so ever. Sat with the end use went through every detail, tested everything multiple times again, zero problems. So great, I'm done and ready to hand it over. But first I have to go back into options/current database and deselect Navigation-Display Navigation Pane and Ribbon and Toolbar Option - Allow full menus. I do this so end uses can't easily change the DB. And what happens, the OutPutTo to not available error returns. I go back and re-enable those two options, and the error goes away.

    So, I'm very confused why that is happening. If there isn't a direct/quick fix, is there another way to prevent users from accidentally changing or deleting queries or forms and such?


    Edit - I made the initial screen a modal and if closed it closes the application, so users can't touch the queries or such. But I'm still confused why it's happening.

Please reply to this thread with any new information or opinions.

Similar Threads

  1. the command or action zoom 100% isn't available now
    By Gina Maylone in forum Access
    Replies: 5
    Last Post: 05-03-2017, 09:42 PM
  2. Replies: 6
    Last Post: 10-21-2014, 12:25 PM
  3. modify my outputto command button
    By cuddles in forum Forms
    Replies: 4
    Last Post: 05-14-2014, 05:18 AM
  4. Replies: 1
    Last Post: 02-13-2012, 10:43 AM
  5. The command or action Quit isn't available
    By Macallan60 in forum Access
    Replies: 0
    Last Post: 04-26-2010, 09:59 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
Other Forums: Microsoft Office Forums