convert string data type to checkbox data type 1

[5679]

1. Dim varChb As CheckBox

'
'
'
2. Set varChb = rst!CheckboxName
3. varChb.Value = 1




rst is a recordset that contains a value retrieved from an access database.
CheckboxNAme is the field that stores names of checkboxes
The value is actually the name of a chechbox present on a VB form
I vant to set the value of the retrieved checkbox as 1 (line3)
I get a Type mismatch error on line 2!!
How to solve this??

 

[johnwm]

Probably easiest way is to make all your checkboxes into an array and just store the index in the database.

Your first checkbox might be myChk(0), second one myChk(1) etc. Then just store the required index.

rst.Fields("chkIndex&quot = 1 (or whichever chkBox index value)

To get it back:
Dim intIndex as Integer
'Get your rst here
myChk(rst.Fields("chkIndex&quot) = 1

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'People who live in windowed environments shouldn't cast pointers.'

 

[CCLINT]

Dim strChb As String
strChb= rst!CheckboxName & vbNullString
Me.Controls(strChb).Value = 1

 

[Sheriff]

Set varChb = rst!CheckboxName
You might try this
Set varChb = val(rst!CheckboxName)