Нужна помощь с полем Memo / Microsoft Access

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Нужна помощь с полем Memo

2 сообщений из 2, страница 1 из 1

Нужна помощь с полем Memo

#32890594

Traveller

Гость

Приветствую
Есть скрипт, который прописывает в поле Memo информацию

Код: plaintext

1.
2.
3.
4.
5.
6.

Private Sub Form_Activate()
    If Me!LateCheckOut = - 1  Then
       Me!Remarks.Value = "With late check-out at 18:00 please"
    Else
       Me!Remarks.Value = "    "
    End If
 End Sub

Вопрос в следующем, как можно проверять поле Memo на наличие информации и добавлять новую не теряя старой?
Возможно ли это?
Но это еще не все, при отрабатывании "Else" нужно чтобы из поля "Remarks" удалялась только следующая запись "With late check-out at 18:00 please"
Заранее благодарю за любую помощь

...

Рейтинг:

0 / 0

29.01.2005, 09:17:33

| Ответить | Цитировать | Написать

Нужна помощь с полем Memo

#32890622

xax_nv

Участник

Откуда: Нижневартовск

Сообщения: 954

Рейтинг: 0 / 0

1. Чтобы длбавить информацию не теряя старой:

Код: plaintext

Me!Remarks.Value = Me!Remarks.Value  & "With late check-out at 18:00 please"

2. Если текст "With late check-out at 18:00 please" находится в конце строки, то найти позицию, с которой он начинается и заменить значение поля на то, что находится до этой позиции:

Код: plaintext

Me!Remarks.Value  =Left(Me!Remarks.Value, InStr( 1 , Me!Remarks.Value, "With late check-out at 18:00 please")- 1 )

...

Рейтинг:

0 / 0

29.01.2005, 11:18:07

| Ответить | Цитировать | Написать

2 сообщений из 2, страница 1 из 1

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Нужна помощь с полем Memo

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&msg=32890622&tid=1668952]:	0ms
get settings:	9ms
get forum list:	16ms
check forum access:	3ms
check topic access:	3ms
track hit:	74ms
get topic data:	9ms
get forum data:	2ms
get page messages:	34ms
get tp. blocked users:	1ms
others:	236ms

total:	387ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы