How to make a database that allows four users to Critque Forms?

[gina farrow]

Hello,
I need to know what would be the best way to make a database that allows only 4 users to go into the form section, and click on the forms.

once the database form is open, on the side of the form(or some where on the form) there is a check box with the four users names.

They have to be able to check there name on the form and the form then goes to the next user to check and they put there check mark on the form. And so on.Note:Once checked can not be unchecked.

At the end a status report is made that shows who has checked who has not and what time they checked it for each user.

[debasisdas]

What you have coded so far ?

[Rodney Roe]

Is this kind of what your looking for? Look at sheet1 vba code for coding.

[gina farrow]

That's exactly what im looking for, Im doing it in access. Im not familiar with excel how do you look at the code in excel?

[Rodney Roe]

in Excel 2007 it's in the develepor tab. If you don't have it on go into the options under the popular tab and check "Show Develepor tab"

[gina farrow]

When I enter the code below I get a message"can not enable after disable." Access 2010 it works,however in access 2007 it doesnt work.

Private Sub CheckBox2_Click ()
If CheckBox2 = True Then
CheckBox2.Enabl ed = False
End If
End Sub

[Rodney Roe]

i'm unsure about that error you might post a new thread asking that question to see if anyone else knows, or try search the error on a search engine.

[gina farrow]

I have a form that locks all fields except one. after update you go to next record. my code is staying in lock mode and will not let me update the next record only the one I specified

Private Sub Form_AfterUpdat e()
Dim ctl As Control
If Not Me.NewRecord Then
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
If ctl.Name <> "Hair" Then
ctl.Locked = True
End If
End If
Next
Else
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then

ctl.Locked = False

End If
Next

End If

End Sub


This works but it the code doesnt refresh,it continues to not let editing