Sub mm()
Dim stdocname, lDocID, lPullNumb
lDocID = 5
lPullNumb = 7
 stdocname = "INSERT INTO MaterTransfers ( Quantity, MaterId, UnitId, DocId ) " & _
                " SELECT PullsGlass.Brutto, Material.IDMater, Material.IDOV, " & lDocID & _
                " FROM CutPulls LEFT JOIN (PullsGlass LEFT JOIN ((Musievsky_order LEFT JOIN " & _
                " Material ON Musievsky_order.MusId = Material.[1Ccode]) RIGHT JOIN " & _
                " MaterialGlass ON Musievsky_order.MaterOrdId = MaterialGlass.IDMater) " & _
                " ON PullsGlass.GlassCode = MaterialGlass.Code) ON CutPulls.PullNumb = PullsGlass.PullNumb " & _
                " WHERE PullsGlass.PullNumb Is Not Null " & _
                " AND CutPulls.DateSpys Is Null AND CutPulls.PullNumb = " & lPullNumb

              DoCmd.RunSQL stdocname
              CurrentDb.Execute stdocname
End Sub