Из скрипта, управляя формой, создать новую запись, и послать в базу / Microsoft Access

ReSQL.ru

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

Гость

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

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

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

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Из скрипта, управляя формой, создать новую запись, и послать в базу

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

Из скрипта, управляя формой, создать новую запись, и послать в базу

#32540291

Dmitry S. Kravchenko

Участник

Сообщения: 96

Рейтинг: 0 / 0

Привет!

Когда, работая в форме, вызываешь команду "создать запись", то форма опустошается, в клетки вписываются значения по умолчанию. В этот момент в базу еще ничего не занесено.

Как только в форум что-нибудь вписываешь, на корешке записи появляется изображение карандаша. В этот момент в базу еще ничего не занесено.

После этого есть несколько вариантов. Можно закрыть форму или уйти на другую запись - тогда в момент этого события, введенные данные будут переданы в базу.

Можно нажать ESC, тогда данные исчезнут.

А можно ткнуть мышкой в изображение карандаша и тогда данные пойдут в базу, а текущая запись останется прежней.

****
Внимание, вопрос:

Как, командуя формой из скрипта, имитировать последние два действия, то есть, отмену ввода данных и посылку данных в базу не сменяя текущей записи?

****
Я сделал форму с подчиненной формой. Родительская форма содержит строки, соответствующие текущему дню. Поэтому скрипт проверяет, наступил ли новый день. Если "нет", то просто перемещается к нужной родительской записи. А если "да", то создает новую запись.

Однако, подчиненную форму править оказывается нельзя, так как пока в родительскую ничего не введено, реальной родительской строки еще нет и ругаются правила целостности.

Как управиться?

Пасиб.

Димс.

...

Рейтинг:

0 / 0

31.05.2004, 00:36

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

Из скрипта, управляя формой, создать новую запись, и послать в базу

#32540329

Alexander G

Участник

Откуда: Чукчи мы, однако

Сообщения: 3 280

Рейтинг: 0 / 0

Создать
DoCmd.GoToRecord acDataForm, "Форма1", acNewRec

Отменить
Me.Undo (или создать мастером аналогичную кнопочку и посмотреть код, там он будет другим)
В примере хелпе есть еще вариант (он вычистит новую запись вместе со значениями по умолчанию)

Код: plaintext

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

    Dim ctlC As Control
        ' Для каждого элемента управления.
        For Each ctlC In Me.Controls
            If ctlC.ControlType = acTextBox Then
                ' Восстанавливаем исходное значение.
                ctlC.Value = ctlC.OldValue
            End If
        Next ctlC

Сохранить
DoCmd.RunCommand acCmdSaveRecord
или
Me.Dirty = False
Или сделать кнопку мастером и взять ее код

По поводу подчиненной формы - чуть подробнее, если можно.

...

Рейтинг:

0 / 0

31.05.2004, 01:26

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

Из скрипта, управляя формой, создать новую запись, и послать в базу

#32541181

Dmitry S. Kravchenko

Участник

Сообщения: 96

Рейтинг: 0 / 0

Александр, про подчиненные формы - это не другой вопрос, а тот же. Просто ситуация, в которой мне было нужно то, что я спрсил.

Видимо, поможет то, что Вы сообщили.

Теперь у меня в форме в обработчике открытия код

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.

    If DMax("Дата", "День") = Date Then
        Set rs = Me.Recordset.Clone
        rs.FindLast "TRUE"
        Me.Bookmark = rs.Bookmark
    Else
        DoCmd.GoToRecord , , acNewRec
        DoCmd.RunCommand acCmdSaveRecord
    End If

Димс.

...

Рейтинг:

0 / 0

31.05.2004, 15:25

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

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

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

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

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

start [/forum/topic.php?fid=45&tid=1674236]:	0ms
get settings:	7ms
get forum list:	15ms
check forum access:	3ms
check topic access:	3ms
track hit:	171ms
get topic data:	11ms
get forum data:	2ms
get page messages:	42ms
get tp. blocked users:	2ms
others:	256ms

total:	512ms

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