Outlookの.RunがAccessインスタンスを2回開くのを防ぐにはどうすればよいですか？

Question

MS Outlookでは、MS Accessでマクロを呼び出すボタンがあります。そのマクロはフォームを開き、テキストを設定します。そのボタンを押すたびに、Accessの新しいインスタンスが開かれています。 Accessの複数のインスタンスを開くことを防止するにはどうすればよいですか？

見通しコード：

'general declarations: 
Public appAccess As Object 


Sub OpenRecord() 
    Dim Reference As String 
    Dim docAccess 

    Reference = 'teststring' 

    Set appAccess = CreateObject("Access.Application") 
    docAccess = appAccess.opencurrentdatabase("D:\Database\MSA_db.accdb") 
    appAccess.Visible = True 
    appAccess.Run "OpenInternalReference", Reference 
End Sub 

アクセスコード：

Public Sub OpenInternalReference(MailReference As String) 
    Dim stDocName As String 
    Dim stLinkCriteria As String 

    stDocName = "browse" 
    DoCmd.OpenForm stDocName, , , stLinkCriteria 

    Forms("Browse").prefilter.SetFocus 
    Forms("Browse").prefilter.Text = MailReference 
End Sub 

Answer 1

あなたの問題は.Run方法ではありません、それは常にアクセスの新しいインスタンスを作成しますので、あなたのSet appAccess = CreateObject("Access.Application")です。

は

このコードは、すでに開いているアクセスアプリケーションを取得しようとすると何も見つからなかった場合は、新しいを作成します。私は追加する必要がありました

Dim appAccess As Object 

On Error Resume Next 
Set appAccess = GetObject(Class:="Access.Application") 
On Error GoTo 0 

If appAccess Is Nothing Then 
    Set appAccess = CreateObject("Access.Application") 
End If