Acc 07 TreeView

02/11/2009 - 15:49 von Andreas Ahrens | Report spam
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
 

Lesen sie die antworten

#1 Thomas Ehlert
02/11/2009 - 16:37 | Warnen spam
Mach einfach ein Select per Inner Join auf beide Tabellen und
gib das Ganze am Stück aus.

Gruß
Thomas

"Andreas Ahrens" schrieb im
Newsbeitrag news:
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

Ähnliche fragen