Access プロジェクトを指定したい

Question

CurrentProject.AllForms

のCurrentProjectの部分ですが、
他のAccessファイルを参照するにはどのようにすればよいでしょうか？

Comments

[hex309]

ご自分でどこまで調べていますか？
試されたコードを提示されると、回答がつきやすいかと思います。

[Chandler_Bing]

strDBPath = "C:\My Documents\db1.MDB"

Set acApp = New Access.Application
acApp.Visible = True
acApp.OpenCurrentDatabase strDBPath

acApp.AllForms

としていますが、データまたはメンバーが見つかりませんと出てしまいます。。。。

[hex309]

ありがとうございます。ただ、「質問」は編集ができるはずなので、こちらではなく質問を編集する形にしていただいたほうがよろしいかと思います。

Answer 1

OpenCurrentDatabase で別のAccessファイルを開けばいいでしょう。

サンプルコード

    Dim acApp As Access.Application
    '別のAccessを起動する
    Set acApp = New Access.Application
    With acApp
        '別のAccessファイルを開く
        .OpenCurrentDatabase "C:\Users\test\Documents\test.accdb"
        
        Dim obj As AccessObject
        For Each obj In .CurrentProject.AllForms
            Debug.Print obj.Name
            .SaveAsText acForm, obj.Name, "C:\Users\test\Documents\" & obj.Name & ".frm"
        Next
        .Quit
    End With
    Set acApp = Nothing

Comments

[Chandler_Bing]

解答ありがとうございます。
やはりだめです。フォームの名前を取得したりすることはできるのですが、
書き込みがされません、、、、。

別DBをひらかず、現在のDBで実行した場合は書き込みまで処理が完了します。

[hatena19]

acApp.SaveAsText としたらどうでしょうか。

[Chandler_Bing]

きました！！！！
ありがとうございます。

感謝です、、、、。

[Chandler_Bing]

何度もすみません。
確かにさっきいったのですが、また書き込みされません
Public Sub gsub_SaveAsText()
Set acApp = New Access.Application
acApp.OpenCurrentDatabase "Path"
strDir = strDir & "temp\"
Dim strName As String
'---< FORM >
For i = 0 To acApp.CurrentProject.AllForms.Count - 1
strName = acApp.CurrentProject.AllForms(i).Name
Debug.Print strName
SysCmd acSysCmdSetStatus, strName & " Exporting..."
acApp.SaveAsText acForm, strName, "D:\Temp\その他出力\Export\変更前\Form" & strName & ".frm"
Next i

End Sub

[Chandler_Bing]

何か間違えていますでしょうか？

Answer 2

以下、提示いただいたコードですが、

strDBPath = "C:\My Documents\db1.MDB"

Set acApp = New Access.Application
acApp.Visible = True
acApp.OpenCurrentDatabase strDBPath

acApp.AllForms

エラーになる部分を以下に変更でいかがでしょうか。

acApp.CurrentProject.AllForms

Comments

[Chandler_Bing]

解答ありがとうございます。

For i = 0 To acApp.CurrentProject.AllForms.Count - 1
strName = acApp.CurrentProject.AllReports(i).Name
Debug.Print
SysCmd acSysCmdSetStatus, strName & " Exporting..."
SaveAsText acReport, strName, strDir & strName & gcntExtensionTxt
Next i
Set acApp = Nothing

ご提示の方法で、エラーがでずに、Reportの名前を取得できるのですが、
どうもテキストが書き出されません、、、、。
何か間違えていますでしょうか？

[Chandler_Bing]

CurrentProjectのみの場合は上手くいきます