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 tbxActivity_AfterUpdate() Dim lngDays As Long Dim strMeActivity As String Dim strWhere As String On Error GoTo UnknownActivity lngDays = DLookup("[NormalDaysRequired]", "tblActivities", "Description = '" & Me![Activity] & "'") tbxDateToComplete = tbxDateCreated + lngDays End GoTo Completed UnknownActivity: tbxDateToComplete = tbxDateCreated + 1 Completed: End Sub