1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 :
0 puis rec8.MoveFirst Faire jusqu'à rec8.EOF strtext8 = strtext8 et équilibre (rec8 ! [Landnaam]. Valeur) et vbTab et « « et équilibre (rec8 ! [Recht]. Valeur) et vbTab et » « et équilibre (rec8 ! [exclusivité]. Valeur) et vbTab et » « et équilibre (rec8 ! [pourcentage]. Valeur) et vbTab et » « et équilibre (rec8 ! [Note]. Valeur) et vbCrLf Debug.Print strtext8 rec8.MoveNext Boucle