Discussion :

[popofpopof]

bonjour

j'utilise access 2007 et je souhaite masque au démarage le volet de navigation si l'utilisateur utilise une version access complete et si l'utilsiateur est différent de "adm". Je souhaite aussi supprimer dans les même condition le menu par defaut d'access et le remplace par mon menu "ruban"

j'ai commence ce code mais je n'arrive pas a masque ni le ruban par defaut d'access ni le volet de navigation comment faire??

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
If SysCmd(SYSCMD_RUNTIME) = 0 Then
 
Dim strUser As String
strUser = CurrentUser()
 
 
If strUser = "adm" Then
Else
 
DoCmd.RunMacro "ruban"
End If
 
Else
DoCmd.RunMacro "ruban"
End If

[Invité]

Bonjour

En retournant sur ce sujet, tu dois pouvoir trouver des éléments de réponse.

http://www.developpez.net/forums/d49...access-2007-a/

[popofpopof]

je trouve vraiement pas mon bonheur je n'arrive pas a masque le menu de gauche tu peux m'aide stp??

[Invité]

Bonjour
Qu'as tu dans ta macro "ruban"

[popofpopof]

dans mon code vba :

Code :

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

1
2
3
4
5
6
7
If SysCmd(SYSCMD_RUNTIME) = 0 Then
Else
 
DoCmd.RunMacro "ruban"
 
 
End If

donc pas de macro

[Invité]

As tu été voir là

http://access.developpez.com/access2...ce#HideNavPane

Il y a plusieurs sujets abordés

[popofpopof]

j'utilise la gestion des droit (access 2003) et il me dit sur un utilisateur ou je réalise le test "vous n'avez pas l'autorisation requise pour utiliser l'objet "MSYSDB".....

il me souligne cette ligne

Code :

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

        oDb.Properties("StartUpShowDBWindow") = False

je doit faire quoi??