Il mio scopo è ridimensionare una sottomaschera - visualizzata come maschera continua - in base al numero dei record contenuti, in modo da evitare la barra di scorrimento e vedere tutto subito.
Il codice che utilizzo è questo:
Dim NumRec As Long
Dim Altezza As Long
Dim Totale As Long
NumRec = Me.sottomaschera.Form.RecordsetClone.RecordCount
Altezza = 2000
Totale = Altezza * NumRec
Me.sottomaschera.Height = Totale
Me.caselladicontrollo.Value = Totale
Così come è adesso con un numero di record bassi non da errore, ma io ho la necessità di portare quel valore di Altezza almeno a 6000 e poi anche i record possono diventare venti o in rari casi anche di più; quindi 6000 * 20 = 120000 e mi arriva l'errore alla riga:
Me.sottomaschera.Height = Totale
quindi ne evinco che Me.sottomaschera.Height non può superare un determinato valore (che sia 32768 come le costanti Integer?)...
Come aggirare questo ostacolo? Inoltre (ma questa è una mia curiosità) quel valore dato alla variabile Altezza in che unità di misura è espresso?
Grazie, spero in un aiuto...