[VB] Ouverture d'une base Access par le code

Version imprimable

J'ai récupérer dans la FAQ un code de Morsi permettant d'ouvrir une base de données

Code:

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
Function fOpenRemoteForm(strMDB As String, _
                                        strForm As String, _
                                        Optional intView As Variant) _
                                        As Boolean
Dim objAccess As Access.Application
Dim lngRet As Long
 
    On Error GoTo fOpenRemoteForm_Err
 
    If IsMissing(intView) Then intView = acViewNormal
 
    If Len(Dir(strMDB)) > 0 Then
        Set objAccess = New Access.Application
        With objAccess
            lngRet = apiSetForegroundWindow(.hWndAccessApp)
            lngRet = apiShowWindow(.hWndAccessApp, SW_MAXIMIZE)
            'le premier appel à  ShowWindow semble rester sans effet
            lngRet = apiShowWindow(.hWndAccessApp, SW_MAXIMIZE)
            .OpenCurrentDatabase strMDB
            .DoCmd.OpenForm strForm, intView
            Do While Len(.CurrentDb.Name) > 0
                DoEvents
            Loop
        End With
    End If
.....

mais j'ai une erreur de type reference incorrecte au niveau des lignes

Code:

"lngRet = apiShowWindow(.hWndAccessApp, SW_MAXIMIZE)"

y a t'il une reference que je doit ajouter, ou autre chose?

merci d'avance,

Jouf

Bjr,

Il manque les déclarations des APIs :

Code:

1
2
3
4
5
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

15/06/2006, 17h08
jouf

merci Arkham,
ca fonctionne!!:D

au risque d'abuser, sait tu comment ouvrir la nouvelle base en plein écran? (pas le formulaire mais la fenêtre Access!!!)

Encore Merci,

Jouf
15/06/2006, 17h18
Arkham46

normalement ça s'ouvre en plein écran avec ce code

il doit manquer aussi :

Code:

Private Const SW_MAXIMIZE = 3

(je ne les invente pas, on les trouve avec google ;) )
15/06/2006, 17h54
jouf

Merci Arkham: c'est vrai que j'ai de gros effort a faire sur les qualité de mes recherche...:oops:

je te remercie encore même si ca ne s'ouvre pas en plein écran, (ca s'ouvre en grand mais pas en plein écran) snif,

merci pour tout, grace à toi, je vais pouvoir mettre un point final à mon stage!

8-)
Merci!!

Jouf