VBA MS Access 2010如何调用对象的子程序？

Question

我一直在试图建立在VBA子程序我访问应用程序：

Public Sub addProduct(ByRef Product As Product, AsFoo As Integer, Optional Mutual As Boolean = True) 
    Products.Add (Product) 

    If (Mutual) Then 
     Select Case AsFoo 
      Case 0 
       Product.setProjectmanager = Me 
      Case 1 
       Product.setVIP1 = Me 
      Case 2 
       Product.setVIP2 = Me 
      Case 11 
       Product.setVIP1A = Me 
      Case 22 
       Product.setVIP2A = Me 
     End Select 
    End If 
End Sub 

一个人应该给定的产品只需添加到产品的集合，并设置参照用户参考，如果是互助真正。

一个人应该工作...问题是，我不知道如何调用 我目前的尝试是：

User.addProduct(Product, 0, True) 

但IDE想在年底有=所以我认为这会工作：

User.addProduct(Product, 0, True) = Product 

但是，这会导致编译错误： Expected function or Variable

Answer 1

尝试调用与该行：

User.addProduct Product, 0, True

或

Call User.addProduct(Product, 0, True)

取出()或使用Call关键字应该为你工作。

Answer 2

我不知道如果这是你想做的事，但如果是添加类实例的集合，我建议是这样的：

Sub Main_sub() 

dim colProduct as Collection 
dim cProduct as clsProduct 
dim asFoo as integer  
dim Mutual as boolean 


set colProduct = new collection 
set cProduct = new clsproduct 

asFoo = ? 'Define 
Mutual = ? 'Define 

'if the AddProduct function resides in the clsProduct class: 
set cProduct = cproduct.AddProduct(cProduct, asFoo, Mutual) 
colProduct.add cProduct 

set cProduct = nothing 
set colProduct = nothing 

end sub 

而对于私人产品类的属性Projectmanager， VIP1，VIP2，VIP1A，VIP2A

Public function addProduct(cProduct as clsProduct, AsFoo As Integer, Optional Mutual As Boolean) as cProduct 

      If (Mutual) Then 
       Select Case AsFoo 
       Case 0 
        cProduct.Projectmanager = Me 
       Case 1 
        cProduct.VIP1 = Me 
       Case 2 
        cProduct.VIP2 = Me 
       Case 11 
        cProduct.VIP1A = Me 
       Case 22 
        cProduct.VIP2A = Me 
       End Select 
      End If 
set addProduct = cProduct 
End Sub 

您在类模块中声明属性是这样的：

Private pVIP1 as <Type> 

和getter/setters：

Public Property Get VIP1() As <Type> 
    VIP1 = pVIP1 
End Property 

Public Property Let VIP1(tVIP1 As <Type>) 
    pVIP1 = tVIP1 
End Property 

如果类型是一个对象，则需要使用SET而不是LET。

Public Property SET VIP1(tVIP1 As <Type>) 
    SET pVIP1 = tVIP1 
End Property 

也许我的意图是错误的，因为我没有看到为每个案例添加Me的目的。但这是我能想到的最好的。