Что-то не могу взять в толк, на ADO делал , а вот на DAO такое присвоение не работает:

Dim q As DAO.QueryDef, rst As DAO.Recordset

Set q = CurrentDb.QueryDefs("Запрос1")
q.Parameters("ля-ля").Value = "ля-ля"
Set rst = q.OpenRecordset(dbOpenDynaset)
Set Me.Recordset = rst

В справке написано, что:
[Recordset type] [Based on SQL data] [Based on Jet data]
ADO Read/Write Read/Write
DAO N/A Read/Write

Но вроде этот rst не базируется на SQLстроке, че-то я не догоняю, чего он тогда противится

А вот через ADO тоже так не хочет:

Dim cmd As ADODB.Command
Dim rst As ADODB.Recordset
Dim prm As ADODB.Parameter
Dim i As Integer

Set cmd = New ADODB.Command
Set cmd.ActiveConnection = CurrentProject.Connection
cmd.CommandText = "qryJvka"
cmd.CommandType = adCmdTable

For Each prm In cmd.Parameters
prm.Value = "ля-ля"
Next prm

Set rst = cmd.Execute
If Not rst.EOF Then
Set Me.Recordset = rst
End If

Метод cmd.Execute вызвращает какой-то недоделанный Recordset, который не хочет лезть в форму, работает только если сам открываешь rst:
Set rst = New ADODB.Recordset
With rst
.ActiveConnection = CurrentProject.Connection
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open Source:="Таблица1", Options:=adCmdTable
End With
Set Me.Recordset = rst

но хотелось бы через Command...

2Лох Позорный: прикол, но так заработало, правда с отличием: дело в том что в некоторых записях в опр. столбцах есть пусты значения (Null), так вот, когда пихаешь через RecordSource="SELECT...." сам запрос, то чексбоксы с пустыми значения, а вот через твой вариант, чексбоксы этих пустых полей становятся серыми, как будто у них в свойстве ControlSource неправильное название поля из запроса/таблицы.
Непонятно еще почему же так он работает, а в моем варианте нет... будет эскпериментировать...

2Pavel: одна ссылка не работает, а другую я читал, ничего интересного, справку я тоже читал, но это пока не объясняет возникающих ошибок...

Да, еще хотелось бы услышать Ваше мнение на счет DAO.RecordSet, почему же он не хочет лезть в Me.RecordSet ???

Кое-что начинает проясняться:

Set rst = cmd.Execute - так он не хочет работать, потому что этот RecordSet получается rst.CursorType = adOpenForwardOnly, а для Me.RecordSet очень важно, чтобы было rst.CursorType = adOpenKeyset.

Так что получается, что метод предложенный Лохом Позорным единственно верный, потому как другого способо явно указать тип курсора я больше не вижу (поправте меня если я не прав), а отказать от Command не могу, потому как надо еще параметры задать для запроса, вот такая петрушка...

Теперь осталось распотрашить еще DAO.Recordset, что ж ему-то не хватает для счастья...

Видимо стоит повторить одну из распространенных фраз на этом форуме - признаю себя ослом

С утра, не проспавшись был, накалякал, а теперь полдня мучуюсь. Вариант с DAO абсолютно рабочий, там только одна ошибка, в конце, чисто автоматически, ну чисто атвотоматически, я без всякой задней мысли написал
rst.Close
Set rst=Nothing

вообщем надо было всего лишь обнулить переменную Set rst=Nothing, а я еще и закрыл этот RecordSet (забыл что это не RecordsetClone), поэтому и видел чистую пустую форму, умора вообщем...

Погодите, с этого места поподробнее...

Я сделал так:

Dim rst as DAO.RecordSet

Set q = CurrentDb.QueryDefs("Запрос1")
q.Parameters("ля-ля").Value = "ля-ля"
Set rst = q.OpenRecordset(dbOpenDynaset)
Set Me.Recordset = rst

Set rst=Nothing

т.е. убрал токо rst.Close

Мыслил я так, переменная локальная и конечно сама убьется, но как завещал великий Гетц и все поколения умудренных программеров хорошо бы принудительно обнулить ссылку на объект. Т.о. осталась токо висеть ссылка на этот объект RecordSet со стороны формы. Ну тут я уже повлиять никак не могу, как она сама свое ссылку обнулит, так чистильщик должен освободить память от этого объекта. Поэтому я больше ничего и не писал никуда...

А вы как аргументируете, зачем в Form_Close?

2Senin Victor:

>>rst.Open cmd

ну, да я и имел ввиду, что вариант Лоха (с его различными вариациями) единственный. т.е. rst.Open cmd ля-ля или до этого rst.CursorType = adOpenKeyset,

Надо было показать 3 возможных варианта передачи параметров в запрос и отображения его в форме: DAO, ADO и динам. SQL строка - думал напишу за полчаса, а подсел с этой формой на полдня :(