Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / VBA работает в AccessXP, а в Access97 нет!!! В чем причина? / 6 сообщений из 6, страница 1 из 1
24.12.2004, 15:01:41
    #32843998
Orlic
Orlic
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA работает в AccessXP, а в Access97 нет!!! В чем причина?
привет. Горю, срочно, не знаю, что делать....
Код
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub Form_Load()
Dim rst As New ADODB.Recordset

ЗДЕСЬ НАХОДИТ КОСЯК:  
        rst.Open "Select * from tbl_check", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

        
        rst.Find "id = 'last'"
        time1 = rst![qwe]

    rst.Close
    Set rst = Nothing

работает в XP, а при конвертировании БД в формат 97 - отказывается, говорит, Ошибка выполнения 424 - Требуется объект....!!!!


Что делать, как изменить код не меняя его функций???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.12.2004, 15:05:08
    #32844004
Lelikk
Lelikk
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA работает в AccessXP, а в Access97 нет!!! В чем причина?
А библиотека ADO подключена?

________________________________________________________
Глюк - это высокоорганизованная система не поддающихся определению частиц
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.12.2004, 15:07:31
    #32844008
Lenivec
Lenivec
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA работает в AccessXP, а в Access97 нет!!! В чем причина?
CurrentProject.Connection - нету такого в 97
создавай коннекшин вручную
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.12.2004, 15:08:42
    #32844013
ЛП
ЛП
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA работает в AccessXP, а в Access97 нет!!! В чем причина?
тенденция однако...
раньше в ADP-проекте пытались найти CurrentDB, теперь в 97-ом аксесе пытаются найти CurrentProject

2 Orlic
Либо используй DAO (и CurrentDB), либо самостоятельно открывай ADODB.Connection (не обращаясь к несуществующему CurrentProject)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.12.2004, 15:12:42
    #32844023
Orlic
Orlic
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA работает в AccessXP, а в Access97 нет!!! В чем причина?
ЛПтенденция однако...
раньше в ADP-проекте пытались найти CurrentDB, теперь в 97-ом аксесе пытаются найти CurrentProject

2 Orlic
Либо используй DAO (и CurrentDB), либо самостоятельно открывай ADODB.Connection (не обращаясь к несуществующему CurrentProject)

раньше ни с тем, ни с другим не работал, но знаю, что DAO более старое (-ый, -ая?;-), чем ADO.

все, справился, спасибо. Сделал так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Dim rst As DAO.Recordset

Set rst = CurrentDb.OpenRecordset("Select * from tbl_check")

rst.FindLast "id = 'last'"

time1 = rst![qwe]
    
    rst.Close
    Set rst = Nothing

спасибо, буду иметь в виду
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.12.2004, 17:07:25
    #32844297
Proga
Proga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA работает в AccessXP, а в Access97 нет!!! В чем причина?
MDB надо 2000 и выше использовать, тогда и Cur... Project работать будет.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / VBA работает в AccessXP, а в Access97 нет!!! В чем причина? / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 266ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1669546]:
 0ms
get settings:
 5ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 28ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 25ms
get tp. blocked users:
 1ms
others: 185ms
total:  266ms
x
x
Закрыть


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