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:
Wo liegt eim Problem?
Gruß
andy
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
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 271712
Url: https://administrator.de/contentid/271712
Ausgedruckt am: 22.11.2024 um 22:11 Uhr
1 Kommentar