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!
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.
|How to let a Yes/No switch select a One record from the displayed record set?||10||60|
|question about a text field with default value||5||31|
|Need help in creating a search and retrieve form with VB.Net and Access Database.||22||40|
|ms/access follow hiperlink and generate image||5||18|
Join the community of 500,000 technology professionals and ask your questions.