[Résolu] Verrouiller l'accès aux tables, formulaires ...

[nc1862]

Bonjour,
Je travaille sur une application réalisée avec Base qui attaque une base PostGreSQL.
Je voudrais verrouiller le menu de l'application en empêchant de sortir du plein écran avec la touche ESC, et ainsi empêcher les utilisateurs d'accéder aux dessous de la base (tables, formulaires ...).
Existe-t-il un moyen pour arriver à ce résultat ?
Merci par avance.

[Dude]

Salut,

A lire : https://forum.openoffice.org/fr/forum/v ... 37&t=45997

[nc1862]

Bonjour,

Merci pour ta réponse Dude, ce lien m'a permis de régler mon problème en partie.

J'ai pu masquer l'interface de Base, mais un problème persiste après la fermeture de l'application. En effet, LibO se ferme correctement, mais à la ré-ouverture de la base de données, l'authentification à la base PostGreSQL hébergée sur un serveur distant n'est plus demandée.

Donc la connexion à la base reste active malgré la fermeture de LibO et à l'ouverture suivante, si l'utilisateur n'active pas les macros, il a à nouveau accès aux dessous de la base, et je reviens à mon problème de départ.

Je joins le code permettant la fermeture lorsque l'on sort du menu à l'aide de la croix.

Code : Tout sélectionner

Sub RA_Fermer_Base

dim oDatabase as object
dim oMenu as object
dim oFrame as object
dim oDispatch as object

	oDatabase = thisDatabaseDocument
	oMenu = oDatabase.getFormDocuments.getByName("accueil")
	if isNull( oMenu.getComponent() ) then
		oFrame = oDatabase.CurrentController.getFrame()
		oDispatch = createUnoService("com.sun.star.frame.DispatchHelper")
		oDispatch.executeDispatch(oFrame, ".uno:CloseDoc", "", 0, array())
	end if
	
End Sub

Existe-t-il une commande à insérer dans la macro qui désactiverait cette connexion au serveur avant de fermer la base ?

[Piaf]

Bonjour
Je pense que tu devrais poster en section Macros et API en faisant le lien entre ce fil et le nouveau
A+

[nc1862]

Bonjour Piaf,

Je vais le faire de ce pas.

Merci.

[Bidouille]

Je vais le faire de ce pas.

Et où se trouve le lien vers ce nouveau fil ?
Vous devez penser aux autres qui seront confrontés au même problème et qui ne pourront avoir la solution.

Suite en section Macros : https://forum.openoffice.org/fr/forum/v ... =8&t=46012