lock records on keyword locks whole table

[murray83]

If Me.Status = "done" Then
Me.ActionedBy.Locked = True
    Else
    If Me.Status = "waiting" Then
    Me.ActionedBy.Locked = False
End If
    End If

this code is slowlly driving me crazy it works but then once i set it to done it locks and wont allow next record to have actioned by filled in

how can i differtiate between rows in records ?

sorry its zipped its 7mb for some reason and only has 2 forms and two tables

 

[CJ_London]

if this is a continuous form use conditional formatting for each control

something like

expression is...[Status]='done'

and set the continuous formatting enabled to false

 

[murray83]

sorry to be a pain could you supply a quick screen shot of what you mean

ta

 

[missinglinq]

I run v2007 and apparently your file is in a later version, so I can't open it, but this is one of the rare times when formatting like this can be done, in VBA code, even on Continuous or Datasheet View Forms. But the problem, here, I suspect, is where you have the code!

Placed in the Form_Open or Form_Load event, it'll act as you describe. To be Record-appropriate, it needs to be placed in the Form_Current event.

I'm assuming that you also want the Field unlocked if you're entering a New Record, where Me.Status isn't equal to 'done' or 'waiting.' If this is so I'd use

Private Sub Form_Current()

 If Me.Status = "done" Then
   Me.ActionedBy.Locked = True
 Else
   Me.ActionedBy.Locked = False
 End If

End Sub

Linq ;0)>

 

[CJ_London]

sorry to be a pain could you supply a quick screen shot of what you mean

see this - but note that with disabled you lose the color

Note also that because your endtime is an unbound control, it's value will change every time you open the form - instead you need some code in the after update event of the status control

if status="done" then endtime=now()