Acc XP -Fehlermeldung Index ausserhalb des gültigen Bereichs

14/01/2009 - 09:18 von Andreas Ahrens | Report spam
Hi NG,

was ist am unteren Listing falsch, da die o. g. Fehlermeldung auftaucht?

Private Sub Befehl0_Click()
Dim SplitText() As String
Dim db As Database
Dim rs As Recordset 'Kunden
Dim rs1 As Recordset 'Kunden1
Dim rs2 As Recordset 'PC
Dim i As Integer

Set db = CurrentDb
Set rs = db.OpenRecordset("Kunden")
Set rs1 = db.OpenRecordset("Kunden1")
Set rs2 = db.OpenRecordset("PC")

rs1.MoveFirst

i = 1

While Not rs1.EOF

Debug.Print "Duchlauf: " & i
'Kunden
rs.AddNew
rs.Fields("KdID") = rs1.Fields("Lfd Nr")
rs.Fields("NName") = rs1.Fields("Nachname")
rs.Fields("VName") = rs1.Fields("Vorname")
SplitText = Split(rs1.Fields("Anschrift"), ",")
rs.Fields("Straße") = Trim(SplitText(0))
rs.Fields("Plz") = Trim(SplitText(1))

'nach 14. Datensatz Meldung "Index außerhalb des gültigen
Bereichs"
rs.Fields("Ort") = Trim(SplitText(2))

rs.Update


'PC
rs2.AddNew
rs2.Fields("RName") = rs1.Fields("PC-Nr")
rs2.Fields("ausgeliefert") = rs1.Fields("Ausgeliefert")
rs2.Fields("zurück") = rs1.Fields("Zurück")
rs2.Update

rs1.MoveNext
i = i + 1

Wend

rs.Close
rs1.Close
rs2.Close

MsgBox "erledigt"
End Sub

Gruss
Andy
 

Lesen sie die antworten

#1 Josef Poetzl
14/01/2009 - 09:26 | Warnen spam
Hallo!

Andreas Ahrens schrieb:
was ist am unteren Listing falsch, da die o. g. Fehlermeldung auftaucht?


[...]
SplitText = Split(rs1.Fields("Anschrift"), ",")
rs.Fields("Straße") = Trim(SplitText(0))
rs.Fields("Plz") = Trim(SplitText(1))

'nach 14. Datensatz Meldung "Index außerhalb des gültigen
Bereichs"



Dann wird in diesem DS kein Beistrich im Feld Anschrift sein.
Ein Haltepunkt oder Debug.Print kann hilfreich bei der Suche nach der
Fehlerursache sein. ;-)

mfg
Josef


EPT: (Access Error Prevention Table) http://access.joposol.com/
FAQ: (Access-FAQ von Karl Donaubauer) http://www.donkarl.com/

Ähnliche fragen