ADT/ODE : Comment faire pour créer un écran de «Démarrage» de démarrage personnalisé

Traductions disponibles Traductions disponibles
Numéro d'article: 101374 - Voir les produits auxquels s'applique cet article
Avancé : La nécessité de codage expert, l'interopérabilité et compétences multi-utilisateur.

Agrandir tout | Réduire tout

Sommaire

Résumé

Cet article explique comment créer un écran de «démarrage» de démarrage personnalisés (écran de titre) pour votre application Microsoft Access.

Cet article suppose que vous êtes familiarisé avec Visual Basic pour applications et la création d'applications de Microsoft Access à l'aide des outils de programmation fournis avec Microsoft Access. Pour plus d'informations sur Visual Basic pour applications, reportez-vous à votre version du manuel «Création d'applications avec Microsoft Access».

Remarque : Visual Basic pour applications est appelé Access Basic dans Microsoft Access versions 1.x et 2.0. Pour plus d'informations sur Access Basic, consultez le manuel «Introduction à la programmation» dans Microsoft Access version 1.x ou le manuel «Création d'applications» dans Microsoft Access version 2.0

Plus d'informations

Un écran de démarrage de «démarrage» est utilisé par les programmeurs pour afficher des informations importantes sur un programme lors du démarrage et pour donner à l'utilisateur quelque chose colorée pour examiner et lire en attendant que le programme terminer son traitement initial, telles que la lecture et la configuration des préférences définis par l'utilisateur.

Un écran de démarrage classique contient les informations suivantes :

  • Le programme nom et le numéro de version
  • Nom et société de l'utilisateur inscrit
  • Les informations de copyright
  • Le développeur nom et le logo de société
Cet article contient deux fonctions définies par l'utilisateur exemple pour implémenter la fonctionnalité de démarrage.

Création d'un nouveau module de démarrage

Pour créer les fonctions, procédez comme suit :

  1. Créer un nouveau module et tapez les fonctions suivantes.

    Remarque : Dans le code suivant, un trait de soulignement (_) est utilisé comme un caractère de continuation de ligne. Supprimez le trait de soulignement de fin de la ligne lors de la reprogrammation dans Access Basic.
           '******************************************************************
           ' MODULE NAME: Splash
           ' DECLARATION SECTION
           '******************************************************************
           Option Explicit
    
           Dim gSplashStart     ' The time when the splash screen opened.
           Dim gSplashInterval  ' The minimum time to leave the splash screen
                                ' up.
           Dim gSplashForm      ' The name of the splash screen form.
    
           '******************************************************************
           ' FUNCTION: SplashStart()
           '
           ' PURPOSE: Used to invoke the splash screen form specified by the
           '    SplashForm argument.
           '
           ' ARGUMENTS:
           '    SplashForm     - The name of the form to use as the splash
           '                     screen.
           '    SplashInterval - The minimum time, in seconds, that the splash
           '                     screen must remain active on the screen.
           '
           '******************************************************************
           Function SplashStart (ByVal SplashForm As String, ByVal _
                  SplashInterval As Integer)
               ' Open the splash form.
               DoCmd.OpenForm SplashForm  ' In Microsoft Access 97 and 7.0.
               'DoCmd OpenForm SplashForm ' In versions 1.x and 2.0 only.
    
               ' Set the starting time.
               gSplashStart = Timer
    
               ' Record the global information.
               gSplashInterval = SplashInterval
               gSplashForm = SplashForm
           End Function
    
           '******************************************************************
           ' FUNCTION: SplashEnd()
           '
           ' PURPOSE: Used to close the splash screen form opened by the
           '    SplashStart() function. This function checks to ensure that
           '    the splash screen remains active until the user-specified
           '    interval has expired.
           '
           '******************************************************************
           Function SplashEnd ()
              Dim RetVal
    
              ' Loop until the splash screen has been active for
              ' the desired interval.
              Do Until Timer - gSplashStart > gSplashInterval
                 ' Yield control so other applications can process.
                 RetVal = DoEvents()
              Loop
    
              ' Close the splash screen.
              DoCmd.Close acForm, gSplashForm ' In Microsoft Access 97 and 7.0.
             'DoCmd Close A_FORM, gSplashForm ' In version 1.x and 2.0 only.
    
           End Function
    					
  2. Enregistrer le nouveau module comme écran de démarrage.

