Triple State checkbox scroll order

[lfox]

I have designed a database containing a list of inventory items. I have designed a form for users to report the individual items as either good or bad. The check boxes in the form report to the database fields which are set as integers. Within the form, the check boxes are set as triple state and defaulted to false. I'd like to change the order in which the boxes scroll. They presently scroll false>null>true. I'd like them to scroll as false>true>null. I'm not very proficient with VB Script. Is someone able to help? Thank you.

[is49460]

Create afterUpdate event for the checkbox and add the following code to it:

If IsNull(Me.chkStatus) Then
Me.chkStatus = True
ElseIf Me.chkStatus = False Then
Me.chkStatus = Null
Else
Me.chkStatus = False
End If

change chkStatus in every occurrence above to the actual name of your checkbox. it should do the trick. I hope that helps!

[lfox]

Unfortunately, it didn't work. I received this error:
"The expression After Update you entered as the event property setting produced the following error: Member already exists in an object module from which this object module derives.

*The expression may not result in the name of a macro, the name of a user-defined function, or [Event Procedure].
*There may have been an error evaluating the function, event, or macro.

This error occurs when an event has failed to run because Microsoft Access cannot evaluate the location of the logic for the event. For example, if the OnOpen property of a form is set to =[Field], this error occurs because Access expects a macro or event name to run when the event is fired."

Here is the code that I entered:

Private Sub Check570_AfterUpdate()
If IsNull(Me.Check570) Then
Me.Check570 = True
ElseIf Me.Check570 = False Then
Me.Check570 = Null
Else
Me.Check570 = False
End If
End Sub

Any Ideas?

[is49460]

the function itself looks right. The name of the function is duplicated somewhere. check out this reference: http://support.microsoft.com/kb/279124
try to rename the checkbox and then recreate function with the new name.

[lfox]

Thanks for the KB topic. I've looked everywhere. I can't seem to find where it is duplicated. The text box linked to the check box has a different name. I changed the name of the caption to something different and that still didn't help. Might you have any other ideas? I appreicate the help!

[Rawb]

Try deleting your function (or just cut + pasting it to Notepad or something). Once the function's been removed from the Form, do a search for "Check570_AfterUpdate" with "Current Module" selected in the Search field.

If this is a Subform, you'll want to check the code in the parent Form as well.

[is49460]

Thanks for the KB topic. I've looked everywhere. I can't seem to find where it is duplicated. The text box linked to the check box has a different name. I changed the name of the caption to something different and that still didn't help. Might you have any other ideas? I appreicate the help!

The linked textbox has nothing to do with the checkbox name. Access wouldn't let you have two (or more) objects with the same name. Caption of textbox is different from its name. In Design mode click on the checkbox itself (on the very top of property sheet you should see "Selection Type: Check Box"); on property sheet go to tab "other"; change property Name: "Check570" to "chkStatus"; click on events tab; recreate "after Update" event with the same code as before; Once you paste the code you should have something like this:

Private Sub chkStatus_AfterUpdate()
If IsNull(Me.chkStatus) Then
Me.chkStatus = True
ElseIf Me.chkStatus = False Then
Me.chkStatus = Null
Else
Me.chkStatus = False
End If
End Sub

make sure all the names correspond to the new name of the checkbox. should work!!
If still doesn't work try to recompile the project (VBA window --> debug -->recompile). I can't think of anything else without looking at the code; anyone else any suggestions?

[lfox]

Got it! Thanks! I was going to try and attach my db to this. In doing so, I realized that I had the trust settings set to disable all macros. I enabled them and it works perfectly. Thanks for all the help!