vba - 访问：新表单对象不可访问

Question

我最近创建了两个新表单 CommunitySMBSubform 和 CommunityUsersSubform。

当我编写一些 VBA 代码来重新查询它们时，我遇到了：

编译错误：找不到方法或数据成员

在排除原因时，我发现表单没有类对象，这可能是错误的原因。

有什么办法可以建立它们的类对象，以便 VBA 可以引用它们？

TIA。

-------- 下面有问题的代码 ------------

Private Sub ClearForm_Click()

Dim db As Database
Set db = CurrentDb
Dim Query As String
Dim Query1 As String
Dim Query2 As String

'Clear any selected mailboxes

Query = "Update [Mailbox Status] Set AddToBatchFlag = FALSE Where 
AddToBatchFlag = TRUE"
db.Execute Query

' Requery the SMB Subform
Query1 = "Select * from CommunitySMB"
db.Execute Query1
Me.CommunitySMBSubform.Requery    <=  Compile Error: Method or data member not found occurs here

'Requery the Users Subform
Query2 = "Select * from CommunityUser"
db.Execute Query2
Me.CommunityUsersSubform.Requery

RefreshBatchStats_Click

End Sub

标签： vbams-access