0

ディストリビューションのようなデータベースを展開するようなものを作成しようとしています。私のメインデータベースから小さなデータベースを作成し、その後、メールに添付して別の人に送信します. なぜ私がこれをしなければならないのかは長い話ですが、私はそれをしなければなりません。

データベース転送テーブル クエリを作成できますが、以下のようなプロパティを送信する方法がわかりません。そして、誰かがそれを行う別の方法を持っていれば、それも問題ありません。10か所に配布する必要があります。しかし、ロックされたモードでそこに行き、フォームを自動的にポップアップする必要があります。

Public Function fnc_CreateAccessChicago()      
    Dim acApp As Access.Application
    Set acApp = New Access.Application
    acApp.Application.NewCurrentDatabase ("C:\TestTest\ChicagpDatabase")

------ acApp.Properties("StartupForm") = "frmAssetChicago" ----

    acApp.Quit   
End Function

Public Function fnc_Transfers()
    DoCmd.TransferDatabase acExport, "Microsoft Access", "C:\TestTest\ChicagoDatabase.accdb", acTable, "tblAllAsset", "tblAllAsset"
    DoCmd.TransferDatabase acExport, "Microsoft Access", "C:\TestTest\ChicagoDatabase.accdb", acQuery, "QryAssetChicago", "QryAssetChicago"
    DoCmd.TransferDatabase acExport, "Microsoft Access", "C:\TestTest\ChicagoDatabase.accdb", acForm, "frmAssetChicago", "frmAssetChicagoF"
End Function
4

1 に答える 1