check box problem

[allenvkv]

Hi all,

I have a checkbox in my program which returns 0/-1 to my database. When I read the database I want to show on the program whether the checkbox button is clicked or not. Please show me the code how to do that!

[parksie]

I had a similar thing to do for school a while back, and I wrote these two functions:

Public Function SetOption(sOptionName As String, iValue As Integer) As Boolean
Dim rst As Recordset
Dim bFound As Boolean
Set rst = CurrentDb.OpenRecordset("SELECT * FROM Options WHERE Name = """ & sOptionName & """")
If rst.RecordCount > 0 Then
rst.MoveFirst
rst.Edit
rst.Fields("Value").Value = iValue
bFound = True
rst.Update
Else
bFound = False
End If
rst.Close
SetOption = bFound
End Function
Public Function GetOption(sOptionName As String) As Integer
Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("SELECT * FROM Options WHERE Name = """ & sOptionName & """")
If rst.RecordCount > 0 Then
rst.MoveFirst
GetOption = rst.Fields("Value").Value
Else
GetOption = 0
End If
rst.Close
End Function

This works inside Access, out of Access, replace CurrentDB with the handle to your database. This assumes an 'Options' table with PK/AutoNumber ID, char(100) Name, and Integer Value.


Private Sub UpdateCheck()
chkMyCheckBox.Value = GetOption("chkMyCheckBox")
End Sub

This assumes that you have it set up in the table. If you want me to send an example DB and program that would be easy.