ник: boston
2 вопросика по вба и аксесу
1.как сделать что бы высота текстбокса менялась в зависимости от того сколько там текста введено... то есть небыло полосы прокрутки.. и весь текст влазил бы в текст бокс.. и его было видно..
во время предварительного просмотра перед печатью такая функция существует.. но не знаю как в режиме редактирования ее сделать...
была мысль помещать его в метку(label) делать его авторазмер брать оттуда высоту и присваивать высоту текст боксу.
Код:Private Sub label_Click()
Set db = CurrentDb
Dim korr As Recordset
Set korr = db.OpenRecordset("blank")
label.Caption = Recordset.Fields("posled")
End Sub
но если так делать то выдает ошибку " слишком большое значение для данного семейства"
вот конец...
2. есть 1 таблица в ней находятся данные..
на форме есть выподающий список со значения поля "название" выбираем название..
на этой же форме есть кнопка"далее"
при ее нажатии надо сделать следующее.. что бы он брал ID того названия которого мы выбрали а вставлял их в другую форму (которая открывается при нажатии) в этой форме находятся текст боксы соответствующие полям другой таблицы (практически эдентичной этой) вот и вставлял значения в нужные поля..
это сделанно для того что бы не тронуть базовые названия... и вести учет по измененым значениям..
не подскажите как это сделать? (=
спасибо..