如何使用按钮将复选框值中的数据保存到数据库中

Question

我正在尝试将数据从复选框保存到数据库中

 Private Sub Check2_Click()
 If Check2.Value = True Then
  Check2.Caption = "OK"
  ElseIf Check2.Value = False Then
   Check2.Caption = "not ok"
  End If
 End Sub

    Private Sub Form_Load()
   con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source 
   =C:\Users\MIS02\Documents\checkstrial.accdb;Persist Security Info = false"
   rs.Open "Select * from tableCheck", con, adOpenDynamic, adLockPessimistic
   DTPicker1.Value = Date
   End Sub

 Private Sub addBtn_Click()

  rs.AddNew
  rs.Fields("CheckItem").Value = Label2.Caption
  rs.Fields("Itemno").Value = Label17.Caption
  rs.Fields("Criteria").Value = Label38.Caption
  rs.Fields("AMafter").Value = Check2.Caption

  rs.Update
  MsgBox "Data add successfully"

保存在数据库中的唯一字段是标签

Answer 1

如果AMafter字段定义为布尔值（在Access中为是/否），则需要设置一个布尔值。尝试以下操作：

rs.Fields("AMafter").Value = (Check2.Value = vbChecked)