ник: shanemac51
чтобы не воевать с кавычками, использую замену
s1="SELECT *
s1=s1 & " FROM ПеремещениеРегистр_ПереченьПеремещенияЗапрос "
s1=s1 & " WHERE (((ПеремещениеРегистр_ПереченьПеремещенияЗапрос.КодШапкиПеремещения)=%1))"
s1=replace(s1,"%1", [Forms]![ПеремещениеГлавнаяФорма]![КодПеремещения])
debug.print s1
Set R = CurrentDb.OpenRecordset(s1)
|