Discussion :

[stoads]

bonjour à tous,
voilà je débute avec access et j'ai un petit soucis pour éxécuter ma macro.
je m'explique:
-j'ai créé un module startup que voici:

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Startup()
 
    DoCmd.OpenForm "frmSplashScreen", acNormal           ' ouvrir le splashscreen
    DoEvents                                          ' pour version 2002 et +
' execute les traitements divers
' ....
 
    DoCmd.Close acForm, "frmSplashScreen", acSaveNo      ' ferme le splashscreen
 
End Sub

-j'ai crée par la suite une macro éxécuter code, avec pour nom fonction startup.

lorsque j'éxécute ma macro j'obtiens le message suivant:
"impossible pour microsoft access de trouver le nom'startup' entré dans l'expression.

Pour info j'ai utilisé le tutoriel de ce même site pour créer mon splashscreen.

Quelqu'un peux t'il m'aider?

merci[/img][/b]

[User]

Il faut que Startup() soit une fonction:

=Startup()

et

Code :

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

1
2
3
Function Startup()
...
End Function

@+

[stoads]

=startup() je dois le mettre dans nom fonction dans la macro?

[keita]

oui

[stoads]

alors ça ne marche pas j'ai le message suivant:
"l'expression entrée comporte un nom de fonction introuvable."

J'ai essayé sans le "=" mais idem.

[User]

Startup doit etre une fonction et non une sub:

Code :

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

1
2
3
4
5
6
7
8
9
10
Function Startup() 
 
    DoCmd.OpenForm "frmSplashScreen", acNormal           ' ouvrir le splashscreen 
    DoEvents                                          ' pour version 2002 et + 
' execute les traitements divers 
' .... 
 
    DoCmd.Close acForm, "frmSplashScreen", acSaveNo      ' ferme le splashscreen 
 
End Function

[stoads]

oui ça j'avais compris et je l'avais modifié mais ça ne marche pas.

[User]

Bizarre, c'est bien une macro RunCode avec
Nom de fonction=Startup()

???

La fonction doit etre public et dans un module indépendant !

[stoads]

c'est une macro "Exécutercode" avec pour nom fonction"=startup()"

dans l'encadré de l'aide il dise de mettre les arguments entre parenthèses???Ca correspond à quoi cela?

[User]

La fonction doit etre public et dans un module indépendant !
tu dois avoir dans la macro "exécuter code":
nom fonction=startup()

sans guillemets !!!

[stoads]

Désolé pour mon ignorance mais comment savoir si la fonction est public?

Quand au module il est uniquement pour la fonction startup et le nom fonction est bien entendu sans guillemets.

[User]

si tu a déclaré:
Function Startup()

dans un module indépendant alors elle est public par défaut, donc c'est bon,

essai de retrouver ta fonction avec le générateur d'expression depuis la macro.

à droite du nom de fonction, click sur le générateur d'expression,
puis dans la liste de gauche choisi fonctions et le nom de ta bd,
->dans la liste du milieu choisi le nom de ton module
->dans la liste de droite copie ta fonction startup()
->puis fais ok.

@+

[stoads]

j'y avais déjà pensé et cela me mets le même message d'erreur:
"l'expression entrée comporte un nom de fonction introuvable."

ca m'a l'air bien compliqué tout cela!!!

[User]

Alors la c'est vraiment très bizarre ton truc !

essai de changer le nom de la fonction

[keita]

stoads a ecrit:

ca m'a l'air bien compliqué tout cela!!!

non. pas du tout.on ne se decourage pas.on n'est tous passé par là.cela dit, le pb ici est de savoir où tu as mis ta function.
tu ouvres ta fenetre base de donnees, tu click sur l'onglet modules, puis nouveau et tu copie Starup là dedans.

[stoads]

Ca marche GENIAL!!

Une autre petite question : l'image apparaît trés brièvement comment faire pour qu'elle apparaisse plus longtemps...disons 3 secondes?

[User]

Il faut supprimer:

Code :

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

DoCmd.Close acForm, "frmSplashScreen", acSaveNo

de ta fonction startup()

tu met la propriété de ton form timerintervalle=3000

et sur l'event timer

Code :

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

1
2
3
Private Sub Form_Timer()
DoCmd.Close acForm, "frmSplashScreen", acSaveNo 
End Sub

[stoads]

merci pour tout c'est génial access ....quand on sait s'en servir!!!

A la prochaine peut être

[cafeine]

Developpez est comme Access, c'est génial quand on sait s'en servir :

un tutoriel répond exactement à ton problème :
http://loufab.developpez.com/splashscreen/

[stoads]

C'est avec ce tutoriel que j'ai fait mon splashscreen...cela ne m'a pas empêché de rencontrer des problèmes....bien heureusement résolu maintenant.