currentdb execute不插入

Question

我遇到了Access VBA的问题。我制作了以下代码，将一些数据插入到我的SQL DB中。

Private Sub btnFilmKijkenKlant_Click()

CurrentDb.Execute "INSERT INTO watchhistory (movie_id, customer_mail_address, watch_date, price, invoiced)  VALUES (" & movie_id.Value & ", '" & Me.txtEmail & "',  Date(),'" & price.Value & "', '0')"

End Sub

当用户点击按钮时，我想将一些数据传输到数据库。 我没有得到任何错误，但它只是没有插入......

我制作了txtEmail字段进行测试。我收到了另一种形式的电子邮件字段，我希望将其用作customer_mail_address。

当我在CurrentDb.Execute中包含 dbFailOnError 选项时，Access会抱怨“ODBC调用失败”，但我不明白为什么。

Answer 1

Dim db as Database
Set db = CurrentDb()
db.execute(......)