Afficher la fenêtre base de données

Le
codial
Bonsoir,

Je suis en train d'actualiser une appli sous access 97 et "on" me demande de
neutraliser l'accés à la fenêtre base de donnée une fois l'appli en en MDE
(Ce qui ne pose pas de problème) mais toutefois que l'administrateur, à
partir d'un mot de passe, puisse l'afficher et intervenir éventuellement
dans les tables.

Comment je peux faire car Sendkeys "{F11}" ne fonctionne plus évidemment ?

D'avance merci

Codial
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Raymond [mvp]
Le #4849321
Bonjour.

Utiliser la propriété : StartUpShowDBWindow et la mettre à true.
soit tu testes le code utilisateur de la base, soit l'administrateur possède
une base personnelle capable de changer l'état d'une propriété d'une autre
base.


En ce qui concerne les options de démarrage, tu peux faire à partir du
formulaire de départ, hors test de présence de la propriété:
CurrentDb.Properties("apptitle").Value = Me.Titre_Application
CurrentDb.Properties("StartUpForm").Value = Me.Form_Demarrage
CurrentDb.Properties("StartUpShowDBWindow").Value = True
CurrentDb.Properties("StartUpShowStatusBar").Value = False
CurrentDb.Properties("AllowShortcutMenus").Value = True
CurrentDb.Properties("AllowFullMenus").Value = True
CurrentDb.Properties("AllowBuiltInToolbars").Value = True
CurrentDb.Properties("AllowToolbarChanges").Value = True
CurrentDb.Properties("AllowSpecialKeys").Value = True
CurrentDb.Properties("AppIcon").Value = Me.Logo

Ces propriétés seront effectives lors du prochain démarrage.

Pour les options générales, tu trouveras la liste des options que tu peux
modifier par setoption au démarrage de ta base et effectives immédiatement,
sur:
http://access.seneque.free.fr/options_generales.htm


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


"codial" news:
Bonsoir,

Je suis en train d'actualiser une appli sous access 97 et "on" me demande
de

neutraliser l'accés à la fenêtre base de donnée une fois l'appli en en MDE
(Ce qui ne pose pas de problème) mais toutefois que l'administrateur, à
partir d'un mot de passe, puisse l'afficher et intervenir éventuellement
dans les tables.

Comment je peux faire car Sendkeys "{F11}" ne fonctionne plus évidemment ?

D'avance merci

Codial






codial
Le #4849261
Merci pour cette réponse rapide mais
CurrentDb.Properties("StartUpShowDBWindow").Value = True

nécessite de relancer l'application
Tu n'aurais pas une idées pour réactiver la touche F11 par code sans
utiliser SenKeys?

D'avance merci

Codial


"Raymond [mvp]" news:%23N%23fN$
Bonjour.

Utiliser la propriété : StartUpShowDBWindow et la mettre à true.
soit tu testes le code utilisateur de la base, soit l'administrateur
possède

une base personnelle capable de changer l'état d'une propriété d'une autre
base.


En ce qui concerne les options de démarrage, tu peux faire à partir du
formulaire de départ, hors test de présence de la propriété:
CurrentDb.Properties("apptitle").Value = Me.Titre_Application
CurrentDb.Properties("StartUpForm").Value = Me.Form_Demarrage
CurrentDb.Properties("StartUpShowDBWindow").Value = True
CurrentDb.Properties("StartUpShowStatusBar").Value = False
CurrentDb.Properties("AllowShortcutMenus").Value = True
CurrentDb.Properties("AllowFullMenus").Value = True
CurrentDb.Properties("AllowBuiltInToolbars").Value = True
CurrentDb.Properties("AllowToolbarChanges").Value = True
CurrentDb.Properties("AllowSpecialKeys").Value = True
CurrentDb.Properties("AppIcon").Value = Me.Logo

Ces propriétés seront effectives lors du prochain démarrage.

Pour les options générales, tu trouveras la liste des options que tu peux
modifier par setoption au démarrage de ta base et effectives
immédiatement,

sur:
http://access.seneque.free.fr/options_generales.htm


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


"codial" news:
Bonsoir,

Je suis en train d'actualiser une appli sous access 97 et "on" me
demande


de
neutraliser l'accés à la fenêtre base de donnée une fois l'appli en en
MDE


(Ce qui ne pose pas de problème) mais toutefois que l'administrateur, à
partir d'un mot de passe, puisse l'afficher et intervenir éventuellement
dans les tables.

Comment je peux faire car Sendkeys "{F11}" ne fonctionne plus évidemment
?



D'avance merci

Codial










Raymond [mvp]
Le #4849241
Comme je l'avais évoqué sur mon post, le plus simple et le plus répandu est
une base réservé à l'administrateur qui permet de débloquer toutes les
options d'une autre base et de les rebloquer après usage. c'est la meilleure
des sécurités que je connaisse.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


