powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Синхронизация записей в Ac97 :-(
3 сообщений из 3, страница 1 из 1
Синхронизация записей в Ac97 :-(
    #32450584
Фотография Gyslik.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Подскажите, пожалуйста, как это сделать в 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
Синхронизация записей в Ac97 :-(
    #32450592
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Должно работать.
...
Рейтинг: 0 / 0
Синхронизация записей в Ac97 :-(
    #32450647
Фотография Gyslik.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Сделал так:
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
3 сообщений из 3, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Синхронизация записей в Ac97 :-(
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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