Newsgroup: it.comp.appl.access
Titolo: altezza corpo maschera via codice

ciao a tutti,
sto cercando di ottenere il seguente risultato:
ho:
- una maschera Form1 singola, che contiene un controllo Navi
- il controllo Navi (menu a discesa) consente di scegliere tra 
visualizzazione "Standard" (alcuni controlli  della sottomaschera Form2 sono 
nascosti) ed "Importi" (tutti i controlli della sottomaschera Form2 sono 
visibili);
- una maschera Form2 continua (sottomaschera di Form1), che accoglie i 
controlli di cui sopra.
ora vorrei spingermi oltre, e fare in modo che l'altezza della sottomaschera 
venisse ridotta in funzione della scelta Standard/Importi, poichè quando 
quei controlli vengono nascosti, rimane dello spazio in verticale inutile 
(vorrei comprimerne il corpo in verticale). ho provato cosi, su corrente 
della Form2, ma senza alcun risultato:
Private Sub Form_Current()
    If Forms!Form1.NAVI = "STANDARD" Then
        Me.Section(2).Height = 1000
    ElseIf Forms!Form1.NAVI = "IMPORTI" Then
        Me.Section(2).Height = 5000
    End If
End Sub
mi sapreste aiutare per cortesia?
grazie infinite!
em.an. 

 ha scritto nel messaggio 
news:45156ab7$0$1000$5fc...@news.tiscali.it...

ragazzi,
avreste 1 suggerimento, anche solo per la sintassi o il comando da usare 
(poi me lo guardo nell'help)? non so in che direzione muovermi; ho provato 
con "body", "corpo", "section"...
grazie
em.an. 

em.an ha scritto:

Forse è meglio che prima ti guardi l'Help e poi
chiedi.....!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Da dove salta fuori il numero 2 passato come Index della Section...???
Se poi non allunghi anche la Form ti esce la ScrollBar....!
Hai anche le Sezioni Header e Footer...?
Saluti
@Alex

[CUT]
Forse č meglio che prima ti guardi l'Help e poi
chiedi.....!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Da dove salta fuori il numero 2 passato come Index della Section...???
Se poi non allunghi anche la Form ti esce la ScrollBar....!
Hai anche le Sezioni Header e Footer...?
Saluti
@Alex
Ciao @Alex,
avevo consultato vecchi tread a riguardo, ma trovato soprattutto cose 
relative ai reports, e l'help, ma non capivo cosa facesse al caso mio..
cmq alla fine ho risolto cosi:
Private Sub NAVI_AfterUpdate()
    DoCmd.Echo False
    If Me.NAVI = "STANDARD" Then
        Forms!Listino.LISTINO_cOp.Form!Controllo1.Top = 0
        Forms!Listino.LISTINO_cOp.Form!Controllo1.Visible = False
        Forms!Listino.LISTINO_cOp.Form!Controllo2.Top = 0
        Forms!Listino.LISTINO_cOp.Form!Controllo2.Visible = False
        Forms!Listino.LISTINO_cOp.Form!Controllo3.Top = 0
        Forms!Listino.LISTINO_cOp.Form!Controllo3.Visible = False
        ...(etc.)
        Forms!Listino!LISTINO_cOp.Form.Corpo.Height = 250
    ElseIf Me.NAVI = "ESTESA" Then
        Forms!Listino!LISTINO_cOp.Form.Corpo.Height = 2700
        Forms!Listino.LISTINO_cOp.Form!Controllo1.Top = 400
        Forms!Listino.LISTINO_cOp.Form!Controllo1.Visible = True
        Forms!Listino.LISTINO_cOp.Form!Controllo2.Top = 700
        Forms!Listino.LISTINO_cOp.Form!Controllo2.Visible = True
        Forms!Listino.LISTINO_cOp.Form!Controllo3.Top = 1000
        Forms!Listino.LISTINO_cOp.Form!Controllo3.Visible = True
        ...(etc.)
    End If
    DoCmd.Echo True
End Sub
dove NAVI č il menu a discesa che cambia visualizzazione (STANDARD/ESTESA), 
Listino č la maschera singola principale, Listino_cOp č la sottomaschera 
continua che volevo ridimensionare. Non credo sia il migliore dei modi 
possibili (sfarfalla 1 pň), perň funziona..
em.an