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.
Dim stDocName As String Dim stLinkCriteria As String Dim intnewrec As Integer stDocName = "Order" stLinkCriteria = "SELECT Order.Order_ID, Order_Line.Item_No" & _ " FROM [Order] INNER JOIN (Item INNER JOIN Order_Line ON Item.Item_No = Order_Line.Item_No) ON Order.Order_ID = Order_Line.Order_ID" & _ " WHERE Order_Line.Item_No = '" & Me!Item_No & "'" DoCmd.OpenForm stDocName, , , stLinkCriteria Call NoRecords(Forms!Order, intnewrec) If intnewrec = True Then DoCmd.Close acForm, "Order", acSaveYes GoTo Exit_My_Sub End If Forms![Order].AllowAdditions = False
Join the community of 500,000 technology professionals and ask your questions.