1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14:
0 allora rec8.MoveFirst Fare fino a rec8.EOF strtext8 = strtext8 & disposizione (rec8! [Landnaam]. Valore) & vbTab & ““& disposizione (rec8! [Recht]. Valore) & vbTab &„ “& disposizione (rec8! [esclusiva]. Valore) & vbTab &„ “& disposizione (rec8! [percentuale]. Valore) & vbTab &„ “& disposizione (rec8! [Appunto]. Valore) & vbCrLf Debug.Print strtext8 rec8.MoveNext Ciclo