VPF::Обновить данные в форме - Форум программистов

Данкинг

Дата 14.4.2007, 01:16 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130

Нашёл похожие темы, но ответа так и получил. В общем, есть форма, на ней поле. При вводе данных в это поле указатель в таблице перемещается на определённое значение. Но в самой форме изменений не видно: как была запись №1, так она и остаётся. Как обновить инфу и на форме тоже??

--------------------

There's nothing left but silent epitaphs.

bopoha

Дата 14.4.2007, 11:08 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1283
Регистрация: 10.5.2006
Где: Беларусь, Минск

Репутация: 21
Всего: 21

Как перемещается указатель в таблице?

Если я правильно понимаю, то происходить должно так:

Код


set rst = Me.RecordsetClone

'-- перемещение

Me.Bookmark = rst.Bookmark

Это сообщение отредактировал(а) bopoha - 14.4.2007, 11:15

--------------------

Как создавать приложения на MS Access

Данкинг

Дата 14.4.2007, 11:51 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130

Не работает всё равно. Вот код:

Код


Private Sub Поле5_KeyPress(KeyAscii As Integer)
If KeyAscii <> 13 Then Exit Sub
Dim base As DAO.Database
Dim table As DAO.Recordset
Set base = CurrentDb()
Set table = base.OpenRecordset("Base", dbopentable)
Me.Recordset.Move 5

Процедура вызывается, соответственно, по нажатию ENTER на ПОЛЕ5 в форме. При этом в таблице указатель смещается на определённое число записей. А в самой форме как была запись №1, так она и осталась. Я же хочу отобразить ту же запись и в форме тоже, чтобы вносить значение в соответствующее поле...

И ещё: почему вот здесь выдаётся ошибка?

Код


Debug.Print "Текущая запись " & CStr (base.AbsolutePosition + 1)

Это сообщение отредактировал(а) Данкинг - 14.4.2007, 11:54

--------------------

There's nothing left but silent epitaphs.

bopoha

Дата 14.4.2007, 14:24 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1283
Регистрация: 10.5.2006
Где: Беларусь, Минск

Репутация: 21
Всего: 21

Цитата(Данкинг @ 14.4.2007, 11:51

)

Код


Debug.Print "Текущая запись " & CStr (base.AbsolutePosition + 1)

Потому что, свойства AbsolutePosition у DAO.Database нет, оно есть у DAO.Recordset.

Этот код у меня работает:

Код


Me.Recordset.Move 5

Зачем тебе обрабатывать событие нажатия клавиши Enter. Есть специальное событие "После обновления" (AfterUpdate). Будет работать, даже если пользователь изменил значения поля и ушел из него методом мышки.

Это сообщение отредактировал(а) bopoha - 14.4.2007, 14:25

--------------------

Как создавать приложения на MS Access

Данкинг

Дата 14.4.2007, 18:30 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130

Цитата(bopoha @ 14.4.2007, 15:24)

Потому что, свойства AbsolutePosition у DAO.Database нет, оно есть у DAO.Recordset.

Код


Private Sub Поле5_KeyPress(KeyAscii As Integer)
If KeyAscii <> 13 Then Exit Sub
Dim base As DAO.Database
Dim table As DAO.Recordset
Set base = CurrentDb()
Set table = base.OpenRecordset("Base", dbopentable)
table.MoveNext
Debug.Print "Текущая запись " & CStr(table.AbsolutePosition + 1)

"Операция не поддерживается для объектов этого типа". smile

А ENTER надо обрабатывать, чтобы найти нужную запись в базе по данным, введённым в Поле5...
ЗЫ: сдаётся мне, что проще на Дельфи написать эту форму, чем вникать в VBA. smile

Это сообщение отредактировал(а) Данкинг - 14.4.2007, 18:33

--------------------

There's nothing left but silent epitaphs.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| MS Access \| Следующая тема »