VBA中SQL语句赋值时出现数据类型不匹配错误求助

你直接把SQL语句字符串传给CLng()转换数值，这完全错误——strSQL只是一段文本，不是查询返回的实际数值，自然会触发类型不匹配。你需要先执行这条SQL，从数据库中取出IntervalSeconds的实际值，再赋值给变量。

• 用CurrentDb.OpenRecordset()执行SQL语句，获取记录集对象
• 从记录集中读取目标字段的数值
• 处理查询无结果的边界情况（避免空记录集导致的错误）

' 窗体级变量，供多个函数使用
Dim timeRemaining As Long

Private Sub Form_Open(Cancel As Integer)
    Dim strSQL As String
    Dim rs As Recordset
    
    Me.Visible = False
    
    strSQL = "SELECT AccessControl.IntervalSeconds FROM AccessControl WHERE AccessControl.DatabaseName = '" & CurrentDb.Name & "'"
    
    ' 执行SQL并打开记录集
    Set rs = CurrentDb.OpenRecordset(strSQL)
    
    ' 检查记录集是否有数据
    If Not rs.EOF Then
        ' 读取字段值并转换为Long类型
        timeRemaining = CLng(rs!IntervalSeconds)
    Else
        ' 如果没有匹配记录，设置默认值（比如300秒=5分钟）
        timeRemaining = 300
    End If
    
    ' 关闭记录集释放资源
    rs.Close
    Set rs = Nothing
    
    DoCmd.OpenForm "frmForceLogout"
End Sub

• 若DatabaseName字段可能包含单引号，直接拼接SQL会导致语法错误，建议用参数化查询避免风险：

strSQL = "SELECT IntervalSeconds FROM AccessControl WHERE DatabaseName = ?"
Set rs = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset, dbSeeChanges)
rs.Parameters(0) = CurrentDb.Name

• 确保AccessControl表中IntervalSeconds字段是数值类型（比如长整型、整型），避免读取时的类型转换问题。

内容的提问来源于stack exchange，提问作者designspeaks