vba - 声明字符串变量时需要对象错误

Question

我正在从数据库查询中获取一组名称，然后将其重新格式化为逗号分隔的列表。当我在我的应用程序中的几个地方使用这个功能时，我尝试将它编写为获取 sql-query 并返回字符串的函数。

Public Function String_from_query(StrSQL As String) As String

 Dim dbs As Database
 Dim rs As Recordset
 Set dbs = CurrentDb
 Dim results As String
 results = ""
 Set rs = dbs.OpenRecordset(StrSQL)
 If Not (rs.EOF And rs.BOF) Then
    rs.MoveFirst
    Do While Not rs.EOF
        If results > "" Then
            results = results & ", "
        End If
        results = results & rs("Navn")
        rs.MoveNext
    Loop
 End If
 Set String_from_query = results
End Function

然后从事件处理程序调用它:

Private Sub Detalj_Format(Cancel As Integer, FormatCount As Integer)
 Dim StrSQL As String
 StrSQL = "SELECT Personer.Navn FROM Personer INNER JOIN Personoppgaver ON Personer.Initialer = Personoppgaver.Initialer WHERE Personoppgaver.Oppgaveid =" & Me.Oppgaveid.Value
 Me.Tekst52.Value = String_from_query(StrSQL)
End Sub

如果我在事件处理程序中拥有来自 String_from_query 函数的代码，然后直接将 Me.Tekst52 分配给结果，则一切正常。当我如图所示重构代码时，当我尝试运行它时出现“编译错误，需要对象”，并且在子文件的最后一行有一个标记。 (设置 String_from_query = 结果)。我看不出有什么问题。有什么帮助吗？

Answer 1

关键词Set仅在将变量分配给 Object 时才需要.对于 Access，这将是 Forms , Reports , Recordsets等或 Access 之外的其他对象(例如 FileSystemObject )。

设置字符串、日期、数字等时，不需要Set .

您也可以从错误消息中推测这一点，Object required .