Me.Section(acDetail).Height = newValue
Me.InsideHeight = Me.Section(acDetail).Height + Me.Section(acFooter).Height
70 полей со списком
Private Sub FieldChange(Field As Object)
...
End Sub
Private Sub Text1_Change()
FieldChange Text1
End Sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 74