Option Compare Database
Option Explicit
Dim i As Integer
Dim j As Integer
Dim db As Database


Private Sub кнПечать_Click()
  Set db = DBEngine.Workspaces( 0 ).Databases( 0 )
  i =  0 
  j =  0 
  Dim izd As String
  izd = Me.ПолеНом.Value
  PrintWork False, izd
  Set db = Nothing
End Sub

Private Sub PrintWork(p_o As Boolean, parent As String)
  i = i +  1 
  Debug.Print "i=" & i
  Debug.Print "i-j=" & (i - j)
  Dim sqls As String
  Dim rs As Recordset
  If p_o = True Then
    sqls = "SELECT СоставОпераций.Номенклатура, Номенклатура.Наименование, Номенклатура.Обозначение  FROM (Номенклатура INNER JOIN СоставОпераций ON Номенклатура.сч=СоставОпераций.Номенклатура)  WHERE СоставОпераций.Операция=" & parent
  Else
    sqls = "SELECT МКНоменклатуры.Операция, Операции.Наименование, Операции.Обозначение  FROM (Операции INNER JOIN  МКНоменклатуры ON Операции.сч=МКНоменклатуры.Операция)WHERE МКНоменклатуры.КудаВходит=" & parent
  End If
  Set rs = db.OpenRecordset(sqls)
  If p_o = True Then
    Do Until rs.EOF
      Debug.Print rs!Наименование & rs!Обозначение
      Call PrintWork(Not p_o, rs!Номенклатура)
      rs.MoveNext
    Loop
  Else
    Do Until rs.EOF
      Debug.Print rs!Наименование & rs!Обозначение
      Call PrintWork(Not p_o, rs!Операция)
      rs.MoveNext
    Loop
  End If
  rs.Close
  Set rs = Nothing
  j = j +  1 
  Debug.Print "j= " & j
End Sub