запрос с параметром

[MisterX]

Форма в Excell :

Private Sub CommandButton1_Click()
Set db = opendatabase("h:\Мои документы\База.mdb")
Set r = db.OpenRecordset("Запрос1")
Cells(1, 1).CopyFromRecordset r
End Sub

Все работало, пока я не ввел в запрос параметр


Как передать его из данной процедуры ???
Help Please !

[bask]

попробуй в openrecordset передавать не имя запроса, а его SQL выражение с подставленным значением, например, если запрос такой:
SELECT Person.*
FROM Person
WHERE (((Person.LastName)="фамилия"));
где "фамилия" - параметр, то пишешь
db.openrecordset(Replace(db.QueryDefs("Запрос1").SQL,"фамилия","Петров"), dbopendynaset)

[MisterX]

ну неужели никто не подскажет

[MisterX]

bask? можно подробнее, сописанием методов