我一直在試圖建立在VBA子程序我訪問應用程序:VBA MS Access 2010如何調用對象的子程序?
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
您需要聲明爲公共函數:public sub不返回值或對象。 – Trace 2012-07-05 12:51:01
但我不想返回一些東西,它應該只是將該產品添加到該用戶的集合中。有沒有辦法實現這個? – Oli 2012-07-05 12:54:37
因爲'Me'是一個對象,所以在分配'Product.setProjectmanager = Me'時不需要使用'Set'? – Gaffi 2012-07-05 12:57:30