求助:怎样用在组合框里能显示数据库的所有窗体名称

[zzzhang]

求助各位:1、想在组合框里自动加载数据库中所有窗体名称，方便选择；2、组合框里自动加载ImageListCtrl控件图标的关键字。
先谢谢各位了，请给个例个子。

[WWWWA]

DIM db As Database Set db = DBEngine.OpenDatabase("123.MDB", False, False, "MS Access;pwd=''") For Each frm In db.Containers("Forms").Documents MSGBOX frm.Name Next

[ACMAIN_CHM]

    For i = 0 To Forms.Count - 1
        Me.Combo3.AddItem Forms(0).Name
    Next i

[WWWWA]

如果是当前MDB Dim db As Database Set db = CurrentDb For Each frm In db.Containers("Forms").Documents MsgBox frm.Name Next

[zzzhang]

TO:wwwwA 提示frm变量未定义,请问怎么定义?谢谢

[WWWWA]

不会吧，我是测试通过的，你的代码？

[zzzhang]

TO:ACMAIN_CHM For i = 0 To Forms.Count - 1 Me.TxtOnAction.AddItem Forms(0).Name Next i TxtOnAction此组合框显示的是当前的窗体名称,我需要的是数据库里全部的窗体名称加载到这个组合框中,谢谢

[zzzhang]

TO:WWWWA 我的代码是: Private Sub TreeView9_NodeClick(ByVal Node As Object) Dim db As Database Set db = CurrentDb For Each frm In db.Containers("Forms").Documents MsgBox frm.Name Next SQL = "SELECT TreeID, ParentID, TreeCaption, TreeImage, OnAction FROM Tree where TreeID=" & Mid(Node.key, 2) & " ORDER BY TreeID;" Call Connection_String Conn.Open ConnectionString Rs.CursorLocation = adUseClient Rs.Open SQL, Conn, adOpenDynamic, adLockOptimistic With Me .TxtTreeID = Rs(1) .TxtParentID = Mid(Node.key, 2) .TxtTreeCaption = Rs(2) .TxtTreeImage = Rs(3) .TxtOnAction = Rs(4) End With Rs.Close Conn.Close End Sub TxtOnAction是一个组合框,我需要在这个组合框中显示当前数据库所有的窗体名称,谢谢

[WWWWA]

引用 4 楼 zzzhang 的回复:

TO:wwwwA 提示frm变量未定义,请问怎么定义?谢谢

Dim frm As Document

[WWWWA]

也可以不定义，直接使用，你是在ACCESS环境中运行？还是语言+MDB？

[zzzhang]

我是在ACCESS环境中运行,您这是用MsgBox一个一个窗体名称显示,像这样怎样加载到TxtOnAction组合框里面去,谢谢

[zzzhang]

谢谢楼上的两位,组合框加载窗体名称已经解决了,太谢谢你们了,我还有一个问题,组合框里自动加载ImageListCtrl控件图标的关键字,谢谢