Private Sub Form_Load()
Dim db As Database, rs As Recordset
Dim anz&, i%
Dim tvwName As Node, tvwOrt As Node, tvwLand As Node, tvwPlus As Node
Dim strName As String, strOrt As String
Set db = CurrentDb()
Set rs = db.OpenRecordset("testabfrage2", dbOpenSnapshot)
rs.MoveLast
anz = rs.RecordCount
rs.MoveFirst
For i = 1 To anz
With Me.tvwtest.Nodes
If strName <> rs("Name") Then
Und hier sagt er dann immer: Laufzeitfehler 3265
Element in dieser Auflistung nicht gefunden
Set tvwName = .Add(tvwPlus, rs("Name"))
tvwName.Image = 1
strName = rs("Name")
End If
If strOrt <> rs("Ort") Then
Set tvwOrt = .Add(tvwName, tvwPlus, , rs("Ort"))
tvwOrt.Image = 2
strOrt = rs("Ort")
End If
Set tvwLand = .Add(tvwOrt, tvwPlus, rs("Land"))
tvwLand.Image = 3
End With
rs.MoveNext
Next i
End Sub
Die Hürde will ich erstmal schaffen...aber leider werd ich aus den blöden Fehleranzeigen (siehe oben Zeile 14) nicht schlau. Sind bestimmt noch mehr Fehler drin...aber aus fehlern lernt man ja...nich wahr? *g*