vba textbox аксес -> формы

[bosti]

вопрос по аксесу...
есть форма. в ней есть текст бокс заданных размеров
в нее помещается текст из базы данных.

и текст намного больше формы
как зделать чтобы текст бокс принимал нужные размеры.. то есть автоматически устанавливалась высота...

подскажите пожалуйста (=

[HandKot]

может просто включить у него полосы проктуртки?
св-во - "полосы прокрутки"

[bosti]

да не надо полосу прокрутки надо что бы размер менялся... с полосой прокрутки то понятно включил и мотаешь..
нада размер менять

[SLIM]

Тут начерное проще алгоритм применить. Посмотреть размер одного символа (Примерно). Вычислить его ширину. После помещения текста в текстбокс узнать сколько символов, и соответственно расширять координаты текстбокса

[AndreyG_80]

можно сделать по корявому. сначала помещать текст в метку, у нее есть свойство изменять размер под текст, потом просто у текстбох делать такой же размер как и у метки...

[bosti]

хм.. просто в режиме вывода на печать текст полностью появляется.. ни чего не надо расширять..
а в режиме редактирования с полосой прокрутки.. можно ли как то вычислить размеры до вывода на печать и поставить их в режим редактирования?

[bosti]

ни кто не знает чтоль?
возможно ли такое вообще реализовать?
автосайз не пашет на текст бокс?

[Денис]

bosti
Поскольку других вариантов не появилось, юзай вариант AndreyG_80

[bosti]

как в метку добавлять текст из бд?

добовлять ее сначала в текстбокс оттуда копировать и заносить в метку через вба? или не правильный ход мыслей

[bosti]

Код: Выделить всё

Private Sub label_Click()
Set db = CurrentDb
Dim korr As Recordset
Set korr = db.OpenRecordset("blank")
label.Caption = Recordset.Fields("posled")
End Sub

ошибку выдает слишком большое значение для данного семейства?
символов там слишком много видимо..
другие поля нормально выводит.
а то которое надо выводить не хочет

[AndreyG_80]

как в метку добавлять текст из бд?

добовлять ее сначала в текстбокс оттуда копировать и заносить в метку через вба? или не правильный ход мыслей

не помню, давно вба не пользовал, но почти так-же как и в текст-бох.

[AndreyG_80]

Код: Выделить всё

Private Sub label_Click()
Set db = CurrentDb
Dim korr As Recordset
Set korr = db.OpenRecordset("blank")
label.Caption = Recordset.Fields("posled")
End Sub

ошибку выдает слишком большое значение для данного семейства?
символов там слишком много видимо..
другие поля нормально выводит.
а то которое надо выводить не хочет

если там слишком много символов, как же ты техт-бох так растянеш???
тогда прийдетса и форму растягивать, а потом если на екран не влезет - монитор прийдетса растягивать

а вобще какая максимальная длина этого поля в таблицэ?
может лучше текст-бох сразу сделать больших размеров, чтоб туда все влазило.....

[Денис]

bosti
Я бы на вашем месте сделал поле с вручную меняющимся размером, типа сплиттера. Снизу, справа и правый нижний угол. Как реализовать - ищите по форуму - вариантов - куча.

[bosti]

а вобще какая максимальная длина этого поля в таблицэ?
может лучше текст-бох сразу сделать больших размеров, чтоб туда все влазило.....

ну в аксесе стоит тип "поле мемо" то есть там до 65к сиволов... но их там столько не будет..
просто в странице с боку будет появляться полоса прокрутки что впринципе допустимо...