如何在一个窗体里刷新所有打开的窗体里的Current事件?

laiguiyou

如题。用下面代码取得所有打开的窗体。
     Dim dbs As Object
      Dim obj As AccessObject
      Set dbs = Application.CurrentProject
      
      For Each obj In dbs.AllForms
      
     If obj.IsLoaded = True Then

      在这里写上刷新所有打开窗体的Current事件，怎么写？
     
            End If
Next obj

laiguiyou

没人知道吗？