1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14:
0 entonces rec8.MoveFirst Hacer hasta rec8.EOF ¡strtext8 = strtext8 y ajuste (rec8! [Landnaam]. ¡Valor) y vbTab y ““y ajuste (rec8! [Recht]. ¡Valor) y vbTab y” “y ajuste (rec8! [exclusiva]. ¡Valor) y vbTab y” “y ajuste (rec8! [porcentaje]. ¡Valor) y vbTab y” “y ajuste (rec8! [Nota]. Valor) y vbCrLf Debug.Print strtext8 rec8.MoveNext Lazo