[求助]遍历窗体属性的方法

wang01

我使用以下方法未能成功

Private Sub Command1_Click()
  Dim acc As Application
  Dim kk
  Set acc = CreateObject("Access.Application")
  acc.OpenCurrentDatabase ("G:\aaa.mdb")
   acc.DoCmd.OpenForm "课程"
   Set kk = acc.CurrentProject.AllForms("课程")
   
  
' Set fd = kk.AllForms("课程")
  
  For Each ob In kk.Properties
     Debug.Print ob.Name,ob.type
  Next   
  
  acc.CloseCurrentDatabase  
End Sub
请问谁有更好的方法

hi-wzj

目的是为何？

wang01

做考试系统

wang01

已解决