La fermeture d'une base de données en utilisant le code VBA à partir d'une autre base de données

Est-il possible de fermer une base de données Access (appelons ça de la Base de données A) par du code VBA à partir d'une autre Base de données (Base de données, B).

Dans l'exemple ici, si la Base de données est ouverte lorsque la Base de données B lance, j'ai envie de la Base de données à proximité. Est-ce possible à l'aide de VBA?

J'ai eu un google à ce sujet, mais toutes les réponses semblent être liées à la fermeture de la base de données actuelle à l'aide de VBA, ce qui bien sûr je pourrais réaliser avec DoCmd.Cesser de fumer.

Toute aide est grandement appréciée.

  • les bases de données liées à tous?
  • Non, pas le sentiment d'avoir les tables liées etc. Ils exercent les différents aspects de la même fonction, ainsi thématiquement liés!
  • Est l'utilisateur qui lance la Base de données B le même utilisateur qui a Une Base de données ouverte?
  • Oui - voir explications ci-dessous re clones etc.
InformationsquelleAutor Sinister Beard | 2012-07-03
  1. 5

    Vous pouvez détourner:

    Dim OtherDB As Object

sOther = "Z:\Documents\other.accdb"
Set OtherDB = GetObject(sOther)
OtherDB.Application.Quit

    Il peut rendre la vie difficile pour quelqu'un.

    • Bonjour à nouveau, Remou! Merci, vais essayer ça et rapport - ça ne devrait pas poser de problème, car la base de données pour être fermé n'est que temporaire: la fonction de Base de données B est de supprimer la Base de données A.
    • Cela peut être hors sujet, mais pourquoi la Base de données B seule fonction pour supprimer Une Base de données? Aussi avez-vous dire de fermer et de ne pas les supprimer?
    • Nous avons une base de données avec de multiples (plus de 300) des utilisateurs. J'ai divisé la base de données d'arrêter la corruption. Traditionnellement, je ne puis donner à tous les utilisateurs de leur propre copie de l'extrémité avant de la base de données. Cependant, nous avons accès à l'ensemble de nos programmes via Citrix, plutôt que de nos locaux de machines, donc ce n'est pas possible. Ce que j'ai plutôt fait est de créer un lanceur qui produit ad-hoc clone de l'extrémité avant à chaque fois que quelqu'un se connecte, donc tout le monde travaille à partir d'un autre avant la fin, la prévention de la corruption. La fonction de Base de données B est de supprimer le clone (Un) une fois connecté, donc nous n'avons pas un sentier de la partie inutilisée des clones.
    • Pour répondre à votre question plus précisément, la Base de données B est destiné à supprimer de la Base de données, mais d'abord, il est à proximité de la Base de données ou le Tuer ne fonctionne pas; il doit venir de la Base de données B plutôt que juste un DoCmd.Quitter sur Une Base de données en raison d'Une lance B, qui exécute le code à l'ouverture, le plus souvent avant le DoCmd.Quit a donné le coup d'A.
    InformationsquelleAutor Fionnuala
  2. 3

    Je sais que cette question est ancienne, mais peut-être que cela aidera quelqu'un. J'avais une base de données dans laquelle j'ai utilisé VBA pour ouvrir une autre base de données et exécuter une macro. Je voulais ensuite fermer la db. Le code qui a travaillé pour moi est au-dessous, il comprend l'ensemble du processus de l'ouverture à la fermer.

    Function functionName()

Static acc As Access.Application
Dim db As DAO.Database
Dim dbname As String
dbname = "absolutePathToDBHere.accdb"
Set acc = New Access.Application
acc.Visible = True
Set db = acc.DBEngine.OpenDatabase(dbname, False, False)
acc.OpenCurrentDatabase dbname
acc.DoCmd.RunMacro ("macroName")
acc.DoCmd.Quit acQuitSaveAll

db.Close
Set db = Nothing

End Function
    InformationsquelleAutor kristine