Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Автоподбор ширины столбцов таблицы Access на VBA? / 8 сообщений из 8, страница 1 из 1
05.05.2014, 17:32
    #38633592
Дима Г
Дима Г
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автоподбор ширины столбцов таблицы Access на VBA?
Здравствуйте!

Уважаемые эксперты,
подскажите, пожалуйста, можно ли с помощью команд макроса или программы на VBA сделать автоподбор ширины по содержимому всех столбоцов таблицы Access.
Сейчас я это делаю двойным кликом на границе, причем те столбцы которые не видны в окне, но выделены, свою ширину не изменяют в Access 2010.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.05.2014, 17:58
    #38633628
Панург
Панург
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автоподбор ширины столбцов таблицы Access на VBA?
Дима Гподскажите, пожалуйста, можно ли с помощью команд макроса или программы на VBA сделать автоподбор ширины по содержимому всех столбоцов таблицы Access.Можно. Перебираешь, например при загрузке формы, текстбоксы и присваиваешь им
Код: vbnet
1.
.ColumnWidth = -2 ' - ширина по значению
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.05.2014, 19:31
    #38633717
Дима Г
Дима Г
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автоподбор ширины столбцов таблицы Access на VBA?
Панург,

Спасибо. Это то, что нужно.

В справке "ColumnWidth" есть пример с "-2", но не говорится для чего это.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.05.2014, 19:55
    #38633737
Дима Г
Дима Г
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автоподбор ширины столбцов таблицы Access на VBA?
Панург,

Решение задачи получилось такое:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
Function ПодобратьШиринуСтолбца()
  Dim c As Access.Control
  
  On Error Resume Next
  For Each c In Screen.ActiveDatasheet.Controls
    c.ColumnWidth = -2
  Next
End Function



Вызываю функцию из AutoExec.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.05.2014, 19:57
    #38633741
Дима Г
Дима Г
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автоподбор ширины столбцов таблицы Access на VBA?
Ошибся, не из AutoExec, а из AutoKeys.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
07.05.2017, 11:57
    #39449868
Настаев
Настаев
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автоподбор ширины столбцов таблицы Access на VBA?
Дима Г,
и тебе спасибо за готовое решение. Мне это тоже понадобилось, и не пришлось писать код самому )))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.05.2017, 11:56
    #39450675
AndrF
AndrF
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автоподбор ширины столбцов таблицы Access на VBA?
Дима ГПанург,

Решение задачи получилось такое...

Чисто из интереса - а "On Error Resume Next" к чему? Бывают ошибки? Если да, то в каких случаях?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.05.2017, 11:58
    #39450679
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автоподбор ширины столбцов таблицы Access на VBA?
AndrFа "On Error Resume Next" к чему? Бывают ошибки? Если да, то в каких случаях?Не у каждого Screen.ActiveDatasheet.Controls имеется свойство ColumnWidth...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Автоподбор ширины столбцов таблицы Access на VBA? / 8 сообщений из 8, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 556ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1612458]:
 0ms
get settings:
 8ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 139ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 47ms
get tp. blocked users:
 2ms
others: 321ms
total:  556ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]