For the life of me I can't find the right record lock code.

[lccrews]

I've been searching and thinking to no avail on how to lock specific records from editing and require a passcode to unlock them. I have a form that data is entered onto in order to create a record. Usual stuff right? I want a button that locks just the record being worked on and requires a passcode to unlock. "Help me obi-wan-Kenobi you're my only hope."



I'd like to lock the current record from tbl_MBR from frm_ViewMBR with a button, be able to close the form and re-open it to a record that's still locked.

[pbaldy]

You can set the AllowEdits (and deletions, etc) in the current event, and then toggle it behind your button.

[ranman256]

is there a code in the record to determine this?
normally set the form to ALLOWEDITS= FALSE
user clicks a button to unlock, enter the code.
Now you can either hardcode the passcode in vb (not great) , or put the passcode in a table then check it (better) so it can be changed on the fly.

sub btnUnlock_click()
dim vRet 

   vRet = InputBox("Enter edit code","Authorized only")
   me.ALLOWEDITS = IsValidUnlockCode(vRet)
end sub

  'when user changes records
sub form_OnCurrent()
me.ALLOWEDITS=false
end sub


function IsValidUnlockCode(byval pvCode)
dim vCorrectCode

vCorrectCode =Dlookup("[passcode]","tPassword")
IsValidUnlockCode=vCorrectCode = pvCode 
if vCorrectCode <> pvCode then msgbox "Incorrect code"
end function

[lccrews]

I can lock the controls immediately, but when I re-open the form (with that record), all controls are unlocked again. I'm trying to figure out what I'm doing wrong. Thanks ranman for the instruction on how to add a passcode!

I want the form to open allowing edits, unless it is the locked record. Is that possible?

[lccrews]

I solved my problem by adding a field to my table. Then by adding this code to the Form's current event, it worked!

Private Sub Form_Current()
If Me.Locked = Yes Then
Me.AllowEdits = False
End If
End Sub

[davegri]

Put your code in the Form_current event instead of the form_load event.
Form_current will look at the currently displayed record to decide whether to lock or not.

[pbaldy]

This must not have been clear enough?

You can set the AllowEdits (and deletions, etc) in the current event, and then toggle it behind your button.

[lccrews]

This must not have been clear enough?

No I was confused by "toggle it". Oy... You gave me the answer and I totally missed it. Thanks Paul. You're a master. I'm just a little dense sometimes.

[pbaldy]

No worries, I'm a lot dense sometimes.

By toggle I just meant change it, like setting the value one way in the current event and the other way behind your button.