Advertisement

06.08.2008 at 04:26PM PDT, ID: 23467745
[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!
9.3

How do I add a class to an ADP file in Access ?

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

How would I go about adding a class called CExcelMonitor to an ADP file and add this code to it:
(Would I perform an INSERT ?)
-------------------------------------
Private mstrFilePath As String
Private blnKillFile As Boolean

Public Property Set MonitoredWorkbook(wbkIn As Excel.Workbook)
   Set wbk = wbkIn
   Set app = wbk.Application
   mstrFilePath = wbkIn.FullName
End Property

Private Sub app_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean)
   If Wb.FullName = wbk.FullName Then
      app.EnableEvents = False
      app.Visible = False
      AppActivate "Microsoft Access"
      If MsgBox("Do you wish to keep a copy of the workbook?", vbQuestion + vbYesNo, _
                           "Keep workbook?") = vbNo Then
         blnKillFile = True
         wbk.Close False
         Kill mstrFilePath
      Else
         wbk.Close True
      End If
      app.Visible = True
      app.EnableEvents = True
   End If
   app.Quit
End Sub
Start Free Trial
 
Keywords: How do I add a class to an ADP file in …
Title
1 ADP and Export
2 Monitor completion of Requery on ADP …
3 Workbook_BeforeSave(ByVal Save…
4 Query about ADP Files
5 Access 2007 ADP Crashing
6 Access ADP over WAN
 
Loading Advertisement...
 
[+][-]06.09.2008 at 04:07AM PDT, ID: 21742217

View this solution now by starting your 30-day free trial. Setting up your free trial is quick, easy, and secure. We will return you to this solution, unlocked, when you're done.

 

About this solution

Zones: Microsoft ADP, Microsoft Excel Spreadsheet Software, Access Coding/Macros
Sign Up Now!
Solution Provided By: rorya
Participating Experts: 1
Solution Grade: A
 
 
 
Loading Advertisement...
20081112-EE-VQP-44 / EE_QW_2_20070628