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
|MS Access XML Export Query Setup Multiple Tag Values||15||30|
|MS Access how to nest many values to one value when exporting query to XML format||8||46|
|Newbie needs help printing from a form.||10||20|
|MS-Access 2002 error (Win XP on Win7Pro)||19||49|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
16 Experts available now in Live!