"codial" news:
Merci pour cette réponse rapide mais
CurrentDb.Properties("StartUpShowDBWindow").Value = True

nécessite de relancer l'application
Tu n'aurais pas une idées pour réactiver la touche F11 par code sans
utiliser SenKeys?

D'avance merci

Codial



codial
Le #4849231
Excuse moi mais en fait je ne comprends pas bien comment faire!!!!

codial


"Raymond [mvp]" news:
Comme je l'avais évoqué sur mon post, le plus simple et le plus répandu
est

une base réservé à l'administrateur qui permet de débloquer toutes les
options d'une autre base et de les rebloquer après usage. c'est la
meilleure

des sécurités que je connaisse.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


"codial" news:
Merci pour cette réponse rapide mais
CurrentDb.Properties("StartUpShowDBWindow").Value = True

nécessite de relancer l'application
Tu n'aurais pas une idées pour réactiver la touche F11 par code sans
utiliser SenKeys?

D'avance merci

Codial







Raymond [mvp]
Le #4849191
par automation on ouvre une base et on positionne les options, on ferme la
base, on la réouvre et on ferme la base administrateur.
j'ai bien envie de m'en faire une standard pour mon site demain.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


"codial" news:
Excuse moi mais en fait je ne comprends pas bien comment faire!!!!

codial



codial
Le #4849181
J'avoue que ça me dépannerai bien!!!
Suite à tes conseils j'ai donc écrit le code suivant:

MonMotDePasse = DFirst("MotDePasse", "Accueil")
If MonMotDePasse = Me.MotDePasse Then
CurrentDb.Properties("StartUpShowDBWindow").Value = True
MsgBox "Vous devez redémarrer l'application pour prendre en compte
les modifications."
Application.Quit
Else
MsgBox "Mot de passe erroné.", vbInformation, "Information"
Me.MotDePasse.SetFocus
End If


Cependant quand je veux créer un MDE j'ai le message suivant
Les bases de données MDE ne peuvent pas faire référence à des bases de
données MDB
Elles ne peuvent faire référence qu'à d'autres bases de données MDE ou à des
bibliothèques de types.
????????


Amicalement

Codial


"Raymond [mvp]" news:
par automation on ouvre une base et on positionne les options, on ferme la
base, on la réouvre et on ferme la base administrateur.
j'ai bien envie de m'en faire une standard pour mon site demain.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


"codial" news:
Excuse moi mais en fait je ne comprends pas bien comment faire!!!!

codial







Raymond [mvp]
Le #4849161
qu'as-tu rajouté entre deux création de mde , ce n'est pas cette fonction
qui empêche la création d'un mde ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


"codial" news:%
J'avoue que ça me dépannerai bien!!!
Suite à tes conseils j'ai donc écrit le code suivant:

MonMotDePasse = DFirst("MotDePasse", "Accueil")
If MonMotDePasse = Me.MotDePasse Then
CurrentDb.Properties("StartUpShowDBWindow").Value = True
MsgBox "Vous devez redémarrer l'application pour prendre en compte
les modifications."
Application.Quit
Else
MsgBox "Mot de passe erroné.", vbInformation, "Information"
Me.MotDePasse.SetFocus
End If


Cependant quand je veux créer un MDE j'ai le message suivant
Les bases de données MDE ne peuvent pas faire référence à des bases de
données MDB
Elles ne peuvent faire référence qu'à d'autres bases de données MDE ou à
des

bibliothèques de types.
????????


Amicalement

Codial


codial
Le #4849111
Je pense que je n'ai rajouté que cette fonction, il me semble, je vais
regarder ça ce matin!

Codial


"Raymond [mvp]" news:
qu'as-tu rajouté entre deux création de mde , ce n'est pas cette fonction
qui empêche la création d'un mde ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


"codial" news:%
J'avoue que ça me dépannerai bien!!!
Suite à tes conseils j'ai donc écrit le code suivant:

MonMotDePasse = DFirst("MotDePasse", "Accueil")
If MonMotDePasse = Me.MotDePasse Then
CurrentDb.Properties("StartUpShowDBWindow").Value = True
MsgBox "Vous devez redémarrer l'application pour prendre en
compte


les modifications."
Application.Quit
Else
MsgBox "Mot de passe erroné.", vbInformation, "Information"
Me.MotDePasse.SetFocus
End If


Cependant quand je veux créer un MDE j'ai le message suivant
Les bases de données MDE ne peuvent pas faire référence à des bases de
données MDB
Elles ne peuvent faire référence qu'à d'autres bases de données MDE ou à
des

bibliothèques de types.
????????


Amicalement

Codial






Publicité
Poster une réponse
Anonyme