Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: Помогите
 
 автор: Goblin   (13.04.2009 в 12:47)   личное сообщение
 
 

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

  Ответить  
 
 автор: Анатолий (Киев)   (13.04.2009 в 13:51)   личное сообщение
 
 

Попробуйте так (и SetFocus не нужен):
Forms![Форма1]![Форма2]![ПолноеОписание].Value = Forms![Форма1]![Форма2]![ПолноеОписание].Value + t

  Ответить  
 
 автор: Goblin   (13.04.2009 в 19:48)   личное сообщение
 
 

Спасибо, заработало. Но без SetFocus не получается. Главное заработало.

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList