title image


Smiley Laufzeit Fehlermeldung bei TreeView-Aufbau
Hallo liebe Experten,



Habe Die Fehlermeldung (-2147417848: Die Methode 'Add' für das Objekt 'INodes' ist fehlgeschlagen) immer, wenn ich ein TreeView neu aufbaue. Allerdings tritt dieser Fehler nur sporatisch auf.



Hier ein Code-Ausschnitt:



Dim parentName As String

Dim mnode As node

Dim addnode As node



Set objListImage = Me!ImageList9

Set Treenav = Me!TreeView

Set db = CurrentDb()



Treenav.Nodes.Clear

Treenav.Sorted = False



Treenav.Nodes.Clear



'Add the primary node

Set mnode = Treenav.Nodes.Add()

mnode.Text = "3SMitarbeiter" 'Nz(Me!MI_Unterfrm_Kontakt("Nachname"), "kein Name")

mnode.Key = "M§" + Str(Me.Mita_ID)



xSQL = "SELECT tblProjekte.PROJ_ID, tblProjekte.PROJ_Name, tbl_Mitarbeiter.Mita_ID"

xSQL = xSQL & " FROM tblProjekte INNER JOIN (tbl_Mitarbeiter INNER JOIN tbl_DETAIL_Projekte_Mitarbeiter ON tbl_Mitarbeiter.Mita_ID = tbl_DETAIL_Projekte_Mitarbeiter.FK_MITARBEITER) ON tblProjekte.PROJ_ID = tbl_DETAIL_Projekte_Mitarbeiter.FK_PROJEKTE"

xSQL = xSQL & " WHERE (((tbl_Mitarbeiter.Mita_ID)=" & Me.Mita_ID & "));"



' Add top level node objects to TreeView control

Set rst = db.OpenRecordset(xSQL)

If rst.RecordCount <= 0 Then Exit Sub

rst.MoveLast

rst.MoveFirst

Do While Not rst.EOF

Set nodnew = Treenav.Nodes.Add(Key:="K§" & CStr(rst!Proj_ID), Relationship:=tvwChild, Text:=Nz(rst!PROJ_Name, " - "))

'nodnew.ExpandedImage = "OneOpen"

rst.MoveNext

Loop

rst.Close

xSQL = ""





Kennt Ihr eine Lösung für das Problem?



Vielen Dank im Voraus!



Beste Grüße

Matthias

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: