"Object doesn't support this property or method" for:
ctl.Form.InsideWidth
Forms!frmmain!frmFormView!(ctl.Name).ScrollBars = 3



Private Sub Form_Resize()

Dim sForm As Access.Form
Set sForm = Forms!frmmain!frmFormView.Form
With sForm
Dim ctl As Control
For Each ctl In .Controls
If (ctl.ControlType = acSubform) Then
If ctl.Form.InsideWidth < .Form.InsideWidth - 80 Then
Forms!frmmain!frmFormView!(ctl.Name).ScrollBars = 3
End If
End If
Next ctl
End With

End Sub



Thanks!

Ok, sorry guys, forget this.

My problem is that my subform vertical bar isn't sizing to fit the
controls in it. In other words, it's not providing enough scroll to
show the child subform and controls. I suspect this has something to
do with the anchoring. Is there a way to fix?

Thanks

christianlott1 (AT) yahoo (DOT) com wrote:


If ctl.Form.InsideWidth < .InsideWidth - 80 Then
ctl.Form.ScrollBars = 3
End If

--
Marsh

christianlott1 (AT) yahoo (DOT) com wrote:

It sounds like you set the scroll bar on the wrong thing.
Try what I suggested in my earlier respnse and see if it
helps.

--
Marsh