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 Form_Current() Dim intMaxNumRecs As Integer intMaxNumRecs = 1 'Max Number of Records to Allow If Me.NewRecord Then With Me.RecordsetClone If .RecordCount > 0 Then .MoveLast: .MoveFirst If .RecordCount >= intMaxNumRecs Then MsgBox "You can't add more than " & intMaxNumRecs & " record of Quantity for each product condition!", vbInformation, "Warning" .MoveLast Me.Bookmark = .Bookmark End If End If End With End If End Sub
Private Sub Form_Current() If Me.RecordsetClone.RecordCount >= 1 Then Me.AllowAdditions = False Else Me.AllowAdditions = True End If End Sub