Détecter si un objet est ouvert

Il est souvent nécessaire de savoir si un objet de base de données particulier est ouvert avant de pouvoir modifier l’objet par programmation. L’exemple suivant montre comment utiliser la méthode SysCmd avec l’action acSysCmdGetObjectState pour déterminer si un objet de base de données est ouvert.

L'exemple de fonction, IsObjectLoaded, accepte deux paramètres. Le paramètre strObjectName est le nom de l’objet de base de données à vérifier. Le paramètre strObjectType est une constante AcObjectType qui spécifie le type d’objet de base de données à vérifier. La fonction IsObjectLoaded retourne True si l’objet de base de données spécifié est ouvert, et retourne False s’il n’est pas ouvert.

 
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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.