Не работает поиск записи методом seek.

[zakat2]

Всем доброго дня.
Несколько лет назад написал базу Access, сначала она работала на 97 потом перевел на 2000, а немного позже на 2003. Все прекрасно работало до недавнего времени. Перестало работать после покупки нового ПК и переходе на Win 7 (до этого крутилось на XP). Все работает на Access 2003 Немного о базе.
База разделенная, таблицы прилинкованны. Не работает блок поиска записи с использованием метода seek.

Set myrst = dbTab.OpenRecordset("Рейсы", dbOpenTable)
    myrst.Index = "PrimaryKey"
    myrst.Seek "=", current
    data = myrst!date_out
    avto = myrst!avto
myrst.close

Причем не хочет искать именно последнюю запись, предыдущие ищет нормально. До перехода на Win 7 даже сейчас на старой машине XP все работает нормально.
Подскажите пожалуйста хоть куда копать. Я не программист access, хотя несколько баз и написал (до 30 таблиц), одну даже прикрутил к mysql. Все работает, а тут на тебе...

Всем спасибо за возможные ответы.

[shanemac51]

Причем не хочет искать именно последнюю запись, предыдущие ищет нормально

последняя--это только что введенная
или введенная в предыдущем сеансе?

[zakat2]

Сообщение от shanemac51

последняя--это только что введенная
или введенная в предыдущем сеансе?

И так и так, запись точно есть, сам вначале думал что запись не проводится. Но даже при перезапуске базы, последняя запись не отрабатывает, а предыдущая как часики.

[shanemac51]

Выложите полный код, а то у вас огрызок без объявлений и присвоения начальных значений

private sub mmm_click()
..............
.............
............
end sub

[Teslenko_EA]

Здравствуйте zakat2.
Метод Seek не зависит от системы, он является инструментом DAO.

Ваша конструкция не обрабатывает исключения, её стоит доработать хотя бы так:

    Set myrst = dbTab.OpenRecordset("Рейсы", dbOpenTable)
    myrst.Index = "PrimaryKey"
    myrst.Seek "=", Current
    If rs.NoMatch Then
        'не найдено
    Else
        Data = myrst!date_out
        avto = myrst!avto
    End If
    myrst.Close

Но я бы предпочел увидеть не "полный код", а БД целиком для определения других возможных источников "проблемы".

мнение : Поиск по индексу выполняется быстро (так объявляет документация), но выполнения
других вариантов поиска вполне удовлетворяет большинству задач.
Например такой:

Dim rs As ADODB.Recordset
Set rs = CurrentProject.Execute("select date_out, avto from  Рейсы where ID=" & Current)
If Not rs.EOF Then
        Data = rs(0)
        avto = rs(1)
End If
rs.Close

или такой:

Data = DLookup("date_out", "Рейсы", "ID = " & Current)
avto = DLookup("avto", "Рейсы", "ID = " & Current)

Евгений.

[zakat2]

Еще раз всем здравствуйте и спасибо за активность. Тему прошу закрыть проблему решил. Хотя так ничего и не понял...
Вариант с использованием NoMatch проверял, просто по коду мне он не нужен, запись которую я ищу "всегда" есть. То бишь проверка в этом куске не нужна. Пробовал явное указание переменной Current, результат тот же последняя запись не находится а предыдущая запросто. Самое обидное что ранее все нормально работало. Так как текущую установку и перенос баз выполнял не я, решил перенести еще на одну машинку с WIN 7, что бы снять все ошибки по переносу и установке самой OS. И тут выяснилось...
Ранее(совсем давно) база(и база и рабочее место) располагалась на C:\Base , потом была перенесена на криптодиск(пусть будет U, а сам диск подключен как C:\Base и все нормально работало. Специалист который переносил очевидно что то не вкурил или просто не знал. Он положил оба файла и по пути C:\Base и на криптодиск, но диск как C:\Base не подключил. Ярлык на рабочее место вытащил с криптодиска, а база бралась с папки C:\Base (на рабочем месте явно прописаны пути на линк базы C:\Base) и в результате я получал такую ошибку. Перелопатил весь код и нашел проблему. Я иногда брал путь хранения рабочего места, а иногда явно указывал C:\Base (конечно это моя ошибка, но это была моя первая база, учился я). И получалось что запись создавалась в одной базе, а поиск велся в другой, ну в общем простите за беспокойство, тормознул я.
Просмотрел код, да, конечно много чего сейчас я бы сделал по другому, но переписывать сотню процедур и функций как то лень, да и работает все нормально уже 12 лет. Сама программа предназначена для обслуживания международной логистики , отслеживание топлива, расходов и тому подобное. При запуске позволяла экономить $400-$600 на каждом рейсе, ну а потом конечно водители поняли что ничего не поделаешь, все учтено и подзаработать не получится.
На данный момент программкой пользуются две небольшие компании на 15-25 фур. Жалоб нет, все довольны.
Еще раз всем спасибо, извините за беспокойство.

P/S. Это типа извинения.
При попытке клеить рабочее место к MySQL базе через ODBC многие получают ошибку "Данные изменены другим пользователем". Ошибка возникает после выполнения кода и обновления страницы формы. В свое время обрыл весь инет и ничего не нашел. У народа таких ошибок полно, а решения нет, некоторые от идеи отказались. Я нашел причину и хочу нею поделиться. Около года назад писал базу для обьединения логистики и OpenGTS("Open GPS Tracking System") и попался на указанную ошибку, потратил неделю но ошибку (а точнее причину) нашел. Как всегда все очень просто, хотя на базах access или MsSQL такая ошибка не возникает.
Причина в следующем. Допустим Вы из кода переписываете несколько полей записи. Пусть это поля П1, П2 и П3 и их значения 1, 2 и 3. Вы находясь на форме через код меняете значения на 3, 2, 1 соответственно и выполняете рефреш формы - вот тут и получите "Данные изменены другим пользователем"
Оказывается ошибка появляется в случае перезаписи поля тем же значением, в данном примере я 2 менял на 2, если выполнять проверку и в моем примере переписать только первое и третье поле, то ошибки не будет а результат тот же 3, 2 и 1. Странно но факт!!!
А вообще база MySQL работает отлично, быстро (в некоторых таблицах уже более 5млн записей-тормозов нет) и надежно(более года - все чик). Весь интерфейс через Access 2003. Рекомендую.