У меня есть поле со списком "адрес" (с настройками по умолчанию, т.е. 1 отображаемый столбец), которое увеличивается, если число символов больше 35.
На "текущую запись" поставил:
Me."поле_со_списком_адрес".Width = 3230
А на "после обновления":
Dim i As Integer
i = Len(Me.поле_со_списком_адрес)
If i > 35 Then
Me.поле_со_списком_адрес.Width = i * 100
Else
Me.поле_со_списком_адрес.Width = 3230
End If

И все работало, т.е. размер поля увеличивался, но когда я добавил в список отображаемых столбцов для поля со списком "адрес", еще один столбец, то изменение размера поля не происходит, подскажите, пожалуйста, в чем проблема?

Забыл сказать, использую Ac97.

Неужели никто не знает?

Честно говоря, не совсем понял, что требуется ответить, но все работало так, как есть на данный момент, пока не добавил еще 1 отображаемый столбец.
>Переменную i вычисляет? Чему она равна?
i - количество символов в поле со списком, т.е. в поле со списком записывается значение адреса, и если адрес больше 35 символов, то размер поля увеличивается.
:-)

>Студентов нынче обучают ставить брейкпойнты, запускать программы >построчно и проверять значения переменных?
К сожалению не обучают, приходится заниматься самообучением. :-)

i=2 или i=1
для поля с небольшим количеством символов идет по ветке Else, правда для значений количества символов больше 35, тоже идет по ветке Else.
В общем понял почему не работает, но не понял, как исправить ошибку.

2 Темный:
>Обучают, Саныч. Еще как обучают.
У меня вообще кафедра авиационных приборов, а Access изучался 1 семестр на уровне как пользоваться визардами. :-)
>И хелп не читает совсем.
Неправда, Help я читал.
>Вон нас иногда на листике заставляли прогу отлаживать.
А у нас вообще никакого программирования и в помине нет.

2 ВС:
>Получается, что он студент отдельно, а Аксесс изучает отдельно.
Действительно, так и получается.

2 ALL:
Большое спасибо за ответы!

Не, что-то все равно не работает.
Написал:
Dim i As Integer
i = Len(Me.поле_со_списком_адрес.column(1))
If i > 35 Then
Me.поле_со_списком_адрес.column(1).Width = i * 100
Else
Me.поле_со_списком_адрес.Width = 3230
End If

Т.е. Access все-равно по ветке Else идет :-(

Так в том то и дело, что:
Me.поле_со_списком_адрес = 11
Me.поле_со_списком_адрес.column(1) = 11
Вот я и не пойму, что не так!

Для Me.поле_со_списком_адрес.column(0)
Ошибка выполнения 94, недопустимое использование Null. (Значит не подходит).

Для Me.поле_со_списком_адрес.column(2)
Ошибка выполнения 424, требуется объект (т.е. наверно требуется явный указатель объекта).
причем в отладчике Column(0) = текст адреса
Т.е Column(0) почти работает!
Access заходит в ветку сразу после If и не хочет дальше работать.

Ура ура ура ура!!!!
Все получилось, ОГРОМНЕЙШЕЕ СПАСИБО.