formaat subform automatisch aanpassen

[dave34nl]

Hoi,

Ik heb in een from een subform, afhankelijk van de inhoud van het subform wil ik dat het formaat automatisch wordt aangepast aan de inhoud, het subform heb ik opgezet in tabelvorm

Als er bijvoorbeeld maar 3 regels staan moet het formaat daaraan worden aangepast, als er 10 regels staan moet het subform uiteraard weer groter worden, 10 is ongeveer wel het maximum.

Ik wil niet met schuifbalken werken.

De reden is dat ik de voettekst direct onder het laatste record wil zien.

Is dit mogelijk ?

Groetjes,

Dave

 

[OctaFish]

Je kunt het formaat van een subformulier met deze methode aanpassen:

Private Sub Form_Current()
Dim rs As Recordset

Set rs = Me.SubTblRooster.Form.RecordsetClone
If rs.RecordCount <= 3 Then
    Me.SubTblRooster.Height = 1440
Else
    Me.SubTblRooster.Height = 2880
End If
rs.Close

End Sub

Afmetingen worden in Twips opgegeven; 1 inch = 1440 twips.
Of je er veel aan hebt, weet ik niet want volgens mij kun je de detailsectie niet instellen, en de buitenmaten van het formulier wordt ook lastig.

 

[dave34nl]

Hoi Michel,

Bedankt voor je reactie, ga morgen kijken of het gaat werken, heb je dit in een voorbeeld DB staan (en wil je die delen ?).

Groetjes,

Dave.

 

[OctaFish]

In deze db zit een voorbeeldje.