|
▼Yuki さん:
こんにちは、へらぶなと申します。
早速試させていただきました。
おおおぉ、うまくいきました!ありがとうございます。
ただ、このソースのままだとエラーが発生するので
エラーが出ないように修正したソースを載せますね。
Private Sub AccAppOpen(ByVal strフォーム名 As String)
Dim strMdb As String
Dim objMdb As Access.Application
strMdb = "C:\db1.mdb" 'MDBのフルパス
Set objMdb = GetObject(strMdb)
If Not objMdb.Visible Then
objMdb.Visible = True
End If
objMdb.DoCmd.OpenForm strフォーム名, acNormal, , , , acWindowNormal
objMdb.DoCmd.Maximize
If Not objMdb.UserControl Then
objMdb.UserControl = True
End If
Set objMdb = Nothing
End Sub
これで「わからないこと b)」は解決です。
「わからないこと a)」も、この方法なら2重起動しないので
問題ありません。
ご協力いただいた方々、本当にありがとうございました。
|
|