En utilisant les fonctions de SplashEnd() et SplashStart()

Pour utiliser les fonctions SplashStart() et SplashEnd(), procédez comme suit :
  1. Créer un formulaire basé sur une table ou une requête avec le texte et les graphismes que vous souhaitez afficher dans l'écran de démarrage. Pour plus d'informations, consultez la section «Définition des propriétés de formulaire» plus loin dans cet article.
  2. Dans la fenêtre Base de données, cliquez sur l'onglet macros, puis cliquez sur Nouveau.
  3. Créez une macro avec les actions suivantes et enregistrez-la sous AutoExec :
           Macro Name   Action
           -----------------------------------------------------------------
           AutoExec     RunCode
                        <any startup macro actions required by your program>
                        RunCode
    
           AutoExec Actions
           ----------------------------------------------------------------
           RunCode
    
              Function Name: SplashStart("YourSplashFormNameHere", 5)
           <any startup macro actions required by your program .. optional>
           RunCode
              Function Name: SplashEnd()
    					

Définition des propriétés de formulaire

Pour obtenir de meilleurs résultats, le formulaire de démarrage doit avoir ses propriétés de formulaire définies comme suit :
   ScrollBars: Neither
   PopUp: Yes
   Modal: Yes
   RecordSelectors: No
				

Suppression de l'écran de démarrage par défaut

Pour empêcher l'écran de démarrage de Microsoft Access par défaut d'apparaître dans les versions de Microsoft Access antérieures à la version 7.0, vous pouvez utiliser la version d'exécution de Microsoft Access fournie avec le Kit d'outils du développeur Microsoft Access pour version 2.0 ou le Kit de distribution accès Microsoft (ADK) pour la version 1.1.

Références

Pour plus d'informations sur l'exécution d'une macro AutoExec dans Microsoft Access, recherchez dans le sommaire pour «macros AutoExec» ou formulez votre question au Compagnon Office de Microsoft Access 97.

Propriétés

Numéro d'article: 101374 - Dernière mise à jour: mardi 6 mai 2003 - Version: 2.0
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • Microsoft Access Distribution Kit 1.1
  • Microsoft Access Developer's Toolkit 2.0
  • Microsoft Access Developer's Toolkit 1.1
  • Microsoft Office 97 Developer
Mots-clés : 
kbmt kbhowto kbprogramming KB101374 KbMtfr
Traduction automatique
IMPORTANT : Cet article est issu du système de traduction automatique mis au point par Microsoft (http://support.microsoft.com/gp/mtdetails). Un certain nombre d?articles obtenus par traduction automatique sont en effet mis à votre disposition en complément des articles traduits en langue française par des traducteurs professionnels. Cela vous permet d?avoir accès, dans votre propre langue, à l?ensemble des articles de la base de connaissances rédigés originellement en langue anglaise. Les articles traduits automatiquement ne sont pas toujours parfaits et peuvent comporter des erreurs de vocabulaire, de syntaxe ou de grammaire (probablement semblables aux erreurs que ferait une personne étrangère s?exprimant dans votre langue !). Néanmoins, mis à part ces imperfections, ces articles devraient suffire à vous orienter et à vous aider à résoudre votre problème. Microsoft s?efforce aussi continuellement de faire évoluer son système de traduction automatique.
La version anglaise de cet article est la suivante: 101374
L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.
Exclusion de responsabilité concernant les contenus obsolètes dans la Base de connaissances
Cet article concerne des produits pour lesquels Microsoft n'offre plus de support. Il est par conséquent fourni « en l'état » et ne sera plus mis à jour.

Envoyer des commentaires

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com