Solved

MS Access parent form event not received by VB? OCX control

Posted on 2010-09-06
2
606 Views
Last Modified: 2012-05-10
I am recreating an OCX UserControl in VB6 I did many years ago.  It is basically a series of buttons to be used in an MS Access 2003 form.  The UserControl provides standardized functions to navigate the records, add, edit, delete, save and undo.  It is also aware of the application and security context.

As I said, I developped and used such a control many years ago but I don't have the source code anymore.

I created the UserControl and dropped it in the Access Form.  Clicking on the buttons will raise the events and perform the appropriate action.

However, the control does not received the form's events.  

The code snippet from the control below illustrates that I declared a module variable withEvents to hold the form reference.  This variable is initialized in the Show event handler of the userControl.  It is used by the cmdAdd_click event to move the form to a new record (this is working).  The form also received the events raised by the control (such as BeforeAdd and AfterAdd).  However, the m_ParentForm_Current event is never fired (as any other form events I've tried).

I think it may be some configuration on either the VB6 or Access side.

I compiled the userControl in both Apartment and Single threaded modes without difference in the result.


Dim WithEvents m_ParentForm As Access.Form
Dim m_AccessApp As Access.Application


Private Sub UserControl_Show()
    
    If Ambient.UserMode Then
        Set m_ParentForm = Extender.Parent.object
        Set m_AccessApp = m_ParentForm.Application
    end if

end sub


Private Sub cmdAdd_Click()
    Dim wCancel As Boolean
    
    wCancel = False
    RaiseEvent BeforeAdd(wCancel)
    
    If Not wCancel Then
        m_AccessApp.DoCmd.GoToRecord acDataForm, m_ParentForm.Name, acNewRec
        RaiseEvent AfterAdd
    End If

End Sub


Private Sub m_ParentForm_Current()

    MsgBox "Current"
    
End Sub

Open in new window

0
Comment
Question by:ragoran
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
2 Comments
 
LVL 57

Accepted Solution

by:
Jim Dettman (Microsoft MVP/ EE MVE) earned 500 total points
ID: 33612939
<<I think it may be some configuration on either the VB6 or Access side. >>
  In Access, unless the property sheet reads "[Event Procedure]", the event won't fire even if sunk.  I have some code here to run through forms and add that if you want.
JimD.
0
 
LVL 14

Author Comment

by:ragoran
ID: 33613224
YES!

I knew it was something simple but could not remember.

Thanks Jim

0

Featured Post

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

It’s been over a month into 2017, and there is already a sophisticated Gmail phishing email making it rounds. New techniques and tactics, have given hackers a way to authentically impersonate your contacts.How it Works The attack works by targeti…
This article describes two methods for creating a combo box that can be used to add new items to the row source -- one for simple lookup tables, and one for a more complex row source where the new item needs data for several fields.
Familiarize people with the process of utilizing SQL Server stored procedures from within Microsoft Access. Microsoft Access is a very powerful client/server development tool. One of the SQL Server objects that you can interact with from within Micr…
In Microsoft Access, when working with VBA, learn some techniques for writing readable and easily maintained code.

752 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question