Discussion :

[jouf]

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

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
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 :

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

"lngRet = apiShowWindow(.hWndAccessApp, SW_MAXIMIZE)"

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

merci d'avance,

Jouf

[Arkham46]

Bjr,

Il manque les déclarations des APIs :

Code à rajouter en haut du module :

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

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

[jouf]

merci Arkham,
ca fonctionne!!

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

[Arkham46]

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

il doit manquer aussi :

Code :

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

Private Const SW_MAXIMIZE = 3

(je ne les invente pas, on les trouve avec google )

[jouf]

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

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!


Merci!!

Jouf