SQL ,Access опять проблем

[elsen]

Запрос в Акссес
Public rs As New ADODB.Recordset
Public SQL As String
---------------------------------------------------------------
SQL = "Select * From inv_tbl Where Mid(inventnum, 5, 2)=" & CStr(tip)

rs.Open SQL, Me, adOpenDynamic, adLockOptimistic
тут бьет ощибку неверный тип или конфликт друг с другом
Debug.Print "Recordset Object Created"
Set Recordset = rs
Me.Refresh
kn = rs.RecordCount ' obshee kol sapisey

спасайте профи

[elsen]

уточняю работаю в акксессе надо в ВБА открыть таблицу и выбрать все записи по параметрам

[SergeySV2]

rs.Open SQL, Me, adOpenDynamic, adLockOptimistic

Что такое Me? тут помойму объект Connection передать надо

[elsen]

me- переменная коннекта
ну в общем ето мне кажетса се неверным

[Tuco]

Может, "me" нужно заменить более осмысленным названием коннекции с базой, а то получается двусмысленность - пользовательская форма или коннекция Если это программа в базе и обращается она к той же базе, то нужно:

Код: Выделить всё

rs.Open SQL, CurrentProject.Connection, adOpenDynamic, adLockOptimistic

Вот так должно работать

[АндрейБ]

Не знаю разобрался ли ты с этой проблемой.
Я обычно когда у меня в Акцессе что-то не получалось, обходил эту проблема.
Сделай запрос, все критерии опиши через функции (или фукцию по переменной). Пусть эти функции (или функция) берут данные для критерия отбора из полей формы (если я правильно понял) или из таблицы (смотря от куда берешь)!
Потом в форме пишешь
DoCmd.OpenSql (ИмяЗапроса)
Все должно работать, если ты все верно сделашь!