Still having an issue - see http://www.experts-exchange.com/Microsoft/Development/MS_Access/Q_28355556.html
I am using the following code on Current of the subform:
the code compiles correctly, how the setting of the AllowEdits does not seem to do anything, I am still able to edit the current record.
what am I missing?
Private Sub Form_Current()
'Guser is a global function returning user login
'It is currently commented out not sure it is needed at this time.
'If gUser = "user" And Nz(Me.RecordLock, 0) = -1 Then
If Nz(Me.RecordLock, 0) = -1 Then
Me.AllowEdits = False
Me.AllowEdits = True
gInvID = Nz(Me.IDInvoice)
Me.ContractNumber = gContractID