

Me.Section(acDetail).Height = newValue
Me.InsideHeight = Me.Section(acDetail).Height + Me.Section(acFooter).Height

70 полей со списком

Private Sub FieldChange(Field As Object)
...
End SubPrivate Sub Text1_Change()
FieldChange Text1
End SubСейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 8