Data Entry even when it 0 .

[nishant.dhruve]

I have created a data entry form as shown below.
So in this form all the fields get locked one data is eneterd and after that no one can delete it.
But i have one problem here which is when i m trying to create a new data entry since the files SOPID is number, 0 is the default value that shows up into form for the new entry. So that lock that field on the form and isnt allowing to enter new data into field.
What should i do, if there a 0 dataenter can be allowed if other than zero then it should be lock.
I have use before update event code, and code is mention below. Please help me what are the changes are i require to do from the code below to allow dataentry even if its 0 in SOPID field.
[code]
Private Sub Form_Current()
Empid.Locked = Not IsNull(Empid)
sid.Locked = Not IsNull(sid)
sdot.Locked = Not IsNull(sdot)
Note.Locked = Not IsNull(Note)
eid.Locked = Not IsNull(eid)
edot.Locked = Not IsNull(edot)
cle.Locked = Not IsNull(cle)



End Sub


[/code]

[Bob Fitz]

Why not just remove the Default Value setting of 0

[nishant.dhruve]

Why not just remove the Default Value setting of 0

i did but still i remains same

[Bulzie]

Maybe try > 0?

[Bob Fitz]

May need to remove it at table level and at the form level

[nishant.dhruve]

Maybe try > 0?

where in VBA, if yes the how how shoud i write for this line.

sid.Locked = Not IsNull(sid)

[nishant.dhruve]

May need to remove it at table level and at the form level

I tries to removed at both level still it remains same

[davegri]

Just don't lock sid. You can't change it anyway if it's the primary key.

[Bulzie]

If me.sid > 0 then

me.sid.locked = True

Else

me.sid.locked = False

End If

Did a small test and this seemed to work. If sid is that field that has the default of 0.