Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: синхрониз...

Тема: синхронизация

15.06.2007 21:04:07

All

4316 сообщения

Тема: синхронизация

в форме необходимо по выбранному в комбобоксе значению переходить на соответствующую текущую запись; делаю следующим образом:

Dim rst As DAO.Recordset, strCriteria As String, idIndex As Long
PersonalityCode.SetFocus
idIndex = PersonalityCode.ListIndex
strCriteria = "PersonalityCode = " & str(PersonalityCode.ItemData(idIndex))
Set rst = Me.RecordsetClone
rst.FindFirst strCriteria

m = rst.AbsolutePosition + 1

Set rst = Me.RecordsetClone

rst.MoveFirst
Dim i As Long
i = 1
While i < m
rst.MoveNext
i = i + 1
Wend

Me.bookmark = rst.bookmark
rst.Close

А мне выводится ошибка 3022 - изменения не были успешно внесены из-за повторяющихся значений в индексах...
Чего не так?

P.S. Общий раздел по формам
Автор: Лена от 0:00:00 Источник ...

15.06.2007 21:04:07

VVV

26 сообщения

RE: синхронизация

Что касаемо, «чего не так», Вы забыли указать, на каком шаге выскакивает ошибка. Что же касается сути проблемы, скажите, а чем Вас не устраивал стандартный обработчик, прописываемый мастером Access – делает то же самое, а кода раза в 4 меньше?
Set rs = Me.Recordset.Clone
rs.FindFirst "[PersonalityCode] = " & str(Me![PersonalityCode])
Me.Bookmark = rs.Bookmark

P.S. Общий раздел по формам
Автор: VVV от 02.06.2003 1:26:33 Источник ...

15.06.2007 21:04:07

All

4316 сообщения

RE: синхронизация

на последнем шаге и выскакивает:
Me.Bookmark = rs.Bookmark

P.S. Общий раздел по формам
Автор: Лена от 0:00:00 Источник ...

15.06.2007 21:04:07

All

4316 сообщения

RE: синхронизация

1. Для запроса типа RecordsetClone обязательно заполнение, т.к. он возвращает 1 запись (MoveLast->MoveFirst).
2. Прежде, чем присвоить метку Bookmark, необходимо сделать проверку на то, что запись найдена (существует).

P.S. Общий раздел по формам
Автор: Expert от 0:00:00 Источник ...

15.06.2007 21:04:07

All

4316 сообщения

RE: синхронизация

вроде проверила и все равно в том же месте выдает ошибку

Me.RecordsetClone.FindFirst strCriteria
If Me.RecordsetClone.NoMatch Then
Exit Sub
Else
Me.Bookmark = Me.RecordsetClone.Bookmark
End If

P.S. Общий раздел по формам
Автор: Лена от 0:00:00 Источник ...

Страница 1 из 2

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: синхрониз...

Поиск

Список форумов

Начало | Forums