Newsgroup: it.comp.appl.access
Titolo: Routine per più Form

Ciao ragazzi,
avrei bisogno di una delucidazione.
Sto cercando di fare una routine che dovrebbe mostrare e nascondere dei
comandi su più form ma non so come gestire il passaggio del nome della
Form.
Provo a spiegarmi meglio.
Ho due maschere in cui ho creato gli stessi controlli, che in base al
ciò che l'utente sceglie devo essere visibili o meno.
Private Sub Articoli_modelli(sino As Boolean)
    Form_MODELLI!Et_Det_Articoli.Visible = sino
    Form_MODELLI!Des_Det_Articoli.Visible = sino
    Form_MODELLI!Aggiungi_Articolo.Visible = sino
    Form_MODELLI!Modifica_Articolo.Visible = sino
    Form_MODELLI!Elimina_Articolo.Visible = sino
End Sub
Private Sub articoli_Anagrafica(sino As Boolean)
    Form_ANAGRAFICA!Et_Det_Articoli.Visible = sino
    Form_ANAGRAFICA!Des_Det_Articoli.Visible = sino
    Form_ANAGRAFICA!Aggiungi_Articolo.Visible = sino
    Form_ANAGRAFICA!Modifica_Articolo.Visible = sino
    Form_ANAGRAFICA!Elimina_Articolo.Visible = sino
End Sub
la variabile "sino" serve a dire se mostrare i controlli o meno.
Come potete vedere sono identiche cambia solo il nome della maschera.
Come faccio a parametrizzarlo?
Avevo pensato di usare il Me!Elimina_Articolo.Visible = sino, ma le in
realtà sono due sottomaschere per cui se utilizzo il "Me" mi richiama
la maschera principale per cui non trova i controlli.
Pensavo di creare un oggetto di tipo Form, ma non so come gestirlo.
Potete aiutarmi?
Grazie anticipatamente
Marco


.....
mostranascondi(me)
......
function mostaranascondi(pFrm as variant)
'invece di variant puo' essere "Form"
     pFrm!Et_Det_Articoli.Visible = sino
      pFrm!Des_Det_Articoli.Visible = sino
      pFrm!Aggiungi_Articolo.Visible = sino
      pFrm!Modifica_Articolo.Visible = sino
      pFrm!Elimina_Articolo.Visible = sino
end function
da mettere in un modulo e "non" dichiarata "private"
-- 
ac
email: w+1=x


Ciao,
la function da te suggerita funziona alla grande... solo che ora ho un
altro problemino...
Come dicevo prima le maschere su cui sto lavorando, in realtà sono
delle sotto maschere e, visto che la funzione viene lanciata dalla
maschera principale, se uso gli passo come parametro "Me", gli passo la
maschera "Main" che è quella principale, appunto.
Per provarla infatti ho dovuto passargli i nomi Form_ANAGRAFICA e
Form_Modelli.
C'è un soluzione a questo inghippo?
Grazie per l'aiuto,
Marco

 ha scritto nel messaggio 
news:1162571647.2...@m73g2000cwd.googlegroups.com...


Grazie per l'aiuto,
Marco
Me.NomeControlloSottomaschera.Form
Michele 


e per andare dal basso verso l'alto ?
Se non completi il lavoro non si "fattura"
i clienti "so difficili"!
  ;<)
-- 
ac
email: w+1=x


perdonatemi ma non vi seguo...
Allora la mia form si chiama "Main", il NomeControlloSottomaschera
SubMask_Main e la sottomaschera Modelli... 
come faccio?

 i clienti "so difficili"!
Me.Parent.Form
perdonatemi ma non vi seguo...
Allora la mia form si chiama "Main", il NomeControlloSottomaschera
SubMask_Main e la sottomaschera Modelli...
come faccio?
Me.SubMask_Main.Form
che rappresenta la Form rappresentata controllo Sottomaschera ( di nome SubMask_Main)di Me (cioè 
della maschera principale).
Almeno..... Alessandro mi fa dubitare delle mie nozioni......
Alessandro, sono promosso?
Michele 

 SubMask_Main e la sottomaschera Modelli... 
nomefunzione(SubMask_main.form)
se invece vuoi andare dalla sottomaschera al main
nomefunzione(Parent)
-- 
ac
email: w+1=x

 Alessandro, sono promosso?
Lo eri gia' prima e poi non sono certo io che posso permettermi di 
deciderlo.
Stavo celiando.
-- 
ac
email: w+1=x


Ehm ehm... scusate... ho capito... il momento del cojone...
Ciao ciao!
E grazie ancora!!

 Stavo celiando.
Come non puoi permetterti di deciderlo. Salvo rare eccezioni, ho visto da quando sono qui che chi si 
firma con nome e cognome ha due Co....ni grandi come una casa, chi si firma con il nome è in via di 
evoluzione, e per i Nickname non saprei.....metà e metà.
Per cui se non sei un Guru, dovresti essere in attesa della cerimonia di investitura!
Michele 

 Per cui se non sei un Guru, dovresti essere in attesa della cerimonia di investitura!
arrossisco di vergogna ;<). Comunque non posso dire di essere 
assolutamente "scarso". Citando un libro divertente:
"Io speriamo che me la cavo"
-- 
ac
email: w+1=x