VBA Code not working how it Should

[Juan4412]

Here is what I be needing:


I have a tickbox, and I am wanting it to disable the tickbox if you check it, but disable it after the "Add Record" button has been pressed. I set it up by uing the AfterUpdate feature of the tickbox, but it is locking as soon as I check the box, not once the "Add Record" button is pressed. The Visaul Basik code that I used was:

 
Private Sub Check146_AfterUpdate()
If Me.Check146 = True Then
Me.Check134.SetFocus
Me.Check146.Enabled = False
Me.Check144.Enabled = False
Me.Check148.Enabled = False

Else

Me.Check144.Enabled = True
Me.Check146.Enabled = True
Me.Check148.Enabled = True

End If
End Sub

I also tried to set it up on the AfterClick() on the "Add Record" button, but this wouldn't even allow the record to lock.

I really want the code to read:

If Me.Check146 And Me.Check144 = True Then....

But when I tried this code, the Debugger gave no error, but Access would not disable any fields at all?

[weekend00]

you logic is confusing.
when you said: "and I am wanting it to disable the tickbox if you check it, but disable it after the "Add Record" button has been pressed", which case do you want to disable the tickbox.

in you code, you put "Me.Check146.Enabled = False" when the checkbox is checked. of course "it is locking as soon as I check the box". if you don't what disable it here, please remove the code to the click event of "Add Record" button.

Also please note that disabled is different from locked.

[Juan4412]

I am wanting to disable the tickbox, but only after the "add record" button has been pressed.

So if I move this code to the "add record" event it will do as I wish?

[weekend00]

you can move it to the click event of "add record" button

[Juan4412]

Private Sub Form_AfterUpdate()
Dim c As Control
If Flag_Locked = True Then

Me.Flag_Locked.Enabled = False
Me.Name_First.Enabled = False
Me.Name_Last.Enabled = False
Me.ID.Enabled = False
Me.Cmd_Delete_Record.Enabled = False

Next

Else

Me.Flag_Locked = False

Next

Me.Flag_Locked.Enabled = True
Me.Name_First.Enabled = True
Me.Name_Last.Enabled = True
Me.ID.Enabled = True
Me.Cmd_Delete_Record.Enabled = True

End If

End Sub

mofycatyns were made to mi code and it is somewaht functioning how me need it. But when I click the "Add Record" button it is locking the next record too. I only needs it to lock the record I just added. What wrong with mi code?

[weekend00]

you can't lock only one record. all properties(locked, color, and other format) of a column control affect all records.

[Juan4412]

I be just wanting to no allow edits on the record that was just added, once the add button i smashed. I add a "unlock" button on form that if you push it unlock to allow edits, but once the "add record" buton be mashed I want to no allow edits, that what I try to accomplish.

[weekend00]

if you want to lock only the new added record, use code in CURRENT event of the form. check if current row is the new one. if is, lock the fields; if not, unlock.