Question

我有一个列表框，可以根据大学任何特定学生的情况从数据库中提取测试。当学生选择测试时，我只想从列表框中提取一些值以进行统计跟踪。当我运行此查询时，它会请求我输入参数值。

这是我的代码：

'Dim TestName As String
 TestName = Me.List15.Column(1)


DoCmd.RunSQL ("Insert Into TestingStatistics (BadgeNumber, TestName, College, Instructor, SigninTime, Special)" _
& "VALUES (" & txtBadgeNo.Value & ", " & TestName & ", 'Medicine', 'Test', time(), 1);")

在TestName上，它要求我输入参数值。我试过用一个消息框运行它，它正在推送正确的信息。即使弹出的“输入参数值”对话框也会在其中显示正确的信息作为标题。

我错过了什么？

Answer 1

您需要一个String，而不是Variant和一个空格：

Dim TestName As String
TestName = Nz(Me.List15.Column(1))

DoCmd.RunSQL ("Insert Into TestingStatistics (BadgeNumber, TestName, College, Instructor, SigninTime, Special) " & _
"VALUES (" & txtBadgeNo.Value & ", '" & TestName & "', 'Medicine', 'Test', Time(), 1);")

Access 2013请求在插入查询时输入参数

1 个答案: