ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Автоподбор ширины столбцов таблицы Access на VBA?
8 сообщений из 8, страница 1 из 1
Автоподбор ширины столбцов таблицы Access на VBA?
    #38633592
Дима Г
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дима Г
Участник
Здравствуйте!

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

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

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

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

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

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


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