Microsoft 访问“条件表达式中的数据类型不匹配”错误答案

【问题标题】：Microsoft access "data type mismatch in criteria expression" errorMicrosoft 访问“条件表达式中的数据类型不匹配”错误
【发布时间】：2015-06-10 22:07:26
【问题描述】：

我已经编写了代码来添加和编辑表格中的数据，但我得到“标准表达式中的数据类型不匹配”。

Private Sub Submit_Click()

 If Me.txtid.Tag & "" = "" Then
        'add data to table
        CurrentDb.Execute "INSERT INTO Client(Client_ID,Title,First_Name,Last_Name,Employer,DOB,Updated_Date,Email,Phone_Number,Mobile_Number,Address_Street,Date_of_1st_Session,Presenting_Issue,Next_Of_Kin,EAP_Number,Status,History)" & _
        " VALUES('" & Me.txtid & "','" & Me.txt_title & "','" & Me.txtname & "','" & Me.txtlastname & "','" & Me.txtorg & "','" & Me.CreatedDate & "','" & Me.UpdatedDate & "','" & Me.txtEmail & "', '" & Me.txtphone & "','" & Me.txtmb & "', '" & Me.txtadd & "','" & Me.txtdate & "', '" & Me.txtissue & "','" & Me.txtnext & "','" & Me.txtEAP & "','" & Me.Combo45 & "','" & Me.txtHistory & "')"
 Else
      CurrentDb.Execute "UPDATE Client" & " SET Client_ID=" & Me.txtid & ", Title='" & Me.txt_title & "'" & ", First_Name='" & Me.txtname & "'" & ", Last_Name='" & Me.txtlastname & "'" & ", Employer='" & Me.txtorg & "'" & ", DOB='" & Me.CreatedDate & "'" & ", Updated_Date='" & Me.UpdatedDate & "'" & ", Email='" & Me.txtEmail & "'" & ", Phone_Number='" & Me.txtphone & "'" & ", Mobile_Number='" & Me.txtmb & "'" & ", Address_Street='" & Me.txtadd & "'" & ", Date_of_1st_Session='" & Me.txtdate & "'" & ", Presenting_Issue='" & Me.txtissue & "'" & ", Next_Of_Kin='" & Me.txtnext & "'" & ", EAP_Number='" & Me.txtEAP & "'" & ", Status='" & Me.Combo45 & "'" & ", History='" & Me.txtHistory & "'" & " WHERE Client_ID=" & Me.txtid.Tag
 End If

 Command39_Click
 Me.txtid.SetFocus
 Client_subform.Form.Requery
End Sub

【问题讨论】：

标签： ms-access vba

【解决方案1】：

当某些数据项可能是数字或日期时，您似乎将所有值视为字符串（'" & Me.txtid & "'）。如果是数字，请尝试 (" & Me.txtid & ") 或 (#" & Me.CreatedDate & "#)

【讨论】：