Как сохранить данные из значения флажка в базу данных с помощью кнопки

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"

Единственными полями, которые сохраняются в моей базе данных, являются метки. Я хочу, чтобы выходные данные были сохранены в базе данных, если флажок установлен "OK"а если нет, то" НЕ ОК "

Answer 1

В вашем Check2_Click используйте vbChecked вместо True и vbUnchecked вместо False.

Вы также можете добавить оператор IIF при обновлении вашей записи:

rs.Fields("AMafter").Value = IIF(Check2.Value = vbChecked, "OK", "NOT OK")

Answer 2

Если ваше поле AMafter определено как логическое (Да / Нет в Access), вам необходимо установить логическое значение. Попробуйте следующее:

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