Need code

[Patience]

Hi guys!

Can you please help me out with the code for this:

I want a field in a form to be locked when existing records are displayed. However when a new record is being created/filled out in the form, then the field should be unlocked so the user can enter data into it.

This is where I am:

Private Sub Item_number_BeforeUpdate(Cancel As Integer)
 
Dim intNewRecord As Integer 
intNewRecord = IsNull(Me![Item lot/piece number])
If intNewRecord Then
 
 
End Sub

Thank you very much!

BR

[Rawb]

You're trying to assign a True/False value to a Numeric field.

Try this:

Private Sub Item_number_BeforeUpdate(Cancel As Integer)
  If IsNull(Me![Item lot/piece number]) Then
    Me![Item lot/piece number].Locked = False
  Else
    Me![Item lot/piece number].Locked = True
  End If
End Sub

[maximus]

I have a form and on the OnCurrent Event I put this code. This code locks the Skill Field if looking through exsisting entries and Unlocks when a new entry is opened.



Private Sub Form_Current()
If Me.NewRecord Then
Me.Skill.Locked = False
Else
Me.Skill.Locked = True
End If
End Sub


if this solves your problem mark the thread solved.

[Rawb]

Oooo! Use Maximus' code instead!

I didn't know about the .NewRecord property.

[Patience]

Does not work guys. I get this error:

Run-time error '438':

Object doesn't support this property or method.

It marks the .Locked part.

[Patience]

It is not a numeric field. It is a text field. Don't know if that matters.

[maximus]

On which event did you put this code

[maximus]

paste your code that we can see

[Patience]

UPS!

It works. I just wrote the wrong field name - Sorry!

Thanks a lot for the help.

BR