Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
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