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
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
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
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" a écrit dans le message de
news:Bonsoir,
Je suis en train d'actualiser une appli sous access 97 et "on" me
demande
deneutraliser 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
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" <DEVcodial@DEVfree.fr> a écrit dans le message de
news:uqrLNYovDHA.2712@TK2MSFTNGP11.phx.gbl...
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
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" a écrit dans le message de
news:Bonsoir,
Je suis en train d'actualiser une appli sous access 97 et "on" me
demande
deneutraliser 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
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
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
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
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" a écrit dans le message de
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
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" <DEVcodial@DEVfree.fr> a écrit dans le message de
news:eVKdnPpvDHA.2080@TK2MSFTNGP10.phx.gbl...
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
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" a écrit dans le message de
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
Excuse moi mais en fait je ne comprends pas bien comment faire!!!!
codial
Excuse moi mais en fait je ne comprends pas bien comment faire!!!!
codial
Excuse moi mais en fait je ne comprends pas bien comment faire!!!!
codial
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" a écrit dans le message de
news:Excuse moi mais en fait je ne comprends pas bien comment faire!!!!
codial
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" <DEVcodial@DEVfree.fr> a écrit dans le message de
news:ebmnLdpvDHA.2352@TK2MSFTNGP09.phx.gbl...
Excuse moi mais en fait je ne comprends pas bien comment faire!!!!
codial
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" a écrit dans le message de
news:Excuse moi mais en fait je ne comprends pas bien comment faire!!!!
codial
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
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
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
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" a écrit dans le message de
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 à
desbibliothèques de types.
????????
Amicalement
Codial
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" <DEVcodial@DEVfree.fr> a écrit dans le message de
news:%23liCl3pvDHA.2148@TK2MSFTNGP12.phx.gbl...
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
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" a écrit dans le message de
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 à
desbibliothèques de types.
????????
Amicalement
Codial