Toggle buttons to display an "X" if the item is selected

[cwoll]

I am runing this function to toggle buttens to display an "X" when they
is selected, the butten is linked to a yes/no field. This function
works good, the problem I am having is that when I make a new record
the "X" from the last record I looked at are still there, but the
bottens are not selected nether should they be. How do I clear every
thing when creating a new record?
Any help would be apprecated.

Clarence Wollman
Function CheckClick() As Integer
'This function is used by Toggle buttons to display an "X" if the item
is selected.
If Screen.ActiveControl.Value = False Then
Screen.ActiveControl.Caption = ""
If Screen.ActiveControl.Value = True Then
Screen.ActiveControl.Caption = "X" 'Chr(252)
End Function

[pietlinden]

cwoll wrote:

I am runing this function to toggle buttens to display an "X" when they
is selected, the butten is linked to a yes/no field. This function
works good, the problem I am having is that when I make a new record
the "X" from the last record I looked at are still there,

Is the field in question is not bound to the form's recordsource, then
it won't automatically become blank/null. You'll have to set that
yourself in code.

Me.Controls("MyControl").Value=Null

[cwoll]

How would be the best way to do this with about 50 controls without
haveing a lot of redundent code?
Thank you
CW
[e-mail] wrote:

cwoll wrote:

I am runing this function to toggle buttens to display an "X" when they
is selected, the butten is linked to a yes/no field. This function
works good, the problem I am having is that when I make a new record
the "X" from the last record I looked at are still there,

Is the field in question is not bound to the form's recordsource, then
it won't automatically become blank/null. You'll have to set that
yourself in code.

Me.Controls("MyControl").Value=Null

[pietlinden]

[e-mail] wrote:

cwoll wrote:

I am runing this function to toggle buttens to display an "X" when they
is selected, the butten is linked to a yes/no field. This function
works good, the problem I am having is that when I make a new record
the "X" from the last record I looked at are still there,

Is the field in question is not bound to the form's recordsource, then
it won't automatically become blank/null. You'll have to set that
yourself in code.

Me.Controls("MyControl").Value=Null

sorry, would have helped had I mentioned that you should do that in the
OnCurrent or AfterInsert event of the form... In your case,
After_Insert sounds more likely.

[cwoll]

This thread is descibing exectly the problem that I am having, but they
did not come up
with an answer.
Thanks

http://groups.google.com/group/micro...a99c7a72089199