Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.