Discussion :

[chartreuse]

Bonsoir

je voudrais par le biai d'un code VBA qu'à l'ouverture d'access un message apparaisse avec un bouton OK et qund je valide sur OK il ouvre mon formulaire.
Et si possible que ce message apparaise qu'une seule fois par jour.

Merci

[tee_grandbois]

bonsoir,
un exemple avec cette base de test: HelloWorld.zip
en mettant le code à l'ouverture du formulaire et en mettant le formulaire dans les options de la base:



ne pas oublier non plus d'activer l'exécution des macros et du code VBA:

[chartreuse]

Merci tee_grandbois pour le retour
Mais en faite je veux ce type de message box

qui s'affiche 1 seul fois par jour et quand je clique sur OK la boite de dialogue se ferme. En faite c'est juste un rappel à l'utilisateur quand il ouvre la base access.

[tee_grandbois]

voici le code modifié:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim dtLastExec As Date
Dim strSQL As String
' récupération de la date de dernière exécution
dtLastExec = Nz(DLookup("dtdateExec", "tblparam", "N°=1"), Date)
If dtLastExec <= Date Then
' affichage du message la 1ère fois
    MsgBox "Welcome to my Access Database!", vbInformation, "Microsoft Access Tutorial Database"
' mise à jour de la date pour le lendemain
    strSQL = "update tblparam set dtdateExec =#" & DateAdd("d", 1, Date) & "# where N°=1;"
    CurrentDb.Execute (strSQL)
End If

il faut quand même garder la table tblParam pour mémoriser la date d'exécution

[chartreuse]

J'insère ce code dans un module ?

[tee_grandbois]

pas nécessairement ... où a été créé la Sub ShowMyMessageBox ?

[chartreuse]

pas nécessairement ... où a été créé la Sub ShowMyMessageBox ?

J'ai encore rien crée

[tee_grandbois]

J'insère ce code dans un module ?

oui.

[chartreuse]

oui.

Aprés je fais un autoexe ?

[tee_grandbois]

non, il faut appeler la procédure à l'ouverture du formulaire (comme dans la base d'exemple que j'ai joint)

[chartreuse]

Marche pas

[tee_grandbois]

Marche pas

la table tblparam est-elle créee ?

[chartreuse]

La tablparam c'est le nom de ma table ?

[loufab]

Bonjour,

Concernant la composition des messages box (msgbox) tu peux utiliser le complément Générateur msgbox disponible sur ma page perso.

https://loufab.developpez.com/#LIII-2

--c'est bien le nom de la table à créer, sinon ton dlookup ne fonctionnera pas.

Cordialement,

[chartreuse]

Désolé le code ne marche pas
j'ai remplacé tblParam par le nom de ma table Reception
loufab je ne peux pas ouvrir ton fichier car il est en version 32bit
Désolé mais je suis pas un expert en VBA access

[loufab]

ok merci du retour je vais en profiter pour régler le problème.

[tee_grandbois]

bonjour,

Désolé le code ne marche pas
j'ai remplacé tblParam par le nom de ma table Reception

le code fonctionne avec la table Tblparam (voir la base de test HelloWorld.accdb jointe)
donc le mieux serait d'imprimer la structure de la table Reception (nom des champs) et la ligne de données contenant le champ dtDateExec (ou son équivalent dans ta propre table) et poster tout cela.

Merci loufab pour ton relai

[chartreuse]

Bonjour tee_grandbois
merci de ton retour.
Mais je pense que je me suis mal exprimé dans ma demande
En faite je veux juste un message d'info qui s'affiche à l'ouverture de ACCESS (message non relié à une table) et qu'on ferme en cliquant sur OK. Cà j'y suis arrivé via une macro "zone message" que j'ai enregistré en autoexec.
Maintenant je voudrais que ce message ne s'ouvre 1 seule fois par jour mais je pense que ce n'est pas possible.
Voilà j'espère que j'ai été plus précis...

[hyperion13]

Votre Post#1 est très clair.
C'est d'ailleurs pour cela que tee_grandbois vous a donné la bonne solution dans son Post#2 avec la bdd helloWorld. Comme quoi.
Un peu de lecture pour apprendre à piloter Access, c'est ici.

[tee_grandbois]

tee_grandbois vous a donné la bonne solution dans son Post#2 avec la bdd helloWorld.

hyperion13 ! et

bonsoir chartreuse,

je pense que je me suis mal exprimé dans ma demande

non pas du tout et j'avais bien compris le besoin.

En faite je veux juste un message d'info qui s'affiche à l'ouverture de ACCESS (message non relié à une table) et qu'on ferme en cliquant sur OK. Cà j'y suis arrivé via une macro "zone message" que j'ai enregistré en autoexec.
Maintenant je voudrais que ce message ne s'ouvre 1 seule fois par jour mais je pense que ce n'est pas possible.

le seul moyen pour voir le message une seule fois, c'est de mémoriser dans une table la date à laquelle la dernière fois que le message a été vu, d'où l'importance de cette table paramètre.