Getting the number of records displayed in a continuous subform.

[seducedbycodes]

hello,
i want to change the height of a continuous subform depending on how many records it contains. To do this i was going to use

NumRecords??
Me.QuoteSubform.Height = NumRecords*RecordHeight

this would be placed in the OnLoad event of the parent form

 

[Remou]

Hi
Here is some code I was playing with. It might help.

Dim NoRecs, RowHeight, SubHeight, ChangeHeight
DoCmd.MoveSize , , , 3000
NoRecs = Me.[table3 subform].Form.RecordsetClone.RecordCount
RowHeight = Me.[table3 subform].Form.RoomNo.Height
SubHeight = Me.[table3 subform].Height
ChangeHeight = NoRecs * RowHeight + (RowHeight * 4)
Me.[table3 subform].Height = ChangeHeight
DoCmd.MoveSize , , , (Me.WindowHeight + ChangeHeight)

 

[seducedbycodes]

Thankyou very much for that help.
Worked Perfectly.
Cheers