Sub OpenTables(tablename1, tablename2, flagTablic)
Set dbs = CurrentDb
    If (flagTablic = 1) Then
        Set RST1 = CurrentDb.OpenRecordset(tablename1)
    End If
..........
Function pereschet()
Dim tab1
    tab1 = "SELECT KomplektuyshieIzdeliyaNarab.ZavNomPKI as zavnompki,KomplektuyshieIzdeliyaNarab.NarabPKI1 as narabpki1,KomplektuyshieIzdeliyaNarab.NaznachResurs1 as naznres1,KomplektuyshieIzdeliyaNarab.MezhRemResurs1 as mezhremres1,KomplektuyshieIzdeliyaNarab.OstatokNaznachResurs1 as ostatnaznres1,KomplektuyshieIzdeliyaNarab.OstatokMezhRemResurs1 as ostatmezhremres1,KomplektuyshieIzdeliyaNarab.DataOkonchNaznachREsurs1 as dataokonnaznres1,KomplektuyshieIzdeliyaNarab.DataOkonchMezhremResurs1 as dataokonmezhremres1,KomplektuyshieIzdeliyaNarab.EINarabPKI1 as einarabpki1," _
           & "KomplektuyshieIzdeliyaNarab.NarabPKI2 as narabpki2,KomplektuyshieIzdeliyaNarab.NaznachResurs2 as naznres2,KomplektuyshieIzdeliyaNarab.MezhRemResurs2 as mezhremres2,KomplektuyshieIzdeliyaNarab.OstatokNaznachResurs2 as ostatnaznres2,KomplektuyshieIzdeliyaNarab.OstatokMezhRemResurs2 as ostatmezhremres2,KomplektuyshieIzdeliyaNarab.DataOkonchNaznachREsurs2 as dataokonnaznres2,KomplektuyshieIzdeliyaNarab.DataOkonchMezhremResurs2 as dataokonmezhremres2,KomplektuyshieIzdeliyaNarab.EINarabPKI2 as einarabpki2," _
           & "KomplektuyshieIzdeliyaNarab.NarabPKI3 as narabpki3,KomplektuyshieIzdeliyaNarab.NaznachResurs3 as naznres3,KomplektuyshieIzdeliyaNarab.MezhRemResurs3 as mezhremres3,KomplektuyshieIzdeliyaNarab.OstatokNaznachResurs3 as ostatnaznres3,KomplektuyshieIzdeliyaNarab.OstatokMezhRemResurs3 as ostatmezhremres3,KomplektuyshieIzdeliyaNarab.DataOkonchNaznachREsurs3 as dataokonnaznres3,KomplektuyshieIzdeliyaNarab.DataOkonchMezhremResurs3 as dataokonmezhremres3,KomplektuyshieIzdeliyaNarab.EINarabPKI3 as einarabpki3," _
           & "KomplektuyshieIzdeliyaNarab.NarabPKI4 as narabpki4,KomplektuyshieIzdeliyaNarab.NaznachResurs4 as naznres4,KomplektuyshieIzdeliyaNarab.MezhRemResurs4 as mezhremres4,KomplektuyshieIzdeliyaNarab.OstatokNaznachResurs4 as ostatnaznres4,KomplektuyshieIzdeliyaNarab.OstatokMezhRemResurs4 as ostatmezhremres4,KomplektuyshieIzdeliyaNarab.DataOkonchNaznachREsurs4 as dataokonnaznres4,KomplektuyshieIzdeliyaNarab.DataOkonchMezhremResurs4 as dataokonmezhremres4,KomplektuyshieIzdeliyaNarab.EINarabPKI4 as einarabpki4," _
           & "KomplektuyshieIzdeliyaPolnaya.DataVipPKI as datavippki" _
           & " FROM (KomplektuyshieIzdeliyaNarab INNER JOIN KomplektuyshieIzdeliyaPolnaya ON KomplektuyshieIzdeliyaNarab.ZavNomPKI = KomplektuyshieIzdeliyaPolnaya.ZavNomPKI) INNER JOIN KomplektIzdeliya ON KomplektuyshieIzdeliyaPolnaya.KodPKI = KomplektIzdeliya.KodPKI" _
           & " WHERE KomplektIzdeliya.ShifrPKI Like '" & shifrizd & "' AND (KomplektuyshieIzdeliyaNarab.NarabPKI1<>NULL OR KomplektuyshieIzdeliyaNarab.NarabPKI2<>NULL OR KomplektuyshieIzdeliyaNarab.NarabPKI3<>NULL OR KomplektuyshieIzdeliyaNarab.NarabPKI4<>NULL) ORDER BY KomplektuyshieIzdeliyaNarab.ZavNomPKI;"
    Call OpenTables(tab1, "", 1)
    If (RST1.RecordCount > 0) Then
            RST1.MoveFirst
                RST1.Edit
.........