Hi NG,

wei muß ich den unteren Code ändern, damit nur die Namen angezeigt werden,
die auch in der anderen Tabelle einen Eintrag haben?

Code:

Private Sub TreeViewFuellen()

Dim rsA As ADODB.Recordset
Dim rsB As ADODB.Recordset
Dim objNode As MSComctlLib.Node

Set objTreeView = Me.BriefAnsicht.Object

Set rsA = New ADODB.Recordset

rsA.Open ("dbo_Adressen"), CurrentProject.Connection

With objTreeView
Do While Not rsA.EOF
Set objNode = objTreeView.Nodes.Add()

With objNode
.Key = "nam" & rsA!AdressID
.Text = rsA!Nachname
End With

Set rsB = New ADODB.Recordset
rsB.Open ("SELECT * FROM dbo_Brief WHERE AdressID = " &
rsA!AdressID), CurrentProject.Connection
Do While Not rsB.EOF
objTreeView.Nodes.Add objNode, tvwChild, "brf" &
rsB!BriefID, rsB!Betreff
rsB.MoveNext
Loop

rsA.MoveNext
Loop
End With

rsA.Close
rsB.Close
End Sub

Gruß
Andy

Mach einfach ein Select per Inner Join auf beide Tabellen und
gib das Ganze am Stück aus.

Gruß
Thomas

"Andreas Ahrens" <AndreasAhrens*discussions.microsoft.com> schrieb im
Newsbeitrag news:B80777B0-00FC-4117-BEA8-BCB7BD2D9A50*microsoft.com...
> Hi NG,
>
> wei muß ich den unteren Code ändern, damit nur die Namen angezeigt werden,
> die auch in der anderen Tabelle einen Eintrag haben?
>
> Code:
>
> Private Sub TreeViewFuellen()
>
> Dim rsA As ADODB.Recordset
> Dim rsB As ADODB.Recordset
> Dim objNode As MSComctlLib.Node
>
> Set objTreeView = Me.BriefAnsicht.Object
>
> Set rsA = New ADODB.Recordset
>
> rsA.Open ("dbo_Adressen"), CurrentProject.Connection
>
> With objTreeView
> Do While Not rsA.EOF
> Set objNode = objTreeView.Nodes.Add()
>
> With objNode
> .Key = "nam" & rsA!AdressID
> .Text = rsA!Nachname
> End With
>
> Set rsB = New ADODB.Recordset
> rsB.Open ("SELECT * FROM dbo_Brief WHERE AdressID = " &
> rsA!AdressID), CurrentProject.Connection
> Do While Not rsB.EOF
> objTreeView.Nodes.Add objNode, tvwChild, "brf" &
> rsB!BriefID, rsB!Betreff
> rsB.MoveNext
> Loop
>
> rsA.MoveNext
> Loop
> End With
>
> rsA.Close
> rsB.Close
> End Sub
>
> Gruß
> Andy