1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14:
0 então rec8.MoveFirst Fazer até rec8.EOF strtext8 = strtext8 & guarnição (rec8! [Landnaam]. Valor) & vbTab & ““& guarnição (rec8! [Recht]. Valor) & vbTab &” “& guarnição (rec8! [exclusive]. Valor) & vbTab &” “& guarnição (rec8! [porcentagem]. Valor) & vbTab &” “& guarnição (rec8! [Memorando]. Valor) & vbCrLf Debug.Print strtext8 rec8.MoveNext Laço