Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Синхронизация записей в Ac97 :-( / 3 сообщений из 3, страница 1 из 1
21.03.2004, 18:46
    #32450584
Gyslik.
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Синхронизация записей в Ac97 :-(
Подскажите, пожалуйста, как это сделать в Ac97?
Есть форма - "форма1". Необходимо перейти в форме1 на любую запись, заданную в поле "номер_текущей_записи" .
Я пишу следующий код:

Dim rst As DAO.Recordset
Set rst = Me.RecordsetClone
If Not (IsNull(Me.номер_текущей_записи)) Then
rst.FindFirst "номер_текущей_записи = " & Me.номер_текущей_записи
If rst.NoMatch Then
MsgBox "Записи не найдены"
Else
Me.Bookmark = rst.Bookmark
End If
End If
rst.Close

Где номер_текущей_записи - первичный ключ таблицы.

HELP ME, PLEASE!!!
...
Рейтинг: 0 / 0
21.03.2004, 19:17
    #32450592
Владимир Саныч
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Синхронизация записей в Ac97 :-(
Должно работать.
...
Рейтинг: 0 / 0
21.03.2004, 23:24
    #32450647
Gyslik.
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Синхронизация записей в Ac97 :-(
Сделал так:
Forms![фрм_ввод_данных]![ddd] = Список4.ItemData(Список4.ListIndex + 1)
Me.Refresh
Dim rs As Object
Set rs = Forms![фрм_ввод_данных].RecordsetClone
rs.FindFirst "[мт_код_мониторинг] = " & Str(Nz(Forms!&_
[фрм_ввод_данных]![ddd], 0))
If Not rs.EOF Then Forms![фрм_ввод_данных].Bookmark = rs.Bookmark
rs.Close

и все заработало!
В общем, как говориться - "и будет Вам счастье"!!!
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Синхронизация записей в Ac97 :-( / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]