Locking Fields In a Form 1

[Spec01]

Hey Everyone,

In the database that I created I have a Main Form with Employee information ie, Name, Department, Location. What I want to do is Lock only these 3 Fields. I know how to Lock them in the Field Properties But the problem is when I want to enter another employee I have to manually go into the Field properties and change it to Unlock. Is there any way to make it where Employees already entered are locked but i can still add new Employees without having to change the properties everytime.

If anyone knows the solution please help.

Thanks,

 

[ZmrAbdulla]

Something like this?

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

________________________________________________________
Zameer Abdulla
Help to find Missing people
There’s a world of difference between editorials and advertorials

 

[Spec01]

I tried out this command and it is still not working right. I know how to lock the Fields but when I'm entering a new Employee I need it to be unlocked without going into the Field Properties.

 

[TheAceMan1]

How are ya Spec01 . . . . .

Add the line in [purple]purple[/purple] where you see it:

[blue]Private Sub Form_Current()
    If Me.NewRecord Then
        Me.Text1.Locked = False
        '..........
        '.........
    Else
        Me.Text1.Locked = True
        '..........
        '.........
    [purple][b]End If[/b][/purple]
End Sub[/blue]

Other than that it should work, provided you've substitute the proper [blue]textbox names[/blue].

Post back what you have, and where you put the code . . .

See Ya! . . . . . .

 

[Spec01]

Hey AceMan Thanks a lot Dude, This worked perfectly.

 

[TheAceMan1]

Spec01 . . . . .

Be aware: If you compile on a regular basis, errors in code (as much as can be detected) are always flaged!

See Ya! . . . . . .

 

[ZmrAbdulla]

Thanks TheAceman1 for correcting the missing part

________________________________________________________
Zameer Abdulla
Help to find Missing people
There’s a world of difference between editorials and advertorials