Hello again experts
I was able to save ceckboxes' indexes by means of tis code
Code:
StrSql = "Select * from Transac_tbl where ID =" _
& Text3.Text & ""
RS.Open StrSql, DB, adOpenDynamic, adLockOptimistic
For i = 1 To Check1.Count - 1
If Check1(i).Value = 1 Then
If RS.EOF Or RS.BOF Then RS.AddNew
RS!ID = Text3.Text
RS!Vac_ID = Check1(i).Index
RS.Update
RS.MoveNext
End If
Next
The following piture illustrates what I'm doing.
Now I need to retrieve the checkboxes values as shown in the piture below.
This is what I'm doing:
Code:
StrSql = "Select * from Transac_tbl where ID =" _
& Text3.Text & ""
RS.Open StrSql, DB, adOpenDynamic, adLockOptimistic
If Not RS.EOF Then
For i = 1 To RS.RecordCount
Check1(i).Value = 1
Next
End If
unfortunately the output of this query is this:
thank you