quickstar,
если поле одно и перемещать надо только в одном направлении (например только по высоте), то сделайте переменную, скажем offset
(поскольку изменения не динамические, то можно в событии Load формы сделать)
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
' когда поле0 невидимо
dim ctrl as control
if not Me.Поле0.visible then
offset=Me.Поле1.top-Me.Поле0.top
else
' когда поле0 видимо, сделайте
offset=0
end if
' соответственно все поля имеют (если в области данных)
for each ctrl in me.section(acdetail).controls
with ctrl
if .name<>"Поле0" then.top=.top-offset
end with
next
' высота секции
Me.section(acdetail).height=Me.section(acdetail).height-offset
при этом поля должны находится в форме в положении когда Поле0 - открыто
по этому поводу я даже статью писал (там другое решение - у контролов значения расположения не высчитываются, а являются постоянными, но меняются состояния формы и в этих состояниях у контролов значения расположения разные) на
сайт Митина Андрея ,но он пока недоступен, да и из-за одного поля париться вряд ли стоит, хотя аппетит приходит во время еды.
