Discussion :

[docjo]

Bonjour

J'aimerai tout simplement ouvrir une bdd access réseau depuis une bdd access reseau dans le même dossier. j'ai parcouru la FAQ et trouvé un code qui me semble bien long et compliqué (ouvrir un BDD depuis une autre BDD).

J'ai essayé:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Image43_Click()
 
    Dim dbAOuvrir As DAO.Database
    If Msgbox("Vous allez changer de base" & Chr(13) & " Confirmez vous le changement ? ", vbYesNo + vbCritical + vbDefaultButton2, " Changement de base ") = vbYes Then
    'connexion à la base voulue
    Set dbAOuvrir = OpenDatabase("\\Chu06nas1\n06ane2\ccv database.mdb")
    Else
    DoCmd.GoToControl "Modifiable4"
    End If
 
 
 
End Sub

mais la bdd ne s'ouvre pas. faut-il vraiment le code de la FAQ ?
Merci d'avance

[Dolphy35]

Salut,

moi j'utilise ce code, il te permet d'ouvrir une bdd en premier plan en utilisant les API.

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
22
23
24
25
26
27
28
29
30
Private Declare Function apiSetForegroundWindow Lib "user32" _
            Alias "SetForegroundWindow" _
            (ByVal hwnd As Long) _
            As Long
 
Private Declare Function apiShowWindow Lib "user32" _
            Alias "ShowWindow" _
            (ByVal hwnd As Long, _
            ByVal nCmdShow As Long) _
            As Long
 
Private Const SW_MAXIMIZE = 3
Private Const SW_NORMAL = 1
'
 
 
Sub Open_Base()
 
    Set objAccess = New Access.Application
    With objAccess
        lngRet = apiSetForegroundWindow(.hWndAccessApp)
        lngRet = apiShowWindow(.hWndAccessApp, SW_NORMAL)
        'le premier appel à  ShowWindow semble rester sans effet
        lngRet = apiShowWindow(.hWndAccessApp, SW_MAXIMIZE)
        .OpenCurrentDatabase "Chemin de la BDD"
        .DoCmd.OpenForm "Nom du Formulaire"  'Si form paramétré au démarage la ligne n'est pas nécéssaire
    End With
    DoCmd.Quit
 
End Sub

[docjo]

You're the king ! ça marche parfaitement. Merci beaucoup.