Newsgroup: it.comp.appl.access
Titolo: eliminare pulsanti chiusura/riduzione/ingrandimento su report

Ho un grosso (a questo punto) problema. Riprovo a formulare la domanda:
Vorrei eliminare i pulsanti  di chiusura/riduzione/ingrandimento sui report
perchè se il report è zoommato e lo chiudo dal pulsante "chiudi"
(normalissimo) della barra menù personalizzata
da me non succede niente, se clicco sulla x che hanno i report in alto a
destra (e non sono capace di togliere)  TUTTE le finestre sotto (anche
quella iniziale utilizzata come sfondo) si abbassano di un po' (molto! lo
spazio di una barra menù) e si attivano le barre di scorrimento orizzontale
e verticale della finestra principale. Se il report non è zoommato non lo fa
ma devo trovare il modo per far sì che non succeda se l'utente (vedendo dei
bottoncini tanto divertenti sulla barra menu - o x ) si senta
irresistibilmente attratto da loro e ....  zoomma e chiude!
Su chiusura lo aprirò in visualizz struttura modalità nascosta e lo chiuderò
così ... brutto e non so ancora se funziona ma ... se non trovo di meglio
aaaaaaaaghhhhhhhhhh
NESSUNO SA COME TOGLIERE i pulsanti riduz/ingr/chius DALLA BARRA MENU DEI
REPORT?
(Non serve usare Docmd.restore, ho già provato)
Le finestre sotto sono zoommate con questa procedura
Private Sub Form_Open(Cancel As Integer)
   Dim Larghezza, Altezza
   Application.Echo False 'disabilita l'aggiornamento dello schermo per
evitare lo sfarfallio
   DoCmd.Maximize 'ingrandisce alle massime dimensioni
   Larghezza = Me.WindowWidth
   Altezza = Me.WindowHeight
   DoCmd.Restore 'ripristina dimensioni normali
   DoCmd.MoveSize 0, 0, Larghezza, Altezza
   Application.Echo True 'riabilita aggiornamento
End Sub
grazie
smak
Mia

 perchè ....
EUREKA ho trovato la soluzione!!!!!!!! Si usano le API (prima volta in vita
mia)
See also : 
http://www.mvps.org/access/api/api0057.htm
Bè ... considerando che faccio tutto da sola ... sono bravina!!!!!!!!!!111
Smak
Mia

 wrote in message 9lv13q$d8q$2...@nreadA.inwind.it...

Anch'io faccio tutto da solo ed ho lo stesso problema, ma non ho trovato la
soluzione. Se me la spieghi sei proprio gentile... tra colleghi...
Scusa la curiosità, ma fino a che ora stai al computer? O il tuo problema
non ti faceva dormire.
ciao.
Maurizio

--------------------------------------------------------------------------<
-- 
Posted from 
mailrelay3.inwind.it
 [212.141.54.103] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG


Ma certo che te la spiego! con grande piacere!!!
allora ... partendo dal principio sappi che uso barre menù personalizzate e
che con la procedura:
-----------
Private Sub Form_Open(Cancel As Integer)
   Dim Larghezza, Altezza
   Application.Echo False 'disabilita l'aggiornamento dello schermo per
evitare lo sfarfallio
   DoCmd.Maximize 'ingrandisce alle massime dimensioni
   Larghezza = Me.WindowWidth
   Altezza = Me.WindowHeight
   DoCmd.Restore 'ripristina dimensioni normali
   DoCmd.MoveSize 0, 0, Larghezza, Altezza
   Application.Echo True 'riabilita aggiornamento
End Sub
----------- presa dal sito comune,
messa sulle maschere all'apertura, apro tutte le mie maschere zummate e
senza far vedere i bottoni riduci/ingr.
fin qui tutto bene ma la stessa cosa non si poteva fare con i report che
apro zummati e hanno un'altra barra menù personalizzata tutta per loro. Ora,
usando l'API che trovi al link sopra, scompaiono i bottoni anche sui report.
la devi usare in questo modo:
copiati tutta la procedura a partire da ******** Code Start **************
fino a ********* Code End ********** e incollala pari pari in un nuovo
modulo;
poi sul CLICK dei bottoni che chiamano i tuoi report richiami la funzione
così:
-----------------
Private Sub Comando1_Click()
    DoCmd.OpenReport "TUOREPORT", acPreview, "", "[IDCliente]= ecc..
    RunCommand acCmdZoom75                      'se vuoi il report al 75%
altrimenti non metterlo
    Call sRemoveCaption(Reports!TUOREPORT)     ' o (Reports(TUO REPORT)) e
serve a richiamare la funzione
EndSub
-----------------
vedrai che funziona.
Lui ha usato una parte della funzione per impedire la chiusura delle
maschere del dbase da qualsiasi pulsante che non fosse nella sua barra degli
strumenti e per questo all'inizio dice di mettere
1.In every report, in the Deactivate event:
                          DoCmd.Close acReport, Me.Name
oppure
                          Dim CanClose as Integer
                          In Open:
                          CanClose = 0
                          In Unload:
                          If Not CanClose The ............. ecc ...
ma io non l'ho usata, non mi interessava e anzi, quando volevo chiudere una
maschera da codice non me lo permetteva.
Spero ti funzioni ... se hai bisogno scrivi.
P.S.
Di notte c'è più fresco, si lavora decisamente meglio!
ciao
smak
Mia

 Mia
Ti ringrazio molto. Proverò.
ciao