Use checkbox control as option button 1

[tlafferty]

I have a check box control named Primary tied to table field named Primary with a datatype of Yes/No. The check box is part of a form that displays in continuous mode. How do I code so that when the user sets the Primary check box to True that all other records (other than the current record) have the Primary set to False? In other words, I only want to allow one Primary at a time to be True.

 

[MajP]

on the after update event of the checkbox
I am going to assume you have some kind of primary key. I will assume it is numeric. if it is text then sorround it with single quotes.

dim PK as long
dim strSql as string
pk = me.yourPrimaryKeyField
'if text, Pk = "'" & PK & "'"
strSql = "UPDATE yourTableName SET Primary = False WHERE yourPrimaryKeyField <> " & PK 
currentdb.execute strSql

 

[tlafferty]

Thanks so much! It worked first try ;-)