| |
|
|
| | 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 того названия которого мы выбрали а вставлял их в другую форму (которая открывается при нажатии) в этой форме находятся текст боксы соответствующие полям другой таблицы (практически эдентичной этой) вот и вставлял значения в нужные поля..
это сделанно для того что бы не тронуть базовые названия... и вести учет по измененым значениям..
не подскажите как это сделать? (=
спасибо.. | |
| |
| |
| |
|
|
| | 1. Задайте в свойствах текстбокса количество выводимых срок штук 40-50, но если их больше, чем может вместить экран - то тода фигня получиться.......... | |
| |
| |
| |
|
|
| | >1. Задайте в свойствах текстбокса количество выводимых срок
>штук 40-50, но если их больше, чем может вместить экран - то
>тода фигня получиться..........
да у самой формы то пусть будет полоса прокрутки..
а вот у текст бокса не желательно вот. как но сейчас актуальнее из таблицы в таблицу.... (= | |
| |
| |
| |
|
|
| | 2. Почему во второй форме используются текстбоксы а не просто поля? | |
| |
| |
| |
|
|
| | >2. Почему во второй форме используются текстбоксы а не
>просто поля?
для редактирования данных полученных из первой таблицы | |
| |
| |
| |
|
|
| | Что вы понимаете под "просто полем"? Что это за контрол такой? | |
| |
| |
| |
 14 Кб. |
|
| | Пардон..... перепутал с комбобоксом.
т.е будет две одинаковые таблицы и две одинаковые формы - так?
Вот справа файлик приклеен посмотри..... | |
| |
| |
| |
|
|
| | да примерно так тока на первой форме выбор производится средством "поле со списком" (выпадающий список) который отображает допустим только имя..
таблица1 (4 поля)
ид
имя <==== отображается методом выпадающего списка...
фамилия
отчество
Таблица2
ид
имя <=== беруться из таблицы 1
фамилия <=== беруться из таблицы 1
отчество <=== беруться из таблицы 1
дата рождения <=== вводится ручками!
вот так примерно =) | |
| |
| |
| |
16 Кб. |
|
| | Вот продолжение | |
| |
| |
| |
|
|
| | >Вот продолжение
вся загвоздка в том что 2ая таблица будет заполняться по мере надобности..
то есть там нету значений \=
они беруться из первой и заносятся туда при нажатии кнопки | |
| |
| |
|
|
| |
|
|
| | поможешь?  | |
| |
| |
| |
17 Кб. |
|
| | Значений нет, а потом они появляются,
а потом они - изменяются ?
А потом они удаляются?
Или один разок заполнить и всё.......
тода зачем первая табла?  | |
| |
| |
| |
|
|
| | >Значений нет, а потом они появляются,
>а потом они - изменяются ?
>А потом они удаляются?
>Или один разок заполнить и всё.......
>тода зачем первая табла?
ну корочи там будут храниться типовые штуки..
для нештатной ситуации берется типовая и изменяеца.... и заносица в базу.. вот (=
и потом будет поиск по нештатных штукам | |
| |
| |
| |
|
|
| | АААА-ААААА-ААААА-АААА-АААА-ААААА-АААА-ААА-ААА-ААА-ААА-ААА-ААААА
Образцы та сазать..............
Справочные данные...........
А основна табла - № 2
Я с но.
Ты пример посмотрел - подходит? | |
| |
| |
| |
|
|
| | да посмотрел то что надо =)
спасибо! (= | |
| |
| |
| |
|
|
| | а не поможешь..
если форма не привязанна к таблице?
и в нее переместить данные, ток как делать?
и как потом сделать кнопку и в ней запрос на инсерт в таблицу? | |
| |
| |
| |
|
|
| | Можно несколькими способами.
Можно подключать всю таблицу,
можно только одну запись
можно запрос к этой таблице
в любом случае как тока надо загрузить пишем
Me.RecordSource ="текст запроса"
Me.RecordSource ="Имя таблицы"
Me.Requery
а если ничего не подключать - очистить поля Me.RecordSource ="" | |
| |
| |
| |
|
|
| | Дополню.
Инсертить таблицы можно так
CurrentDB.Execute "INSERT INTO ....."
Этот код и вешается на Кнопка_Click | |
| |
| |
