INSERT INTO语句出现问题，是新访问的

问题描述

我被投入工作中的项目，并且试图通过它奋斗。我正在尝试将记录从表单写入表。我想从两个组合框中选择一个，然后将选择内容和时间发送到表格中。

这就是我所拥有的

Private Sub cmdClockin_Click()
 
Dim Strsql As String
Dim Cin As Date
Dim Ein As String
Dim Jin As String

Cin = Now()
Ein = Me.ComboEmp
Jin = Me.comboJob

Strsql = "INSERT INTO Records (proStart,proEmployee,proJob) VALUES ('" & Cin & "','" & Ein & "','" & Jin & "');"

DoCmd.SetWarnings False
DoCmd.Runsql Strsql
DoCmd.SetWarnings True

End Sub

我没有收到任何错误，但是没有任何内容写入表中。

我一直在搜索其他网站，由于某种原因，我无法弄清楚自己在做什么错。任何帮助都将很棒

谢谢， 克里斯

解决方法

直接插入 Now ，考虑 Ein 或 Jin 是否为数字（因此不加引号），并检查SQL：

StrSQL = "INSERT INTO Records (proStart,proEmployee,proJob) VALUES (Now(),'" & Ein & "','" & Jin & "');"
MsgBox StrSQL

,

第一个建议将表名从Records更改为其他名称。您需要使用井号time将Date/Time限定为#，而不是使用日期数据类型的单引号（'）。检查下面

StrSQL = "INSERT INTO Records (proStart,proJob) VALUES (#" & Cin & "#,'" & Jin & "');"