Office中国论坛/Access中国论坛

标题: [求助]遍历窗体属性的方法 [打印本页]

作者: wang01 时间: 2007-4-13 05:31
标题: [求助]遍历窗体属性的方法
我使用以下方法未能成功

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 时间: 2007-4-14 00:18
目的是为何？

作者: wang01 时间: 2007-4-14 18:22
做考试系统

作者: wang01 时间: 2007-4-15 02:42
已解决

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)