1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14:
0 после этого rec8.MoveFirst Не сделать до rec8.EOF strtext8 = strtext8 & уравновешивание (rec8! [Landnaam]. Значение) & vbTab & ««& уравновешивание (rec8! [Recht]. Значение) & vbTab &» «& уравновешивание (rec8! [исключение]. Значение) & vbTab &» «& уравновешивание (rec8! [процент]. Значение) & vbTab &» «& уравновешивание (rec8! [Памятка]. Значение) & vbCrLf Debug.Print strtext8 rec8.MoveNext Петля