Désactiver le Splash-screen Access

**Marco_SAP** · 02/01/2007, 10h52

Bonjour,

J'ai une appli Access qui démarre avec une macro autoexec puis l'appli se ferme automatiquement avec l'instruction Quit dans un module vba.

Je souhaiterais désactiver le splas-screen "Office Access 2003" au démarrage d'Access. J'ai pas trouvé la solution dans la FAQ mais cela est-il possible et comment faire ?

Merci de votre aide

Marco

**Heureux-oli** · 02/01/2007, 11h21

Tu peux toujours mettre ton splash screen.

Il faut un fichier image avec le même nom que ta db et dans le même répertoire.

Je sais qu'avec du bmp, ça passe sans problème, j'ai pas encore essayé avec du jpeg.

**Marco_SAP** · 02/01/2007, 12h14

Sympa ce truc !
Je vais essayer de mettre un image grise.

Merci

**Heureux-oli** · 02/01/2007, 12h48

Après test, c'est du bmp.

**Dolphy35** · 02/01/2007, 15h23

Salut,

Envoyé par poxvx

est-il possible de redefinir le temp d'affichage du splash ?

http://loufab.developpez.com/splashscreen/

Pensez à consulter les tutos

Dolphy

**Marco_SAP** · 02/01/2007, 18h32

C'est vrai qu'on peut faire des trucs sympas avec le formulaire, merci pour le tuto !

A votre avis, peut-on écuter une application Access en mode silentieux, c'est à dire sans faire apparaitre les fenêtres ?

**ft035580** · 02/01/2007, 23h54

Salut,

Envoyé par Marco_SAP

A votre avis, peut-on éxécuter une application Access en mode silentieux, c'est à dire sans faire apparaitre les fenêtres ?

Et zut,

Sujet récurrent sur le forum.

Ces derniers t'auront prévenu

Cf. ShowWindow.
Ex.: Dans module formulaire.

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
Option Compare Database
Option Explicit
    Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
 
Private Const SWP_NOMOVE = 2
Private Const SWP_NOSIZE = 1
Private Const HWND_TOPMOST = -1
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _
    ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _
    ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
 
 
Private Sub Form_Load()
ShowWindow Application.hWndAccessApp, 0
ShowWindow Me.hwnd, 1
End Sub