Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
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 cboProjects_AfterUpdate() On Error GoTo Err_cboProjects_AfterUpdate ' Apply Filter based on Users Selection If Me.cboProjects.Value > "" Then Me.Detail.Visible = False Me.Filter = "ProjectID = " & Me.cboProjects.Value Me.FilterOn = True Me.Refresh Else Me.Detail.Visible = False Exit Sub End If ' Count the Number of Notes for this Contact on thie Project Dim rst As Object Set rst = Me.RecordsetClone On Error Resume Next rst.MoveLast On Error GoTo Err_cboProjects_AfterUpdate Me.txtRecordCount.Value = rst.RecordCount ' If record count is 0, Display message to User that there are no notes to edit. ' If record count is not 0, Show the detail section of the form to show the notes. If Me.txtRecordCount.Value = 0 Then Me.Detail.Visible = False MsgBox "There are no notes for this Contact on the Selected Project/Prospect." & vbCr & vbCr & "Please Choose a different Project/Prospect" Else Me.Detail.Visible = True End If Exit_cboProjects_AfterUpdate: On Error Resume Next rst.Close Set rst = Nothing Exit Sub Err_cboProjects_AfterUpdate: MsgBox "An Error Occurred in the cboProjects AfterUpdate Event; Form: " & Me.Name & vbCr & vbCr & "Please take a Screen shot of this Error message and send to email@example.com" & _ vbCr & vbCr & "Error Number: " & Err.Number & vbCr & vbCr & "Error Desc: " & Err.Description, vbInformation, "PLEASE TAKE A SCREENSHOT OF THIS ERROR!" Resume Exit_cboProjects_AfterUpdate End Sub
Join the community of 500,000 technology professionals and ask your questions.