Actualisation des menus

Le
zoom61
Salut à tous,

Voilà, mon problème est le suivant existe t-il une commande qui permet
d'actualiser la barre de menu (barre que j'ai modifié pour ne faire
apparaître que les commandes utiles) ?
Car, ma barre de menu est différente suivant la personne qui se signe

D'avance merci.
Vos réponses
Trier par : date / pertinence
3stone
Le #5557051
Salut,

"zoom61"
| Voilà, mon problème est le suivant existe t-il une commande qui permet
| d'actualiser la barre de menu (barre que j'ai modifié pour ne faire
| apparaître que les commandes utiles) ?
| Car, ma barre de menu est différente suivant la personne qui se signe...


Regarde ceci :
http://mypage.bluewin.ch/w.stucki/Formulaires.htm#ModifierBarresMenus


--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw
zoom61
Le #5657341
Salut,

Je suis allé sur la page que tu m'as indiqué, mais cela ne fonctionne pas.
Mais peut-être peux-tu m'aider, les commandes suivantes ne sont pas connues :
CommandBarControl et Delete ???
Le code est le suivant :
Sub Del (strNomCommande As String)
Dim ctl As CommandBarControl
On Error Resume Next
Set ctl = Application.CommandBars.FindControl(,,Tag:=strNomCommande)
ctl.Delete
End Sub

Merci.
3stone
Le #5657001
Salut,

"zoom61"
| Je suis allé sur la page que tu m'as indiqué, mais cela ne fonctionne pas.
| Mais peut-être peux-tu m'aider, les commandes suivantes ne sont pas connues :
| CommandBarControl et Delete ???
| Le code est le suivant :
| Sub Del (strNomCommande As String)
| Dim ctl As CommandBarControl
| On Error Resume Next
| Set ctl = Application.CommandBars.FindControl(,,Tag:=strNomCommande)
| ctl.Delete
| End Sub


Commence par commenter le "On error..."
cela te permettra de voir le message d'erreur éventuel !


--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw
Publicité
Poster une réponse
Anonyme