Ouvrir une autre base Access depuis VBA

Version imprimable

J'ai pu voir sur le forum une réponse à cette question mais le code donné ne fonctionne pas.
En effet, j'ai essayé cela lorsqu'on clique sur un bouton de formulaire :
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub Mesures_Radio_Click() Dim stDocName As String Dim stLinkCriteria As String DoCmd.Close OpenCurrentDatabase "M:\Exploitation\Activités\Mesures radio\Aixprimm_Radio.mdb" Exit Sub ERREUR: MsgBox "Mesures_Radio_Click : " & err.Description, vbInformation, "Erreur N° " & err.Number End Sub
Mais j'ai un message d'erreur me disant que "La base est déjà ouverte". En réalité, Aixprimm_Radio.mdb fait référence aux mêmes tables que le fichier dans lequel je lance cette procédure, d'où le message d'erreur - je pense. Comment quitter ces tables et relancer le nouveau fichier sans fermer l'application Access (parceque j'ai essayé DoCmd.Quit avant l'ouverture, mais forcément, ça ferme tout) ? Je pense que ça doit pas être bien sorcier, mais je ne suis pas un expert en VBA ...

Merci d'avance,
Cordialement,

Lier les tables?

Bonjour!

Pour quelle raison as-tu besoin d'accéder à une autre base de données, c'est pour avoir accès aux tables? SI oui, pourquoi ne pas attacher plutôt les tables dans la base de données actuelle?

Sinon, la syntaxe que tu cherches, trouvée sur Microsoft est :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
' Include the following in Declarations section of module.
Dim appAccess As Access.Application
 
Sub DisplayForm()
 
    Dim strDB as String
 
    ' Initialize string to database path.
    Const strConPathToSamples = "C:\Program " _
        & "Files\Microsoft Office\Office11\Samples\"
 
    strDB = strConPathToSamples & "Northwind.mdb"
    ' Create new instance of Microsoft Access.
    Set appAccess = _
        CreateObject("Access.Application")
    ' Open database in Microsoft Access window.
    appAccess.OpenCurrentDatabase strDB
    ' Open Orders form.
    appAccess.DoCmd.OpenForm "Orders"
End Sub

Bonne chance! :mrgreen:

07/11/2007, 22h57
Dolphy35

Salut,

peux-tu nous donner plus de détail.

ta base ouverte (on l'appellera Base_A) doit ouvrir une seconde base (Base_B)
la Base_A et la Base_B ont leurs tables liées vers une base Dorsale.

Comment veux-tu ouvrir ta seconde base ? tu veux fermer la première puis ouvrir la seconde ou les deux ouvertes ?

Dolphy ;)
12/03/2015, 07h41
itooky

Lecture des données dans une autre base

Bonjour a tous,

j'en profit de cette discutions pour chercher une solution a mon problème (je m'en excuse). Avec l'aide de plusieurs discutions sur ce forum, j'ai pu créer une requête Ajout en code VBA et SQL mais le problème maintenant c'est je ne sais pas récupérer ce valeur par la même maniéré cad en code VBA et SQL. Si la table se trouve sur la même base je maîtrise bien la situation avec le jeux d’enregistrement (Dim MaTable as New ADODB.Recordset):P, mais dans une autre base c'est un monde nouveau pour moi :(.

Merci d'avance pour votre aide les amis
12/03/2015, 08h49
madefemere

Bonjour,

Est-ce que tu peux expliquer exactement ce que tu veux faire parce qu'avec ton message, difficile de donner des explications précises.
De plus, je te conseille de créer un nouveau sujet pour ton problème pour qu'il soit bien identifié sur le forum.

Cordialement,
12/03/2015, 13h39
itooky

Lecture des données dans une autre base Résolu

Finalement,

Je vient de trouver le résultat, code est un peu plus long, il fallait juste enlever le (";") est c'est tous

Code:

resultatProv = "SELECT NomProduit FROM T_Stock_Initial; IN 'Fichier'"

ça devient donc comme ceci

Code:

resultatProv = "SELECT NomProduit FROM T_Stock_Initial IN 'Fichier'"

encore merci pour votre lecture
12/03/2015, 15h15
madefemere

Oui, pour nous on pouvait pas deviner qu'il y avait un ";" qui trainait dans une SQL.
C'est bien si t'as trouvé.
Bonne continuation