November 19, 2008 02:33am pst

1. vadimrapp1 111,150
2. LSMCons... 59,068
3. boag2000 22,525
4. matthews... 13,400
5. angelIII 13,325
6. peter57r 11,750
7. chapmandew 11,748
8. rorya 11,400
9. DatabaseMX 9,800
10. jimhorn 9,618
11. jimpen 8,875
12. kelvinsparks 7,825
13. TextReport 7,400
14. SidFishes 7,200
15. capricorn1 6,600
16. jmoss111 6,500
17. zorvek 6,000
17. mwvisa1 6,000
19. LPurvis 5,964
20. frankytee 5,350
21. adraughn 4,750
22. ee_rlee 4,500
23. nmcdermaid 4,400
24. harfang 4,100
25. ScottPletc... 4,080

1. vadimrapp1 111,150
2. LSMCons... 109,825
3. LPurvis 89,936
4. peter57r 80,586
5. rockiroads 44,447
6. capricorn1 39,518
7. SidFishes 37,544
8. jimhorn 36,229
9. stevbe 31,815
10. nico5038 26,250
11. thenelson 24,639
12. boag2000 22,665
13. angelIII 22,577
14. JDettman 20,743
15. matthews... 20,125
16. jefftwilley 19,800
17. harfang 19,172
18. DatabaseMX 16,950
19. Arthur_... 16,774
20. kelvinsparks 16,200
21. TextReport 15,950
22. jimpen 15,375
23. jadedata 12,677
24. shanesue... 12,514
25. chapmandew 11,748

07.06.2008 at 07:02AM PDT, ID: 23541638

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

7.7

How would you prevent from displaying the Excel automatic message box question "Do want to save the changes you made to xx.XLS" when an Excel file is closed ?

Asked by zimmer9 in Microsoft ADP, Microsoft Excel Spreadsheet Software, Access Coding/Macros

I am developing an Access 2003 application using Access as the front end and SQL Server as the back end database. I use the DoCmd.Transferspreadsheet command to transfer an Access table to Excel.
After the user views the Excel file and attempt to close the file, Excel automatically asks the following question in the form of a Message Box:

Do you want to save the changes you made to 'AAACCTS_2008....XLS' ? YES NO CANCEL

I use the following subroutine to DELETE the Excel file if the user chooses to do so. This routine works fine but I would like to prevent the Message Box generated by Excel from displaying and instead use my own MESSAGE BOX which would display the following question:

Do you want to save the file YES NO

Could you tell me how to prevent the 1st message box as follows:

"Do want to save the changes you made to 'AAACCTS_2008....XLS' ? YES NO CANCEL"

from displaying that is generated by Excel automaticallly, perhaps by using the commands:

xlApp.DisplayAlerts = False
xlApp.DisplayAlerts = True

I just want the following Message Box to display:

Do you want to save the file YES NO
----------------------------------------------------------------------------------------------------------

Private Sub StartDocLexNex(filename, footnote, strScreenType, txtDateFrom, txtDateTo)

Dim xlApp As Excel.Application
Dim xlWB As Excel.Workbook
Dim xlWS As Excel.Worksheet

Dim intRows As Long

Set xlApp = CreateObject("excel.application")

xlApp.Workbooks.Open (filename)

xlApp.Visible = True
Set xlWS = xlApp.ActiveWorkbook.Worksheets(1)
xlWS.Columns.AutoFit

intRows = xlWS.UsedRange.Rows.count

xlWS.Cells(intRows + 5, 1).Value = footnote

xlWS.Cells(intRows + 6, 1).Value = "For the period " & txtDateFrom & " To " & txtDateTo
xlApp.ScreenUpdating = True

If (MsgBox("Do you want to save the file", vbYesNo)) = vbYes Then
For Each xlWB In xlApp.Workbooks
xlWB.Save
Next xlWB

Set xlWS = Nothing
xlApp.Quit
Set xlApp = Nothing
Else

xlApp.ScreenUpdating = True
xlApp.Workbooks.Close
xlApp.Quit
Set xlWS = Nothing
Set xlWB = Nothing
Set xlApp = Nothing

Kill filename
End If

End SubStart Free Trial

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

           
           
             Private Sub A1099AAAAccts()            
    Set cn = New ADODB.Recordset
    strScreenType = "A1099"
        
    cn.ActiveConnection = CurrentProject.Connection
    cn.CursorType = adOpenStatic
    cn.CursorLocation = adUseServer
    cn.LockType = adLockReadOnly
            
    DoCmd.Hourglass True
    strScreenType = "A1099"
    
    Set com = New ADODB.Command
    With com
       .CommandType = adCmdStoredProc
       .CommandText = "dbo.procUDLAAAAcctsMod"
       .Parameters.Append .CreateParameter("DteFrom", adDate, adParamInput, , CDate(txtDateFrom1099.Value))
       .Parameters.Append .CreateParameter("DteTo", adDate, adParamInput, , CDate(txtDateTo1099.Value))
       .ActiveConnection = CurrentProject.Connection
       Set rstQueryFS = .Execute
    End With
        
    ExportedFile = strAccessPath0 & "AAAACCTS" & "_" & intYearSP & "_" & Format(Now, "mmddhhnnss") & ".XLS"
 
    DoCmd.TransferSpreadsheet acExport, 8, "dbo.tblUDLAAAAccts", ExportedFile, True, ""
           
    footnote = "This file represents AAA Debit Card Account Activity."
       
    MsgBox "AAA Debit Card Account records have been exported to Excel", vbOKOnly, ""
      
    If isFileExist(ExportedFile) Then StartDocLexNex ExportedFile, footnote, strScreenType, txtDateFrom1099.Value, txtDateTo1099.Value
    
    DoCmd.Hourglass False
End Sub

           
         

Keywords: How would you prevent from displayin…

	Title
1	CreateObject in C#
2	How could I modify a subroutine to pos…
3	How to print a date in an Excle file pas…
4	CreateObject("EXCEL.APPLICATIO…
5	Excel.Application
6	How would you modify a SUBROUTINE…

Loading Advertisement...

20080716-EE-VQP-32 / EE_QW_2_20070628

How would you prevent from displaying the Excel automatic message box question "Do want to save the changes you made to xx.XLS" when an Excel file is closed ?

Asked by zimmer9 in Microsoft ADP, Microsoft Excel Spreadsheet Software, Access Coding/Macros

About this solution