ник: seluvan
Прописал:
Set R = CurrentDb.OpenRecordset("SELECT * FROM ПеремещениеРегистр_ПереченьПеремещенияЗапрос " & _
"WHERE (((ПеремещениеРегистр_ПереченьПеремещенияЗапрос.КодШапкиПеремещения) = " & _
[Forms]![ПеремещениеГлавнаяФорма]![КодПеремещения] & "))")
заработало))) спасибо