こっちもヘルプ見てやったりしてたけど
どぉしてもレポートとフォームの一覧が
出ないーーー（；＿；）
あっ、ちなみに 'テーブル一覧作成
With DB
Print #1, "Table Name"
For Each tbl In .TableDefs
If Left(tbl.Name, 4) <> "MSys" Then
Print #1, " " & tbl.Name
End If
Next tbl
End With
'レポート一覧作成
Print #1, "Report Name"
For Each rpt In Reports
Print #1, rpt.Name
For Each ctl In rpt.Controls
Print #1, ">>>"; ctl.Name
Next ctl
Next rpt
'フォーム一覧作成
Print #1, "Form Name"
For Each frm In Forms
Print #1, frm.Name
For Each ctl1 In frm.Controls
Print #1, ">>>"; ctl1.Name
Next ctl1
Next frm
こんな感じで作ったんでしがぁ・・・（；＿；）
|