ms-access - 从 VBA 中的函数返回对象实例时出错

Question

我正在尝试实例化一个对象并从函数中返回它。我正在使用的类(class)是我创建的类(class)。但是，当我尝试将 Object 设置为从函数返回的内容时，出现错误。我究竟做错了什么？

Function CreateBlah(NAME As String, Count As Integer, val As String) As Blah
    Dim b As Blah
    Set b = New Blah
    bkmrk.Initialize NAME, Count, val
    MsgBox (bkmrk.NAME)
    CreateBlah = bkmrk
End Function

然后在另一个功能...

Dim bmrk As Blah
Set bmrk = CreateBlah("Test", 1, Trim(AString))

我也试过...

Dim bmrk As Object
Set bmrk = CreateBlah("Test", 1, Trim(AString))

我是 VBA 新手，谁能告诉我我做错了什么？

Answer 1

每次分配对象时都需要使用 set 。这意味着在设置返回值以及将返回值分配给变量时。
后期绑定(bind)示例:

Public Sub Example()
    Dim objWrd As Object
    Set objWrd = GetWord
    objWrd.Visible = True
    objWrd.Quit
End Sub

Public Function GetWord() As Object
    Set GetWord = CreateObject("Word.Application")
End Function

早期绑定(bind)示例:

Public Sub Example()
    ''//Requires reference to Microsoft Office Word
    ''//(Tools>References)
    Dim objWrd As Word.Application
    Set objWrd = GetWord
    objWrd.Visible = True
    objWrd.Quit
End Sub

Public Function GetWord() As Word.Application
    Set GetWord = New Word.Application
End Function