Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: [access]start aplikacji i pasek menu
ceo
ceo




Typ: neutral
Postów: 18
Zarejestrowany: Feb 2005
[access]start aplikacji i pasek menu

nie wiem jak usunac paski menu w aplikacji i zostawic tylko moj

znalazlem na grupie cos takiego :

Application.CommandBars("Menu Bar".Enabled = False
Application.CommandBars("Form View".Enabled = False
Application.CommandBars("Print Preview".Enabled = False


no ale nie wiem gdzie wpisac ten kod , w kodzie jakiegos formularza ? pomozcie

28-04-2005 22:39
Pokaż profil ceo  Wyślij email do ceo   Odwiedź stronę ceo       441633
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003


Dim cb As Commandbar

On error resume next

For Each cb in Application.Commandbars
    If cb.Visible and cb.Name <> "mój pasek" then
        cb.Visible = false
    End if
Next cb
[blue]


_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

29-04-2005 21:15
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
ceo
ceo




Typ: neutral
Postów: 18
Zarejestrowany: Feb 2005

no tak ale w kodzie czego to wpisac ?

30-04-2005 00:18
Pokaż profil ceo  Wyślij email do ceo   Odwiedź stronę ceo       441633
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003

Chodzi Ci o to gdzie to wpisać?

Utwórz nową procedurę w nowym module.
Utwórz formularz startowy i w kodzie uruchomieniowym tego formularza umieść odwołanie do tej procedury.
W menu Narzędzia->Autostart wskaż nazwę formularza startowego.


_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

30-04-2005 08:28
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
ceo
ceo




Typ: neutral
Postów: 18
Zarejestrowany: Feb 2005

dzieki dziala

30-04-2005 23:46
Pokaż profil ceo  Wyślij email do ceo   Odwiedź stronę ceo       441633
Wszystkich odpowiedzi: 4 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1