Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.
Private Sub Form_Current() Dim frm As Form frm = forms.Form.sub1 If gUser = "User" And Me.RecordLock = -1 Then With frm .AllowAdditions = True .AllowDeletions = False .AllowEdits = False End With Else With frm .AllowAdditions = True .AllowDeletions = True .AllowEdits = True End With End If gInvID = Nz(Me.IDInvoice.Value) End Sub
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
7 Experts available now in Live!