strSQL = "INSERT INTO СМРввод (Объект, МТР, КодД, ДатаВ, Акт) SELECT Списание.[Код Объекта], Списание.Сумма, " _
& str(Nz(Me.СписаниеПодч.Form.[КодД])) & "," _
& "#" & Format(Me.СписаниеПодч.Form.[ДатаВ], "mm\/dd\/yyyy") & "#," _
& CStr(Me.СписаниеПодч.Form.[Акт]) & _
" FROM Списание WHERE(((Списание.ВидТовара)=""Материал""));" |