[base] Ouverture d'une base Distante par une autre Base

**Dolphy35** · 04/02/2006, 13h52

Bonjour à tous,

Je suis en train de développer une application Frontale-Dorsale avec un 100 d'utilisateurs sur PC différents (10 connexions maxi en même temps) et j'aimerais integrer une fonction de mise à jour automatique. Pour cela je dois ouvrire une autre base (pas de problème).

Code :

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

1
2
3
        Dim appAccess As New Access.Application
 
        appAccess.OpenCurrentDatabase "\\Serveur\mabase.mdb"

Mon soucis est qu'elle s'ouvre dans une fenêtre. J'aimerais savoir si c'est possible de l'ouvre sur la largeur de l'écran.

Merci d'avance.

**keita** · 05/02/2006, 22h45

Dolphy35 a ecrit:

Je suis en train de développer une application Frontale-Dorsale...

or il me semble que ton code ouvre la dorsale:

Code :

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

1
2
3
Dim appAccess As New Access.Application 
 
        appAccess.OpenCurrentDatabase "\\Serveur\mabase.mdb"

suggestion:
1/Ta frontale devrait contenir les tables de ta dorsale en "tables_liées"
2/c'est ta frontale que tu installes sur differents PCs
j'espere t'avoir compris
@+

**Dolphy35** · 06/02/2006, 08h59

Salut Keita,

Je me suis mal exprimé. En fait j'ai mon appli en Frontale-Dorsale (avec mes tables liées). Mon soucis est que j'ai beaucoup d'utilisateurs potentiels de cette base et pour le mise à jour j'ai soit envoi par mail (base trop lourde), soit envoi par mail d'un fichier *.bat (cela fonctionne mais la liste de destinataires est longue) donc je me suis décidé à créer une fonction mise à jour de ma base dans ma base.

A l'ouverture de ma base je vient contrôler la version de ma base frontale et celle dorsale (dans un table) et si je suis différent et bien je lance la mise à jour.

1-J'ouvre une base appelée MAJ.

Code :

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

1
2
3
Dim appAccess As New Access.Application 
 
        appAccess.OpenCurrentDatabase "\\Serveur\mabase.mdb"

2-J'éxeute un FileCopy des fichiers.

3-Après contrôle présence fichiers, j'ouvre ma base avec la bonne version.

Tout cela Fonctionne à merveilles mais mon soucis est lorsque j'ouvre ma deuxième base (MAJ) elle s'ouvre en petite fenêtre au milieu de mon écran (pour celle là ce n'est pas genant) par contre à la fin des copies quand j'ouvre ma Base elle aussi est dans un petit fenâtre (dialogue) et là c'est genant.

Ma question => Peut-on mettre par défaut l'ouverture en plein écran. Merci

**Tofalu** · 06/02/2006, 11h00

Ouh là, je ne crois pas que l'utilisation d'automation Access (Access Application se justifie ici) C'est vraiment trés peu performant. Ne pourrait tu pas stocker la version de ton application dans une table sur la frontale et lire cette valeur avec DAO ?

**Dolphy35** · 06/02/2006, 11h06

Envoyé par Tofalu

Ouh là, je ne crois pas que l'utilisation d'automation Access (Access Application se justifie ici) C'est vraiment trés peu performant. Ne pourrait tu pas stocker la version de ton application dans une table sur la frontale et lire cette valeur avec DAO ?

C'est ce que je fais j'ai une table comportant la version du Frontale (non liées) et un autre table comprtant la nouvelle Version (liées) si les deux versions son t différentes, j'ouvre une base qui copie tous les fichiers nécéssaires du serveur vers le Poste_utilisateur et en fin j'ouvre la base Frontale (nouvelle version) et c'est là que j'ai mon soucis (esthétique) Access s'ouvre dans un fenêtre type dialogue, je vaudrais qu'elle s'ouvre en plein écran.

Merci

**Dolphy35** · 07/02/2006, 10h16

Re,

J'ai recupérer ce bout code de Morsi dans la FAQ :

Code :

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

1
2
3
4
5
6
7
8
       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
         End With

Je pense que cela peut m'aider mais j'ai une erreure lors de la compilation sur les lignes :

Code :

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

1
2
lngRet = apiSetForegroundWindow(.hWndAccessApp)
lngRet = apiShowWindow(.hWndAccessApp, SW_MAXIMIZE)

Msg => Erreure Compilation. Sub ou Function non définie.

Y'a t'il une rèférences ?

Développement sous Access 2002.

Invité · 07/02/2006, 12h22

Salut,

Dans l'exemple de ton code tu dois avoir deux fonctions :
apiSetForegroundWindow()
apiShowWindow()
qui doivent être mises sans un module, regarde ta source

Starec

**keita** · 07/02/2006, 17h28

salut Dolphy35
Peut etre que je ne te comprendstoujours pas; mais moi, pour ouvrir une BD autre à partir de ma frontale, je fais simplement ceci:

Code :

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

1
2
3
4
5
Dim bds as DAO.Database
set bds = Opendatabase(CheminComplet\NomDeLaBD.extDeLaBD)
'Je fais ce que j'ai à faire 
'puis je detruis la variable objet dbs
set bds=Nothing

Peut etre que j'ai encore rien compris à ton pb.
@+

**Dolphy35** · 08/02/2006, 08h57

Salut à tous,

Envoyé par Starec

Dans l'exemple de ton code tu dois avoir deux fonctions :
apiSetForegroundWindow()
apiShowWindow()
qui doivent être mises sans un module, regarde ta source
Starec

Starec
il faut déclarer les deux fonctions hors module, car dans l'exemple Morsi il les a déclaré tel quel (Source)

Envoyé par keita

salut Dolphy35
Peut etre que je ne te comprendstoujours pas; mais moi, pour ouvrir une BD autre à partir de ma frontale, je fais simplement ceci:

Code :

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

1
2
3
4
5
Dim bds as DAO.Database
set bds = Opendatabase(CheminComplet\NomDeLaBD.extDeLaBD)
'Je fais ce que j'ai à faire 
'puis je detruis la variable objet dbs
set bds=Nothing

Peut etre que j'ai encore rien compris à ton pb.
@+

Keita
en fait j'ouvre une deuxième Bdd pas pour recupérer des données mais pour copier une base sur un Serveur et la mettre à la place de ma Frontale, donc je sui obbliger de fermer ma frontale. Cette manip je le faisait par fichier *.bat (obliger de l'envoyer par Mail) et ce que je veux maintenant c'est que sur ma base Frontale je détecte si une nouvelle version est disponible sur le serveur et la j'effectue une mise à jour en ouvrant ma deuxième base qui en fait copie celle qui est sur le serveur sur le disque de l'utilisateur à la place de l'autre et à la fin de la copie j'ouvre la frontale. Mon soucis est q'access s'ouvre dans un petite fenêtre et au niveau esthétique c'est moyen. J'aimerais l'ouvrir en plein Ecran.

