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.
Private Sub Form_Load() On Error GoTo Err_Form_Load 'Me.ServerFilterByForm = filterCondtition Me.ServerFilter = filterCondtition Me.Refresh Forms![SwitchBoard]![PropertyNumber].Caption = Me.[Prop #] 'Forms![SwitchBoard]![Unit].Caption = Me.Unit Me.Repaint Exit_Form_Load: If (closeForm) Then DoCmd.Close acForm, "frm_CY_NY_Change", acSaveNo End If Exit Sub Err_Form_Load: MsgBox Err.Description Resume Exit_Form_Load End Sub Private Sub Form_Open(Cancel As Integer) On Error GoTo Err_Form_Open ' This occurs BEFORE Form_Load() event handler closeForm = False filterCondtition = "[ID]=" & Forms![frm_DE_VacancyDatabase].[ID] Me.Repaint MsgBox "form id is" + (CStr(Forms![frm_DE_VacancyDatabase].[ID])) Exit_Form_Open: closeForm = True Exit Sub Err_Form_Open: MsgBox "Following error occurred trying to open form:" + vbCrLf + vbCrLf + Err.Description Resume Exit_Form_Open End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.