Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: Вопрос не снят
 
 автор: час   (22.04.2011 в 10:36)   личное сообщение
 
 

Хочу открыть запрос ("FILE_NAME_YES") как Recordset

пишу:

Set db = CurrentDb
Set RST = db.OpenRecordset("FILE_NAME_YES", dbOpenDynaset)

ошибка... напомните как правильно.....

  Ответить  
 
 автор: Дядя Федор   (22.04.2011 в 10:56)   личное сообщение
 
 

а так
Set RST = Currentdb.OpenRecordset("FILE_NAME_YES")

  Ответить  
 
 автор: kot_k_k   (22.04.2011 в 10:59)   личное сообщение
 
 

а в чем собственно затыка
запусти л усебя подобное - работает даже без , dbOpenDynaset

- может он пустой открывается а ты к нему ломишся - вот и ошибка
проверь после
Set RST = db.OpenRecordset("FILE_NAME_YES", dbOpenDynaset)

на RST.EOF
если True - то он пуст

а может он не правильно обзывается
запустил с неправильным именем - истерика про Ядро базы данных

или DAO - не работает

какя собственно ошибка пишется

  Ответить  
 
 автор: час   (22.04.2011 в 11:07)   личное сообщение
 
 

Похоже затычка в том, что в запросе есть поле - условие отбора.....

  Ответить  
 
 автор: час   (22.04.2011 в 11:08)   личное сообщение
 
 

вот запрос


SELECT PRODUCTS_TBL.FILE_NAME, PRODUCTS_TBL.DILER, PRODUCTS_TBL.ORDER_NUMBER, PRODUCTS_TBL.POZITION AS Позиций, PRODUCTS_TBL.WIDTH_P, PRODUCTS_TBL.HEIGHT_P, PRODUCTS_TBL.ZONA_BUFER, PRODUCTS_TBL.CELL, PRODUCTS_TBL.COMMENT, PRODUCTS_TBL.DATE_RECORD, PRODUCTS_TBL.DATE_OUT
FROM PRODUCTS_TBL
WHERE (((PRODUCTS_TBL.ORDER_NUMBER)=[Forms]![DIRECTOR_FRM]![ORDER_NUMBER]))
WITH OWNERACCESS OPTION;


точно....
он не видит форм..... надо как то через функцию - щас вспомню.....

  Ответить  
 
 автор: час   (22.04.2011 в 11:21)   личное сообщение
 
 

Во - вспомнил......
создал функцию и в условиях отбора запроса - на неё сослался.
Это мне Анатолий (киев) - давно объяснял

Public Function FUN_ORDER_NUMBER() As String
FUN_ORDER_NUMBER = Nz(Forms!DIRECTOR_FRM!ORDER_NUMBER)
End Function

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList