Access 2003
Feuz
Messages postés
107
Date d'inscription
Statut
Membre
Dernière intervention
-
le meruvien Messages postés 1130 Date d'inscription Statut Membre Dernière intervention -
le meruvien Messages postés 1130 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
1°/ j'ai une base de données access 2003 et je voudrai masquer la fenêtre de base avec un code VBA
2°/ je voudrai mettre une date d'expiration pour la base de données
merci
1°/ j'ai une base de données access 2003 et je voudrai masquer la fenêtre de base avec un code VBA
2°/ je voudrai mettre une date d'expiration pour la base de données
merci
A voir également:
- Access 2003
- Office 2003 - Télécharger - Bureautique
- Acer quick access - Forum Logiciels
- Access appdata - Guide
- Exemple base de données access à télécharger gratuit - Forum Access
- Exemple base de données Access de gestion ✓ - Forum Logiciels
2 réponses
Bonjour,
Ci-dessous un petit morceau de code servant à masquer la fenêtre de base. Mais ATTENTION parce qu'alors la fenêtre de base n'est plus visible dans l'onglet "Fenêtre", il faut alors refermer la base complètement et la ré-ouvrir. A toi de savoir le moment où tu masque cette fenêtre, et éventuellement neutraliser l'ouverture du menu principal.
Bonne suite
Ci-dessous un petit morceau de code servant à masquer la fenêtre de base. Mais ATTENTION parce qu'alors la fenêtre de base n'est plus visible dans l'onglet "Fenêtre", il faut alors refermer la base complètement et la ré-ouvrir. A toi de savoir le moment où tu masque cette fenêtre, et éventuellement neutraliser l'ouverture du menu principal.
Bonne suite
Function MasquerFenetreBase()
DoCmd.Echo False, "" 'Neutralise les changements de l'écran pendant la 'fonction
On Error GoTo Sortie
DoCmd.SelectObject acTable, "", True ' Sélectionne la fenêtre de 'base. Ne pas mettre de nom entre les guillemets, c'est justement ce qui 'indique à Access qu'il doit sélectionner la fenêtre de base
DoCmd.RunCommand acCmdWindowHide 'Masque l'élément sélectionné, ici la 'fenêtre de base
DoCmd.ShowToolbar "Mode Formulaire", acToolbarNo 'Masque la barre 'd'outils "Mode Formulaire"
Sortie:
DoCmd.Echo True, "" 'Met à jour l'écran, il faut qu'un formulaire ait été 'ouvert préalablement.
End Function
Bonjour,
Pour ta 1er question, oui ce que dit tessel75 doit marcher, mais fait gaffe, fait une copie de ta base avant, car avec tous les moyens pour cacher les fenêtres ou sécuriser une base, moi j'en ai perdu une définitivement!
Et n'oublie pas aussi de neutraliser l'effet de la touche MAJ !
Pour ta 2eme question, c'est simple si tu met la 1er en fonction, il te suffit de mettre dans la procédure de démarrage un code du genre:
if date() > [datechoisie] then
'message indiquant que la date est dépassée et qu'access va ce fermer
docmd.quit
end if
ou date est la date du jour, et datechoisie la date de validité, donc après cette date, access va ce fermer.
Pour ta 1er question, oui ce que dit tessel75 doit marcher, mais fait gaffe, fait une copie de ta base avant, car avec tous les moyens pour cacher les fenêtres ou sécuriser une base, moi j'en ai perdu une définitivement!
Et n'oublie pas aussi de neutraliser l'effet de la touche MAJ !
Pour ta 2eme question, c'est simple si tu met la 1er en fonction, il te suffit de mettre dans la procédure de démarrage un code du genre:
if date() > [datechoisie] then
'message indiquant que la date est dépassée et qu'access va ce fermer
docmd.quit
end if
ou date est la date du jour, et datechoisie la date de validité, donc après cette date, access va ce fermer.