Wert in GETROWS limitiert
dey
- vb-script
Hi.
Ich rabeite gerade mit VBS in Access97.
Mit dem getrows lese ich den Inhalt einer Tabelle aus: 9 Felder und 9 records. Sobald ich die Anzahl Felder oder Datensätze auf 10 erhöhe bekomme ich die Fehlermeldung:
Laufzeitfehler 9
Index ausserhalb des gültigen Bereichs
Der Fehler verweist auf die Zeile mit dem Zugriff auf das erzeugte Array: pixel = letter(no_field, no_record).
code:
'get end and begin of array and make array
rs_char.MoveLast
rs_char.MoveFirst
letter = rs_char.GetRows(rs_char.RecordCount)
' get max fields and max records
For no_field = 0 To UBound(letter, 2)
locx = 1.1 * (no_field)
locy = 0
For no_record = UBound(letter, 1) To 0 Step -1
' give back each value
'Debug.Print letter(no_field, no_record)
pixel = letter(no_field, no_record)
'define part and ceate sequence
If pixel = "8" Then
thnx bydey