ディストリビューションのようなデータベースを展開するようなものを作成しようとしています。私のメインデータベースから小さなデータベースを作成し、その後、メールに添付して別の人に送信します. なぜ私がこれをしなければならないのかは長い話ですが、私はそれをしなければなりません。
データベース転送テーブル クエリを作成できますが、以下のようなプロパティを送信する方法がわかりません。そして、誰かがそれを行う別の方法を持っていれば、それも問題ありません。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