Newsgroup: it.comp.appl.access
Titolo: assegnare a tutte le maschere una barra menu predefinita

Ho ultimato la mia barra di menu personalizzata e vorrei assegnarla a tutte 
le form in sostituzione di quella di defauld di access.
E' possibile ciclare tra tutte le forms finora create ed assegnar loro la 
proprietà, ovvero la barra menu da me realizzata?
-- 
ciroteo
MC

 tutte le form in sostituzione di quella di defauld di access.
ops ... default


 ha scritto nel messaggio
news:dda4rf$mfp$1...@hulme.interac.it...

Ciao Ciroteo,
incolla questa funzione in un modulo
Public Function AssegnaToolbar(nometoolbar As String) As Boolean
   Dim frm As Form
On Error GoTo AssegnaToolBar_Error
    For Each frm In Application.Forms
        frm.Toolbar = nometoolbar
    Next
    AssegnaToolbar = True
AssegnaToolBar_Exit:
    Exit Function
AssegnaToolBar_Error:
    MsgBox Err.Description
    AssegnaToolbar = False
    Resume AssegnaToolBar_Exit
End Function
Da Finestra Immediata
?AssegnaToolBar("NomeTuaToolBar")
Saluti
Cinzia
PS.
Per appofondire le differenze tra l'sql di Jet e il T-sql....puoi sempre
riguardarti la documentazione della CISA (ti abbiamo beccato... eri
distratto....!! :-)

     Next
Ciao Cinzia.
Vorrei, se possibile, una chiarificazione.
Premessa, non uso molto le toolbars (direi per nulla) ma
questo e' un inciso e non c'entra nulla con la delucidazione.
La collezione Forms, che io sappia, riporta le forms aperte.
La funzione che hai postato non diventerebbe un po' ridondante?
Mi spiego:
La funzione cicla sulla collezione, se e' vero che questa viene
modificata in fase di apertura e/o chiusura dovrebbe essere lanciata
ad ogni apertura di form.
Non sarebbe sufficiente lanciare la assegnazione della toolbar solo
sulla form in apertura?
--
a.cara

 ha scritto nel messaggio
news:6w1Ke.2939$zs....@tornado.fastwebnet.it...

Ciao Alessandro,
giusta osservazione, l'avevo pensata così in modo da assegnare una volta per
tutte la toolbar invece di farlo ogni volta in apertura e per evitare di
inserire il codice in N machere....
Però mi ero scordata il fatto che giustamente l0oggetto Forms restituisce
solo le maschere aperte per cui il mio codice di prima andrebbe cambiato
più o meno così:
Public Function AssegnaToolbar(nometoolbar As String) As Boolean
   Dim frm As Object
On Error GoTo AssegnaToolBar_Error
    For Each frm In CurrentProject.AllForms
        DoCmd.OpenForm frm.Name, acDesign
        Forms(frm.Name).Toolbar = nometoolbar
        DoCmd.Close
    Next
    AssegnaToolbar = True
AssegnaToolBar_Exit:
    Exit Function
AssegnaToolBar_Error:
    MsgBox Err.Description
    AssegnaToolbar = False
    Resume AssegnaToolBar_Exit
End Function
e a parte il fatto che ti chiede per ogni maschera  se vuoi salvare....
fatta girare una volta è fatta per sempre...
Saluti
Cinzia

 ha scritto nel messaggio
news:42f89dd7$0$8487$5fc...@news.tiscali.it...

beccato! ma ora che ho il vero sql server sotto mano vedrai che tempesta!!!
;-) A presto.

 Cinzia
Personalmente, proprio per evitare i salvataggi che poi
distribuendo un MDE non sono gestibili, preferisco 
realizzarmi una Funzione di tipo Public da richiamare
su evento Load di Form(questo in sintonia con eventuali
ToolBar differenziate per Utenti o per Livelli):
Public Function SetToolBar(frm as Access.Form, strTool as string)
    frm.Toolbar = strTool
End Function
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Ciao Alex,
forse non ho chiarito bene il mio pensiero,
lo scopo di  quella funzione era quello di farla girare "una tantum" per
sistemare  tutte le maschere con la toolbar corretta  una volta per tutte
poi puoi pure toglierla dal database che non  serve piů...
Ovviamente non pensavo di renderla richiamabile nel db da distribuire, ma in
fase di sviluppo,  un po' di click su Salva non sono  cosě deleteri e
risparmiano altro lavoro...
Saluti
Cinzia
PS.
A che punto sei con l'esempio che dovevi inviarmi da provare?

 A che punto sei con l'esempio che dovevi inviarmi da provare?
E' pronto da qualche settimana, ma in questo mese ho avuto 
un pň di impegni, spero di trovare domani o nei prossimi
giorni un momento per impacchettarlo con un numero di Demo
adeguato per il test.
Ciao.
@ALex
