运行时错误 3061 - 毫秒访问

Posted 2023-04-19

【中文标题】运行时错误 3061 - 毫秒访问

【英文标题】：run time error 3061 - ms access

【发布时间】：2013-05-17 20:09:29

【问题描述】：

我对 MS Access 和 VBA 比较陌生。我正在尝试为此数据库编写一些代码并收到错误消息“运行时错误 3061。参数太少。到达 OpenRecordSet 子句时应为 1"。

我已经研究并查看了几天，但无法找出错误的原因。我知道当表单被关闭时，错误出现在 SELECT 中，特别是在 WHERE 子句中。

奇怪的是，当我将条件更改为 Record_Num = 2 或任何特定数字时，它似乎可以工作，但我需要使用 Record_Match_Temp 变量。

任何帮助将不胜感激。提前致谢。这是代码

Option Compare Database
    Dim Record_Match_Temp As Integer
    Dim Logged_Now As String


Private Sub Form_Close()
    Dim db2 As Database
    Dim rs2 As Recordset2
    Dim SelStr As String

    Set db2 = CurrentDb()
    SelStr = "SELECT Record_Num FROM User_Log WHERE Record_Num = Record_Match_Temp"

    Set rs2 = db2.OpenRecordset(SelStr)

 End Sub

Private Sub Form_Load()
    Form_User_Name = Environ("UserName")
    Logged_Now = Now()

    Dim db As Database
    Dim rs As Recordset
    Set db = CurrentDb()

    Set rs = db.OpenRecordset("Select * from [User_Log]")

    rs.AddNew
    rs![Log_User_Name] = Environ("UserName")
    rs![Logged_Computer] = Environ("ComputerName")
    rs![Logged_In] = Logged_Now
    rs![Record_Match] = rs![Record_Num]
    Record_Match_Temp = rs![Record_Num]
    ' rs![Logged_Out] = Now()
    rs.Update

 End Sub



Private Sub Form_Timer()
  Date_Time.Requery

End Sub

【参考方案1】：

SelStr = "SELECT Record_Num FROM User_Log WHERE Record_Num = " & _
                                                  Record_Match_Temp

如果字段不是数字，请在 Record_Match_Temp 周围添加单引号。

【讨论】：

太棒了。非常感谢。我现在没有收到错误消息。老实说，我不明白，因为我读过的所有文献都没有表明任何关于 & 的内容。对此，我真的非常感激。再次感谢