Microsoft Access VBA - 运行时错误“3075”

使用VBA（Visual Basic for Applications）编程语言进行Microsoft Access数据库开发时，可能会遇到运行时错误3075。这个错误通常表示在执行SQL查询时出现了问题，具体是因为无效的查询条件或字段名称。本文将介绍运行时错误3075的原因和解决方法，并通过一个简单的案例代码来说明。

vba
Sub RunQuery()
    Dim strSQL As String
    Dim strName As String
    Dim rst As DAO.Recordset
    
    ' 输入要查询的员工名称
    strName = InputBox("请输入要查询的员工名称:")
    
    ' 构建SQL查询语句
    strSQL = "SELECT * FROM Employees WHERE Name = '" & strName & "'"
    
    ' 执行查询
    Set rst = CurrentDb.OpenRecordset(strSQL)
    
    ' 检查是否有结果
    If Not rst.EOF Then
        ' 遍历结果集
        Do Until rst.EOF
            ' 输出查询结果
            Debug.Print "员工名称: " & rst!Name & "，职位: " & rst!Position
            rst.MoveNext
        Loop
    Else
        ' 输出未找到结果
        Debug.Print "未找到该员工的信息。"
    End If
    
    ' 关闭结果集
    rst.Close
    Set rst = Nothing
End Sub