ник: zjuka
Спасибо за помощь, проблема решилась вызовом запроса из VBA может кому пригодиться вот код:
dim q as dao.querydef
dim txt as string
txt="select ... where val='" & Me.Val & "'"
set q=currentdb.querydefs("MyQ")
q.sql=txt
set q=nothing
docmd.Openquery "MyQ"