ridimensionare altezza sottomaschera automaticamente

Question

Salve come da oggetto vorrei dimensionare automaticamente l'altezza di una sottomaschera in base al numero di record che ha. Ho spulciato un pò googlando ed ho visto che per farlo si utilizza il metodo movesize calcolando in numero di record e moltiplicandolo per l'altezza di un record.. il problema è che non riesco a farlo andare

questo è il codice:

Private Sub Form_Open(Cancel As Integer)
Dim intNumRec as integer
Dim intAltezza as integer

   'Assegna alla caption della maschera il nome della ditta.

   Me.Caption = "Prodotti associati alla ditta: " & Me.OpenArgs

   'Con il metodo MoveSize regoliamo l'altezza della maschera.
   'Per fare ciò impostiamo il quarto argomento del metodo MoveSize
   'con il calcolo (intAltezza * intNumRec) + 800.
   'intAltezza è l'altezza di un singolo record
   '800 è l'altezza dell'intestazione della maschera e della barra del
titolo.

'Calcoliamo il numero di record
   intNumRec= Me.RecordsetClone.RecordCount

   intaltezza = 400     '  mettere qui l'altezza del corpo quando visualizza
un solo record

   DoCmd.MoveSize 1440, 2400, , (intAltezza * intNumRec) + 800

End Subpreso da: http://www.archivum.info/microsoft.public.it.office.access/2006-08/00118/Re-dimensionare-una-maschera.htmlPuò essere che su access 2007 MoveSize non vada? la sparo li :)Grazie a tutti per eventuali risposte

Answer 1

Ciao GoG_,

la sottomaschera non aumenta in altezza perché all'apertura della maschera principale il numero di record della sottomaschera è sempre 0 in quanto trattasi di sottomaschera relazionata con campi master e campi secondari.

Se vuoi vedere gli effetti quando ti sposti tra i records, sposta il codice dall'evento "Su apertura" nell'evento "Su Corrente" sempre della maschera principale, aumenta anche la variabile intAltezza a 1320 perché è l'altezza della sezione corpo della sottomaschera.

Ciao

Giorgio Rancati

Answer 2

Ciao,

il tuo codice legge il numero record della maschera principale, dovresti invece leggere il numero di record della sottomaschera.

prova a valorizzare intNumRec in questo modo:

intNumRec = Me.frm_lavoro_fatto.Form.RecordsetClone.RecordCount

Ciao

Giorgio Rancati

Answer 3

Salve come da oggetto vorrei dimensionare automaticamente l'altezza di una sottomaschera in base al numero di record che ha. Ho spulciato un pò googlando ed ho visto che per farlo si utilizza il metodo movesize calcolando in numero di record e moltiplicandolo per l'altezza di un record.. il problema è che non riesco a farlo andare

questo è il codice:

[CUT]Può essere che su access 2007 MoveSize non vada? la sparo li :)Grazie a tutti per eventuali risposte

il codice che hai preso si applica ad una maschera non a una sottomaschera.

per la sottomaschera devi aumentare o diminuire il valore della proprietà Height dell'oggetto Sottomaschera/Sottoreport.

Ciao

Giorgio Rancati

Answer 4

Ciao GoG_,

se hai provato il mio esempio avrai constatato che l'altezza varia in funzione del numero di records.

Per poterti aiutare dovrei vedere come hai impostato il tutto, se puoi mettere il db su skydrive posso dargli un'occhiata.

Ciao

Giorgio Rancati

Answer 5

Non andava perchè mettevo il codice su onload della sub e non sulla form principale. Anche sistemando però non ricevo più l'errore ma ottengo altezza della sub fissa ed assume il valore che metto su:

Me.frm_lavoro_fatto.Height = ((intAltezza * intNumRec) + 800)

e non varia ne se ho 0 record ne se ne ho 10