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!
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|SQL using aggregate function with HAVING / WHERE clause.||8||52|
|How to use Recordset, returned from a SPROC as the recourdsource of a form.||24||52|
|Ms access query change into mysql database||3||24|
Join the community of 500,000 technology professionals and ask your questions.