andyah
Goto Top

Access 2010 - Treeview Probleme bei doppelten Namen

Hi NG,

ich habe beim Anzeigen von Inhalten aus einem TreeView das Problem, dass bei doppelten Nachnamen aber verschiedenen Vorname nur der erste Vorname angezeigt wird. Es word Access 2010 eingesetzt.

Hier der Code:

Sub einlesen()
   Dim nodex As Node
   Set db = CurrentProject.Connection
   Set rs = New ADODB.Recordset
   
   rs.Open (SqlString), db, adOpenStatic, adLockPessimistic
   
   Set nodX = TreeView0.Nodes.Add(, , "a1", "Namen")  
   
   While Not rs.EOF
      'If rs.Fields("Nachname") > 0 Then  
          Set nodex = TreeView0.Nodes.Add("a1", tvwChild, "k" & CStr(rs.Fields("AdrID")), CStr(rs.Fields("Nachname")))  
      'End If  
      rs.MoveNext
   Wend
   rs.Close
   db.Close
   
 End Sub

Private Sub TreeView0_NodeClick(ByVal Node As Object)
'On Error GoTo ende  
rs.Filter = 0
'beim Klicken auf einen Namen  
    Dim daten As String
    Set db = CurrentProject.Connection
    Set rs = New ADODB.Recordset
    
    rs.Open (SqlString), db
    
    
      
    'Klick auf Root abfangen  
    If Node.Parent Is Nothing Then Exit Sub
    
    'Schlüssel des Root  
    If Node.Parent.Key = "a1" Then 'Kunden  
    
        'ausgewählten Namen filtern  
        rs.Filter = "Nachname = '" & TreeView0.SelectedItem.Text & "'"  
        MsgBox (CStr(rs.Fields("Vorname")))  
        
        
    End If
    rs.Close
    db.Close
 End Sub

Wo liegt eim Problem?

Gruß
andy

Content-ID: 271712

Url: https://administrator.de/contentid/271712

Ausgedruckt am: 22.11.2024 um 22:11 Uhr

AndyAh
AndyAh 11.05.2015 um 12:25:26 Uhr
Goto Top
Hi NG,

hab's selbst hinbekommen.

Gruß
Andy