Locking Entries

  • Thread starter Thread starter Sok Hong
  • Start date Start date
S

Sok Hong

Is there a way to code so that you only lock only
specified functions? I've tried

Private Sub Form_Current()
Dim bAllow As Boolean

bAllow = Me.NewRecord
Me.[SomeControl].Locked = bAllow
Me.[AnotherControl].Locked = bAllow
...
End Sub

however, this will only allow me to lock it when I am on
that particular entry. Once I go to a different entry and
refer back to it, the entry will be unlocked.
Anythoughts? Thanks.
..
 
I'm not quite sure what you are trying to do. If you want
to allow additions and not allow edits, then change your
code to:

bAllow = Not Me.NewRecord
^^^

If me.NewRecord is true, then Not Me.NewRecord makes
bAllow = false, and

Me.[SomeControl].Locked = bAllow (bAllow = false)

makes the new record unlocked. If it is not a new record,
then Me.NewRecord is false, Not Me.NewRecord is true and

Me.[SomeControl].Locked = bAllow (bAllow = true)

makes the old record(s) locked.


You can make this the default for a form: in design view,
select the form, the data tab and set the Allow Edits to
NO and Allow Additions to YES. No code necessary.

HTH

Steve
 
Back
Top