autoresize subform height

[diegomarino]

hi, i'm using this function to autoresize a subform that has only detail section

Function ResizeSubForm(SubFrm As SubForm)    
   Dim rs As DAO.Recordset
   Dim RecordCnt As Integer
   Set rs = SubFrm.Form.RecordsetClone
   RecordCnt = rs.RecordCount
   SubFrm.Height = SubFrm.Section(0).Height * (RecordCnt)
End Function

it returns me "wrong number of arguments or property assignation not valid.




i tried too with "subfrm.section(AcDetail)

thoughts?

[Micron]

Height property applies only to form sections, not the form itself. Try applying your height value to the detail section if there is no header or footer.

[diegomarino]

i tried to set from the main form the height of subform and it worked

me.partecipanti.height = 200

then i tried what you said (at least what i get)

 Me.Partecipanti.Height = Me.Partecipanti.Section(0).Height

and got the same error

ps my goal is to resize the height of subform based of number of records

[Micron]

I'm guessing that partecipanti is the name of your subform control, not the name of your subform? These are not the same thing. If that is incorrect then I don't know what you're doing or what you have. If height is not a form property (and M$ says it is not) then you can't refer to a property that doesn't exist no matter how you write it:
Me.Partecipanti.Height

would be invalid if partecipanti is a form. If that is the subform control, you should be able to increase its height, but the subform itself likely won't increase in height to match it.
I think you need to identify the names of your subform control and the subform itself.

[diegomarino]

thanks! that was the point, i'd never understand by myself

just i had to change " SubFrm.Height = SubFrm.Section(0).Height * (RecordCnt)" to SubFrm.Height = SubFrm.Form.Section(0).Height * (RecordCnt)

and everything is fine!!

[Micron]

Still don't know what your objects are named, but it looks like SubFrm is the subform control, which you've declared as a subform rather than a Control, which kind of surprises me that the code works. Anyway, glad to have been able to help in some small way.
Thanks for the rep point.

[diegomarino]

My subform Is named "partecipanti" so in the argument of the function i out "me.partecipanti"

The part "subfrm.height" Is referred to the control, the "subfrm.form.section" Is referred to the form, that's my interpretation.

Actually, subfrm Is a subform and not a control but you know, It Is like love, noone knows how It works but It works

[ssanfu]

Don't know what your code look like now, but you should close and destroy the recordset when done with it:

Function ResizeSubForm(SubFrm As SubForm)    
    Dim rs As DAO.Recordset
    Dim RecordCnt As Integer
   
    Set rs = SubFrm.Form.RecordsetClone
    RecordCnt = rs.RecordCount
    If RecordCnt>0 Then
        SubFrm.Height = SubFrm.Section(0).Height * (RecordCnt)
    End If
    
    rs.Close
    Set rs = Nothing
End Function

[diegomarino]

sure, i always forgot and then in my pc there are 40 recordset buzzing around