Merci à tous.

**Dolphy35** · 09/02/2006, 10h17

Bonjour à tous,

je reviens à la charge. Quelqu'un pourrait m'expliquer ces deux lignes.

Code :

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

1
2
lngRet = apiSetForegroundWindow(.hWndAccessApp) 
lngRet = apiShowWindow(.hWndAccessApp, SW_MAXIMIZE)

je pense que c'est la solution à mon problème mais je n'arrive pas à voir l'erreur.

Merci

**Dolphy35** · 12/02/2006, 14h39

Bonjour à tous,

Quelqu'un aurait une autre idée peut être là je sèche complétement.

Merci d'avance.

**Kloun** · 12/02/2006, 14h48

Code :

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

Set objAccess = New Access.Application

Tu ouvres Access

Code :

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

1
2
3
        With objAccess
            lngRet = apiSetForegroundWindow(.hWndAccessApp)
            lngRet = apiShowWindow(.hWndAccessApp, SW_MAXIMIZE)

Les 2 API fonctionnent avec le handle du process. Pour le récupérer de l'objet access définit auparavant, c'est avec ".hWndAccessApp"
La première API affiche Access en premier plan, la 2nde le maximise.
Ensuite, dans le code, il y a l'ouverture de la base passée en paramêtre de la fonction.

**Dolphy35** · 12/02/2006, 15h18

Salut à toi Kloun,

Voici mon code

Code :

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

1
2
3
4
5
6
7
8
        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
         End With

Lors de la compilation j'ai des erreurs sur ces deux lignes

Code :

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

1
2
lngRet = apiSetForegroundWindow(.hWndAccessApp)
            lngRet = apiShowWindow(.hWndAccessApp, SW_MAXIMIZE)

Y a t'il un référence à cocher ou autre. Je ne connais pas les API et je bloque.

**keita** · 12/02/2006, 17h02

salut Dolphy35
juste une ptite question?
Au moment ou tu lances ton code, une autre session d'access serait elle deja en cours?
@+

**Dolphy35** · 12/02/2006, 17h44

Envoyé par keita

salut Dolphy35
juste une ptite question?
Au moment ou tu lances ton code, une autre session d'access serait elle deja en cours?
@+

Salut Keita,

Oui j'ai la première base qui est ouverte. En gros avec mla première base j'ouvre un edeuxième base qui ferme la premièrec, cette base exécute la copy des fichiers puis si tout est Ok réouvre la première base pour que la deuxième se ferme.

**Kloun** · 12/02/2006, 17h49

Est-ce que tu as déclaré les API dans ton module (ou ailleurs) ?
Tu dois avoir ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
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

dans ton module.

**Dolphy35** · 12/02/2006, 18h33

J'esseye et je vous tiens au courant.

Merci Kloun

**Dolphy35** · 13/02/2006, 14h43

Un grand Merci à Kloun,

C'était bien la déclaration qu'il me manquait.

Voici le code en entier :

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
31
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
 
Function MAJ_Base()
 
    ' Initialise la chaîne au chemin d'accès à la base de données.
    ' Crée une nouvelle instance de Microsoft Access.
 
        Set objAccess = New Access.Application
        With objAccess
            lngRet = apiSetForegroundWindow(.hWndAccessApp)
            lngRet = apiShowWindow(.hWndAccessApp, SW_NORMAL)
            lngRet = apiShowWindow(.hWndAccessApp, SW_MAXIMIZE)
            .OpenCurrentDatabase "D:\MaBase.mdb"
            .DoCmd.OpenForm "Formulaire1"
        End With
 
    DoCmd.Quit
 
End Function

Cela fonctionne à Merveille.

info => j'utilise Access 2002.

[base] Ouverture d'une base Distante par une autre Base

Access

Discussions similaires

Partager

Partager