オブジェクトが開いているかどうかを検出する

多くの場合、プログラムでオブジェクトを編集する前に、特定のデータベース オブジェクトが開いているかどうかを確認する必要があります。 次の例では、acSysCmdGetObjectState アクションで SysCmd メソッドを使用して、データベース オブジェクトが開いているかどうかを判断する方法を示します。

この例の IsObjectLoaded 関数は 2 つのパラメーターを取ります。 strObjectName パラメーターは、チェック対象のデータベース オブジェクトの名前です。 strObjectType パラメーターは、チェック対象のデータベース オブジェクトの種類を指定する AcObjectType 定数です。 IsObjectLoaded 関数は、指定したデータベース オブジェクトが開いている場合は True を返し、開かなければ False を返します。

 
Function IsObjectLoaded(ByVal strObjectName As String, ByVal strObjectType As AcObjectType) As Boolean 
     
    If SysCmd(acSysCmdGetObjectState, strObjectType, strObjectName) <> 0 Then 
         
       ' The object is open. 
        IsObjectLoaded = True 
    Else 
 
       ' The object is not open. 
        IsObjectLoaded = False 
    End If 
     
End Function

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

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