Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: Goblin
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 ничего не дали. Приходится действовать через простой буфер обмена. что не всегда удобно. Знаю, что код не совершенен, но как и что исправить? Плиз.


Ваше имя:

Пароль:

Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.