how to bound optionbutton to the database?

[longmatch]

I would like to use option buttons to ask users to make their choice. But I know how to bind textbox control to database, but do not know how to bind optionbuttons? Need to write a function or ....?

Haijun

 

[CasperTFG]

Put the option buttons in a fram, the option buttons should be indexed within the frame. i.e. they should all have the same name. Then bind the group to the DB. Craig, mailto:sander@cogeco.ca

Remember not to name the Lambs...
It only makes the chops harder to swallow

 

[longmatch]

Could you give me a example?

Thanks

Haijun

 

[CasperTFG]

That depends. Are you binding everything to a data control. i.e. do you have one of theose Data controls set to the DB, then set to the table. Then each control set to the data control and column name. Or are you using something like DAO or ADO. Craig, mailto:sander@cogeco.ca

Remember not to name the Lambs...
It only makes the chops harder to swallow

 

[longmatch]

I do need to bind every control to the a backend database table, I am using ADO right now. The binding to textbox control is good, but optionbutton???

Haijun

 

[CasperTFG]

I think this should work...

Pu the first option button on the form. Bind it to the DB column. Then copy it, when it asks if you want to index the controls say yes. That should work. Craig, mailto:sander@cogeco.ca

Remember not to name the Lambs...
It only makes the chops harder to swallow

 

[longmatch]

How to bind the button to the db column? There is no datasource, or datafield properties to configure.

Haijun

 

[Guru2B]

Check the value of the field in the database and set the corresponding option button's value to selected.

Good luck

 

[CasperTFG]

Guru but what happens if you have 1 column and 6 buttons....

If you can't bind it your going to have to do this in Code.

When the record is added or changed, you going to have to find which option button is selected and set the value to the DB. Let's say you have many option buttons and only 1 can be on at a time.

For 1 = 0 to Ubound(optButton())
If optButton(i) = vbChecked then
rs.Fields("ColumnName&quot = i
end if
Next i

Then to show the value you do this.

optButton(val(rs.Fields("ColumnName&quot) = vbChecked Craig, mailto:sander@cogeco.ca

Remember not to name the Lambs...
It only makes the chops harder to swallow