使用Access VBA中的INSERT INTO对YesNo字段进行参数化

Question

我有一个Access数据库，我必须在后端进行编码，而用户将使用表单来更新记录。我有一个字段被指定为YesNo字段。好吧，当我尝试参数化代码时，我将参数设置为YesNo。当我收到该值时，它会以-1或（TRUE）的形式出现。我什至尝试将参数硬编码为（TRUE）。但是，在执行插入语句时。我的记录不会更改，运行后对它进行评估时，该值为0（假）。救命？稍后我可以显示一些代码。但是我不明白，我传递的是正确的信息，但是插入内容并没有正确更改字段。

Answer 1

这对我有用：

Sub TestYesNo
  DIM rs as Recordset
  currentdb.Execute  "CREATE TABLE Tbl1 (YesNoCol BIT)"
  currentdb.Execute "INSERT INTO Tbl1 VALUES(-1)"
  set rs=Currentdb.Openrecordset("Tbl1")
  Debug.print rs!YesNoCol
  rs.close
End Sub