References.ItemRemoved イベント (Access)

ItemRemoved イベントは、参照設定がプロジェクトから削除されると発生します。

構文

式。ItemRemoved (リファレンス)

式References オブジェクトを表す変数。

パラメーター

名前	必須 / オプション	データ型	説明
Reference	必須	Reference	プロジェクトから削除された参照設定。

注釈

ItemRemoved イベントは References コレクションに適用されます。 他のほとんどのイベントと同様に、コントロール、フォーム、またはレポートには関連付けられません。 そのため、 ItemRemoved イベント プロシージャのプロシージャ定義を作成するには、特別な構文を使用する必要があります。

ItemRemoved イベントは、イベント プロシージャが発生した場合にのみ実行できます。マクロを実行できません。

このイベントは、コードで参照設定を削除したときにのみ発生します。 [参照] ダイアログ ボックスから参照を削除しても発生しません。[モジュール] ウィンドウがアクティブウィンドウの場合、[ツール] メニューの [参照] を選択して使用できます。

例

次の例には、ItemAdded イベントおよび ItemRemoved イベントのイベント プロシージャが含まれています。 この例を試すには、まず[挿入] メニューの [クラス モジュール] を選択して、新しいクラス モジュールを作成します。 次のコードをクラス モジュールに貼り付け、モジュールを RefEvents として保存します。

' Declare object variable to represent References collection. 
Public WithEvents evtReferences As References 
 
' When instance of class is created, initialize evtReferences 
' variable. 
Private Sub Class_Initialize() 
 Set evtReferences = Application.References 
End Sub 
 
' When instance is removed, set evtReferences to Nothing. 
Private Sub Class_Terminate() 
 Set evtReferences = Nothing 
End Sub 
 
' Display message when reference is added. 
Private Sub evtReferences_ItemAdded(ByVal Reference As _ 
 Access.Reference) 
 MsgBox "Reference to " & Reference.Name & " added." 
End Sub 
 
' Display message when reference is removed. 
Private Sub evtReferences_ItemRemoved(ByVal Reference As _ 
 Access.Reference) 
 MsgBox "Reference to " & Reference.Name & " removed." 
End Sub

次の Function プロシージャは、指定した参照を削除します。 参照が削除されると、RefEvents クラスで定義されている ItemRemoved イベント プロシージャが実行されます。

たとえば、カレンダー コントロールへの参照設定を削除するために、文字列 "MSACAL" を引き渡します。これは、カレンダー コントロールを表す Reference オブジェクトの名前です。

Function RemoveReference(strRefName As String) As Boolean 
 Dim ref As Reference 
 
 On Error GoTo Error_RemoveReference 
 ' Return object representing existing reference. 
 Set ref = objRefEvents.evtReferences(strRefName) 
 ' Remove reference from collection. 
 objRefEvents.evtReferences.Remove ref 
 RemoveReference = True 
 
Exit_RemoveReference: 
 Exit Function 
 
Error_RemoveReference: 
 MsgBox Err & ": " & Err.Description 
 RemoveReference = False 
 Resume Exit_RemoveReference 
End Function

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。