|
|
|
| Access2002 Проблема: надо из поля Memo одной формы добавить текст в поле memo другой формы. Код на кнопку добавления:
Me![Описание].SetFocus
t = " " + [Описание]
DoCmd.Close
stDocName = ChrW(1055) & ChrW(1072) & ChrW(1094) & ChrW(1080) & ChrW(1077) & ChrW(1085) & ChrW(1090) & ChrW(1099)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Forms![Форма1]![Форма2]!ПолноеОписание.SetFocus
Forms![Форма1]![Форма2]![ПолноеОписание].Text = Forms![Форма1]![Форма2]![ПолноеОписание].Text + t
Однако, если данных больше 1000 знаков, то выходит окно VB с текстом:
Run-time error '2176'
Слишком большое значение для данного свойства.
Попытки предварительного обнуления переменной t ничего не дали. Приходится действовать через простой буфер обмена. что не всегда удобно. Знаю, что код не совершенен, но как и что исправить? Плиз. | |
|
| |
|
|
|
| Попробуйте так (и SetFocus не нужен):
Forms![Форма1]![Форма2]![ПолноеОписание].Value = Forms![Форма1]![Форма2]![ПолноеОписание].Value + t | |
|
| |
|
|
|
| Спасибо, заработало. Но без SetFocus не получается. Главное заработало. | |
|
| |