时间戳

首页 > 解决方案 > 使用未绑定的文本框附加到表格

vba - 使用未绑定的文本框附加到表格

问题描述

我正在尝试使用未绑定的文本框将两个数据点附加到表中。我可以让一个正确填充，但另一个是空白。

对于此示例，Criteria1 = 1 和 Criteria2 = 9/24/19

这是我的代码：

Dim StrSQL As String
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Set db = Application.CurrentDb

Set qdf = db.QueryDefs("3 - GRUpload")
Dim Criteria1 As String
Dim Criteria2 As String

Criteria1 = Me!GRValue
Criterial2 = Me!GRDate

StrSQL = "Insert Into [*Master Records - 2 - GRs] ([GR Value], [GR Date]) Values(" & Criteria1 & ", " & Criteria2 & ")"

qdf.SQL = StrSQL

我附上了一张结果查询的图片，但如果这更有帮助的话，这是 SQL： 

INSERT INTO [*Master Records - 2 - GRs] ([GR Value], [GR Date])
Select 1 As Exp1, Criteria2 AS Expr2;

我尝试了代码的几种变体，包括：

Values(""" & Criteria1 & """, """ & Criteria2 & """)"

结果是：

INSERT INTO [*Master Records - 2 - GRs] ([GR Value], [GR Date])
Select "1" As Exp1, "" AS Expr2;

所以我很茫然......你们中的一个人能指出我正确的方向吗？

谢谢！

标签： vbams-accessappend

解决方案

日期/时间类型字段需要 # 参数分隔符。文本类型使用撇号（或双引号），数字无。尝试：

StrSQL = "Insert Into [*Master Records - 2 - GRs] ([GR Value], [GR Date]) " & _
           Values(" & Criteria1 & ", #" & Criteria2 & "#)"

强烈建议不要在命名约定中使用空格或标点符号/特殊字符。

推荐阅读