Discussion :

[Elnino38]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

[Maroxye]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[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

[itooky]

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), mais dans une autre base c'est un monde nouveau pour moi .

Merci d'avance pour votre aide les amis

[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,

[itooky]

Finalement,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ça devient donc comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

encore merci pour votre lecture

[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