Discussion :

[bartimeus35]

Hello,
J'ai besoin de faire une IHM ultra simplifiée pour certains utilisateurs et cette IHM ira modifier ma BDD Back end, mais je voudrais être certain que l'utilisateur ne pourra pas aller jardiner dans les tables manuellement.
Donc il faudrait cacher les tables et être sur qu'il ne puisse pas les afficher pour aller y faire un tour .
Est ce possible?
Si je cache les tables, il y a toujours moyen de les ré-afficher si la personne sait le faire.
ll faudrait pouvoir au minimum interdire la modif /suppression/Ajout dans les tables sans passer par l'IHM, mais le mieux serait qu'il ne voie pas les tables du tout !

Quelle est la solution ?

Mille mercis,
@+

[gui_li_aume]

Bonjour,

si les autres utilisateurs n'ont pas access mais uniquement le runtime, les tables seront masquées.

Si les autres utilisateurs ont access, il faut masquer les tables à l'ouverture et désactiver les touches spéciales (le shift) pour ne pas que l'utilisateur bloque l'exécution du code à l'ouverture. J'ai fiat le code suivant sur quelques bases:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Sub SecurisationBase()
'il faut appeler cette sub sur l'ouverture du formulaire et sur autres evenement d'identification: par exemple quand l'utilisatuer entre son mot de passe
If SysCmd(acSysCmdRuntime) = True Then 'vérifie si le logiciel est access ou runtime si runtime je sors de la sub car les tables sont dejà masquées
    Exit Sub
    Else
        If UserAppEnCours = "nom de l utilisateur qui peut voir table" Then 'vérifie si l'utilisateur peut voir les tables, UserAppEnCours est une variable public déterminée par mot de passe
        DoCmd.ShowToolbar "Ribbon", acToolbarYes 'affiche le menu
        DoCmd.SelectObject acTable, , True  'affiche les tables
        Else
        DoCmd.ShowToolbar "Ribbon", acToolbarNo 'masque menu
        DoCmd.SelectObject acTable, , True 'masque les tables
        DoCmd.RunCommand acCmdWindowHide 'masque volet navigation
        End If
    End If
End Sub

[bartimeus35]

genial, merci,