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 CustomerID_NotInList (NewData As String, Response As _ Integer) Dim Result Dim Msg As String Dim CR As String CR = Chr$(13) ' Exit this subroutine if the combo box was cleared. If NewData = "" Then Exit Sub ' Ask the user if he or she wishes to add the new customer. Msg = "'" & NewData & "' is not in the list." & CR & CR Msg = Msg & "Do you want to add it?" If MsgBox(Msg, vbQuestion + vbYesNo) = vbYes Then ' If the user chose Yes, start the Customers form in data entry ' mode as a dialog form, passing the new company name in ' NewData to the OpenForm method's OpenArgs argument. The ' OpenArgs argument is used in Customer form's Form_Load event ' procedure. DoCmd.OpenForm "Customers", , , , acAdd, acDialog, NewData End If ' Look for the customer the user created in the Customers form. Result = DLookup("[CompanyName]", "Customers", _ "[CompanyName]='" & NewData & "'") If IsNull(Result) Then ' If the customer was not created, set the Response argument ' to suppress an error message and undo changes. Response = acDataErrContinue ' Display a customized message. MsgBox "Please try again!" Else ' If the customer was created, set the Response argument to ' indicate that new data is being added. Response = acDataErrAdded End If End Sub