With the new era of mobile computing, smartphones and tablets, wireless communications and cloud services, the USDA sought to take advantage of a mobilized workforce and the blurring lines between personal and corporate computing resources.
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
|Is there a way to programmatically restart a VB.Net application when an exception occurs?||8||46|
|Change Format on Data when exporting to Excel||4||23|
|What is the syntax for requery a form that exists on a Tab control (Acccess 2010)||3||8|
|linked subforms are yielding error: ... (800110108)||3||14|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
15 Experts available now in Live!