Office: (Office 2003) TreeView

Helfe beim Thema TreeView in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; Für die Klammern ist diese Stelle verantwortlich: Code: ' Verantwortlich 'hier möchte ich die Anzahl der QBA anzeigen sSQL = "SELECT DISTINCT... Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von Erich290607, 31. Mai 2009.

Seite 4 von 7

J_EILERS

J_Eilers

TreeView

Für die Klammern ist diese Stelle verantwortlich:

Code:

' Verantwortlich 'hier möchte ich die Anzahl der QBA anzeigen
sSQL = "SELECT DISTINCT tbl_Beanstandung.fiLieferant, tbl_Beanstandung.fiSachb, tbl_Sachbearbeiter.Bereich, " & _
sSQL = sSQL & "tbl_Beanstandung.AusgabeDatum, tbl_Sachbearbeiter.SAnrede, tbl_Sachbearbeiter.SName, " & _
sSQL = sSQL & "tbl_Sachbearbeiter.SachbearbeiterID " & _
sSQL = sSQL & "FROM tbl_Beanstandung LEFT JOIN tbl_Sachbearbeiter " & _
sSQL = sSQL & "ON tbl_Beanstandung.fiSachb = tbl_Sachbearbeiter.SachbearbeiterID "
Set rst = DBEngine(0)(0).OpenRecordset(sSQL, dbOpenForwardOnly)

Do While Not rst.EOF
Set n = objQB.Nodes.Add("T" & (rst!AusgabeDatum) & "B" & CStr(rst!fiSachb) & "L" & CStr(rst!fiLieferant), _
tvwChild, "S" & CStr(rst!SachbearbeiterID) & "T" & (rst!AusgabeDatum) & "B" & CStr(rst!fiSachb) & "L" & CStr(rst!fiLieferant), _
"Verantwortlich: " & rst!SAnrede & "-" & rst!SName, 2)

'Zählen der dazugehörenden Datensätze
sSQL = "SELECT Count(*) FROM tbl_Beanstandungen WHERE fiSachb = " & rst!SachbearbeiterID
sSQL = sSQL & " And AusgabeDatum = " & Format(rst!AusgabeDatum, "\#yyyy\-mm\-dd\#")
'Übergeben an den Nodetext
Set n.Text = n.Text & " ( " & DBEngine(0)(0).OpenRecordset(sSQL, dbOpenForwardOnly)(0) & " ) " '
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

J_Eilers, 10. Juni 2009

#46
ERICH290607

Erich290607

irgendwie habe ich das noch nicht drauf!

Beanstandung = (FormatierteNummer) = Text
Bsp. QBA 022_010108_1

BeanstandungID wollte Access eine Variable deklariert haben > dann habe ich es mit der FormatiertenNummer probiert, das gleiche

FormatierteNummer als String deklariert nun kommt Eigenschaftwert ungültig

Was läuft noch falsch?

Erich290607, 10. Juni 2009

#47
J_EILERS

J_Eilers

In welcher Zeile? Bei Set ... ListItems.Add?

J_Eilers, 10. Juni 2009

#48
ERICH290607

Erich290607

TreeView

Code:

Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim objListView As ListView
Dim objListItem As ListItem
Dim FormatierteNummer As String

Set db = CurrentDb

Set rst = db.OpenRecordset("queListe", dbOpenSnapshot)

Set objListView = Me!GridlisteQB.Object
Me.GridlisteQB.ListItems.Clear
Me.GridlisteQB.Refresh
Do While Not rst.EOF
Set objListItem = objListView.ListItems.Add(, "a" & rst!BeanstandungID, "a" & FormatierteNummer)
>>>>>objListItem.SubItems(1) = rst!Beanstandung
objListItem.SubItems(2) = rst!Lieferant
objListItem.SubItems(3) = rst!AusgabeDatum
'End With
rst.MoveNext
Loop

rst.Close
Set rst = Nothing
Set db = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Erich290607, 10. Juni 2009

#49
J_EILERS

J_Eilers

Wieviele Spalten hat dein ListView? Hast du die vorher schon initialisiert?

J_Eilers, 10. Juni 2009

#50
ERICH290607

Erich290607

von J_Eilers

Wieviele Spalten hat dein ListView? Hast du die vorher schon initialisiert?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ups ?

Spalten initialisiert?

Zuletzt von einem Moderator bearbeitet: 7. Januar 2021

Erich290607, 10. Juni 2009

#51
J_EILERS

J_Eilers

Entweder mit Doppelclick auf das Listview in den Eigenschaften die Spalten einstellen oder halt per VBA (Me!LV.Object.Columnheaders.Add()). Mehr morgen, jetzt mach ich erstmal Feierabend.

J_Eilers, 10. Juni 2009

#52
ERICH290607

Erich290607

TreeView

ja, bin gerade drauf gekommen du warst etwas schneller, nur ich bekomme
noch lauter a a a a a
a
a

in die Liste

Code:

GridlisteQB.ListItems.Clear
' Spaltenaufschriften und -breiten festlegen
With GridlisteQB.ColumnHeaders
.Clear
.Add , , "Nr", 0
.Add , , "Beanstandung", 1700
.Add , , "Lieferant", 2000
.Add , , "AusgabeDatum", 3000
End With
' Spaltenaufschriften einblenden
Me!GridlisteQB.HideColumnHeaders = False

' positionen aus tabelle lesen

Set db = CurrentDb

Set rst = db.OpenRecordset("queListe", dbOpenSnapshot)

Set objListView = Me!GridlisteQB.Object
Me.GridlisteQB.ListItems.Clear
Me.GridlisteQB.Refresh
Do While Not rst.EOF
Set objListItem = objListView.ListItems.Add(, "a" & rst!BeanstandungID, "a" & FormatierteNummer)
objListItem.SubItems(1) = rst!Beanstandung
objListItem.SubItems(2) = rst!Lieferant
objListItem.SubItems(3) = rst!AusgabeDatum
'End With
rst.MoveNext
Loop GridlisteQB.ListItems.Clear
' Spaltenaufschriften und -breiten festlegen
With GridlisteQB.ColumnHeaders
.Clear
.Add , , "Nr", 0
.Add , , "Beanstandung", 1700
.Add , , "Lieferant", 2000
.Add , , "AusgabeDatum", 3000
End With
' Spaltenaufschriften einblenden
Me!GridlisteQB.HideColumnHeaders = False

' positionen aus tabelle lesen

Set db = CurrentDb

Set rst = db.OpenRecordset("queListe", dbOpenSnapshot)

Set objListView = Me!GridlisteQB.Object
Me.GridlisteQB.ListItems.Clear
Me.GridlisteQB.Refresh
Do While Not rst.EOF
Set objListItem = objListView.ListItems.Add(, "a" & rst!BeanstandungID, "a" & FormatierteNummer)
objListItem.SubItems(1) = rst!Beanstandung
objListItem.SubItems(2) = rst!Lieferant
objListItem.SubItems(3) = rst!AusgabeDatum
'End With
rst.MoveNext
Loop
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Erich290607, 10. Juni 2009

#53
ERICH290607

Erich290607

mit diesem Code, erreichen ich ein Fehlerhaftes füllen meiner ListView ?

Code:

Public Sub GridlisteQB_Laden()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim objListView As ListView
Dim objListItem As ListItem
Dim FormatierteNummer As String

GridlisteQB.ListItems.Clear
' Spaltenaufschriften und -breiten festlegen
With GridlisteQB.ColumnHeaders
.Clear
.Add , , "Nr", 0
.Add , , "Beanstandung", 1700
.Add , , "Lieferant", 2000
.Add , , "AusgabeDatum", 3000
End With
' Spaltenaufschriften einblenden
Me!GridlisteQB.HideColumnHeaders = True

' positionen aus tabelle lesen

Set db = CurrentDb

Set rst = db.OpenRecordset("queListe", dbOpenSnapshot)

Set objListView = Me!GridlisteQB.Object
Me.GridlisteQB.ListItems.Clear
Me.GridlisteQB.Refresh
Do While Not rst.EOF
Set objListItem = objListView.ListItems.Add(, "a" & rst!BeanstandungID, "a" & FormatierteNummer)
objListItem.SubItems(1) = rst!Beanstandung
objListItem.SubItems(2) = rst!Lieferant
objListItem.SubItems(3) = rst!AusgabeDatum
'End With
rst.MoveNext
Loop

rst.Close
Set rst = Nothing
Set db = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Erich290607, 10. Juni 2009

#54
J_EILERS

J_Eilers

Ich würde inzwischen einfach das Minibeispiel vorziehen. Oder du versuchst es mit diesem Beispiel von mir. Es ist allerdings noch unkommentiert.

J_Eilers, 10. Juni 2009

#55
ERICH290607

Erich290607

Hallo Jan,

Danke für deine Hilfen! soweit habe ich es nun auch hinbekommen

mein kompletter Code ab Node Click sieht nun so aus:
Datenfelder werden in der Function GetFld auf NullString geprüft

Code:

'------------------------------------------
'bei Clickereignis auf Lieferant Node
If Left(Node.Key, 1) = "L" Then
xxtBereich = CInt(Mid(Node.Key, 2))
'------------------------------------------
sSQL = "SELECT DISTINCT tbl_Beanstandung.BeanstandungID,tbl_Beanstandung.Problemnummer, qryQBNummer.FormatierteNummer AS Beanstandung, " & _
"tbl_Lieferanten.Lieferant_Name AS Lieferant, [SAnrede] & ' ' & [SName] AS Verantwortlich, " & _
"tbl_Sachbearbeiter.Bereich, tbl_Beanstandung.AusgabeDatum, tbl_Artikel.Sachnummer AS Teilenummer, " & _
"tbl_Artikel.Sachnummer_Text AS Bezeichnung, tbl_Beanstandung.Menge_Anzahl, tbl_Fehlertexte.Fehlertext,'B' & CStr([fiSachb]) & 'L' & CStr([fiLieferant]) & 'S' & CStr([fiSachb]) AS Krit, " & _
"tbl_Beanstandung.fiLieferant " & _
"FROM ((((tbl_Beanstandung INNER JOIN tbl_Artikel ON tbl_Beanstandung.fiArtikel = tbl_Artikel.ArtikelID) " & _
"INNER JOIN tbl_Sachbearbeiter ON tbl_Beanstandung.fiSachb = tbl_Sachbearbeiter.SachbearbeiterID) " & _
"INNER JOIN tbl_Lieferanten ON tbl_Beanstandung.fiLieferant = tbl_Lieferanten.LieferantID) " & _
"INNER JOIN qryQBNummer ON tbl_Beanstandung.BeanstandungID = qryQBNummer.BeanstandungID) " & _
"INNER JOIN tbl_Fehlertexte ON tbl_Beanstandung.fiFehlertext = tbl_Fehlertexte.FehlertextID " & _
"WHERE tbl_Beanstandung.fiLieferant= " & xxtBereich
'"WHERE ((('B' & CStr([fiSachb]) & 'L' & CStr([fiLieferant]) & 'S' & CStr([fiSachb])) = fn_GruppeNr()))"

CurrentDb.QueryDefs("queListe").SQL = sSQL
GridlisteQB_Laden

End If
On Error GoTo 0
Exit Sub

End Sub

Public Sub GridlisteQB_Laden()
Dim Db As DAO.Database
Dim rst As DAO.Recordset
Dim objListView As ListView
Dim objListItem As ListItem
Dim FormatierteNummer As String
Dim i As Long

GridlisteQB.ListItems.Clear
' Spaltenaufschriften und -breiten festlegen
Dim LHeader As ColumnHeader
Dim LWidth As Integer

With GridlisteQB.ColumnHeaders
.Clear
LWidth = GridlisteQB.Width - 15
Set LHeader = GridlisteQB.ColumnHeaders.Add(1, , "Beanstandung", LWidth / 5)
Set LHeader = GridlisteQB.ColumnHeaders.Add(2, , "Problemnummer", LWidth / 8)
Set LHeader = GridlisteQB.ColumnHeaders.Add(3, , "Ausgabe", LWidth / 6)
Set LHeader = GridlisteQB.ColumnHeaders.Add(4, , "Bereich", LWidth / 8)
Set LHeader = GridlisteQB.ColumnHeaders.Add(5, , "Teilenummer", LWidth / 8)
Set LHeader = GridlisteQB.ColumnHeaders.Add(6, , "Bezeichnung", LWidth / 8)
Set LHeader = GridlisteQB.ColumnHeaders.Add(7, , "Verantwortlich", LWidth / 8)
Set LHeader = GridlisteQB.ColumnHeaders.Add(8, , "Problem", LWidth / 8)
End With

' Spaltenaufschriften einblenden
Me!GridlisteQB.HideColumnHeaders = False

GridlisteQB.View = lvwReport
GridlisteQB.LabelEdit = lvwAutomatic
GridlisteQB.FullRowSelect = True
GridlisteQB.GridLines = True

'Abfragetab öffnen
Set Db = CurrentDb

Set rst = Db.OpenRecordset("queListe", dbOpenSnapshot)

Set objListView = Me!GridlisteQB.Object
Me.GridlisteQB.ListItems.Clear
Me.GridlisteQB.Refresh
Do While Not rst.EOF

'positionen aus tabelle lesen
Set objListItem = objListView.ListItems.Add(, , GetFld(rst.Fields("Beanstandung")), 3)
objListItem.SubItems(1) = GetFld(rst!Problemnummer)
objListItem.SubItems(2) = GetFld(rst!AusgabeDatum)
objListItem.SubItems(3) = GetFld(rst!Bereich)
objListItem.SubItems(4) = GetFld(rst!Teilenummer)
objListItem.SubItems(5) = GetFld(rst!Bezeichnung)
objListItem.SubItems(6) = GetFld(rst!Verantwortlich)
objListItem.SubItems(7) = GetFld(rst!Fehlertext)

'End With
rst.MoveNext
Loop

rst.Close
Set rst = Nothing
Set Db = Nothing
End Sub

' DB-Felder auf NullString überprüfen
Private Function GetFld(Field As Variant) As String

If IsNull(Field) Then
GetFld = ""
Else
GetFld = Field
End If

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

deine Meinung dazu würde mich schon interessieren!
wie bekomme ich da nun noch ein Icon rein?

Erich290607, 11. Juni 2009

#56
ERICH290607

Erich290607

soweit so gut, nun möchte ich natürlich noch weiteres einbauen

1. bei Klick im ListView soll der Datensatz auch in den Textfeldern angezeigt werden. Über TreeView funktioniert es schon
2. Neue Datensätze anlegen
3. Unter jeder QBA wenn vorhanden eine dazugehörige Notiz anhängen

Mein Code für die Icon im ListView sieht so aus, funktioniert das auch unter 97?

wer hift mir weiter bei Punkt 1-3 ?
Code:

Dim Db As DAO.Database
Dim rst As DAO.Recordset

Dim objListView As ListView
Dim objListItem As ListItem

GridlisteQB.ListItems.Clear
' Spaltenaufschriften und -breiten festlegen
Dim LHeader As ColumnHeader
Dim LWidth As Integer

With GridlisteQB.ColumnHeaders
.Clear
LWidth = GridlisteQB.Width - 15
Set LHeader = GridlisteQB.ColumnHeaders.Add(1, , "Nr", LWidth / 100000)
Set LHeader = GridlisteQB.ColumnHeaders.Add(2, , "Beanstandung", LWidth / 5)
Set LHeader = GridlisteQB.ColumnHeaders.Add(3, , "Problemnummer", LWidth / 8)
Set LHeader = GridlisteQB.ColumnHeaders.Add(4, , "Ausgabe", LWidth / 6)
Set LHeader = GridlisteQB.ColumnHeaders.Add(5, , "Bereich", LWidth / 8)
Set LHeader = GridlisteQB.ColumnHeaders.Add(6, , "Teilenummer", LWidth / 8)
Set LHeader = GridlisteQB.ColumnHeaders.Add(7, , "Bezeichnung", LWidth / 8)
Set LHeader = GridlisteQB.ColumnHeaders.Add(8, , "Verantwortlich", LWidth / 8)
Set LHeader = GridlisteQB.ColumnHeaders.Add(9, , "Problem", LWidth / 8)
End With

' Spaltenaufschriften einblenden
Me!GridlisteQB.HideColumnHeaders = False

' Darstellung: Details
GridlisteQB.View = lvwReport
GridlisteQB.FullRowSelect = True
' Abbildungsliste zuordnen

'Abfragetab öffnen
Set Db = CurrentDb

Set rst = Db.OpenRecordset("queListe", dbOpenSnapshot)
Set objListView = Me!GridlisteQB.Object

Me.GridlisteQB.ListItems.Clear
Me.GridlisteQB.Refresh

Do While Not rst.EOF

'positionen aus tabelle lesen
Set objListItem = objListView.ListItems.Add(, , GetFld(rst.Fields("BeanstandungID")), 3)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Erich290607, 12. Juni 2009

#57
J_EILERS

J_Eilers

TreeView

1. bei Klick im ListView soll der Datensatz auch in den Textfeldern angezeigt werden. Über TreeView funktioniert es schon
2. Neue Datensätze anlegen
3. Unter jeder QBA wenn vorhanden eine dazugehörige Notiz anhängen

Mein Code für die Icon im ListView sieht so aus, funktioniert das auch unter 97?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

1) Ganz ehrlich: Woher soll ich wissen, wie da Werte in die Textfelder reinkomen? Ist das ein gebundenes Formular oder suchst du die Werte per Recordset zusammen?

2) Wo willst du denn neue DS anlegen? Im ListView direkt? Geht nicht.

3) Äh wo soll eine Notiz hin?

Keine Ahnung, konvertier die DB doch einfach mal runter und versuchs. Hier sitzt keiner vor deinem Rechner und wenn du deine Probleme nicht entsprechend beschreibst, ist eine Lösung über Ferndiagnose äußerst anstregend.

J_Eilers, 14. Juni 2009

#58
ERICH290607

Erich290607

mittlerweile habe ich ein weiteres TreeView eingebunden (Übersicht Artikel)

hieraus soll ein Artikel ausgewählt werden, und die Textfelder damit füllen
Problem ergänzen, Lieferant auswählen und DS anlegen. Was dabei zu berücksichtigen wäre ist eine Formatierte laufende Nummer 01- xxxx im Jahr

TreeView ausblenden und das erste aktualisieren so das der aktuell hinzugefügte DS selektiert wird

evtl. kann ich heute Abend mal die DB konvertieren.

Gruß
Erich

Erich290607, 15. Juni 2009

#59
J_EILERS

J_Eilers

Tut mir leid, ohne eine bessere Beschreibung und ein Beispiel steig ich hier aus. Denn die Zusammenhänge sind mir absolut nicht klar.

J_Eilers, 15. Juni 2009

#60

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 4 von 7

Thema:

TreeView

Die Seite wird geladen...

TreeView - Similar Threads - TreeView
Listenfeld per Doppel Klick in Treeview füllen
in Microsoft Access Hilfe
Listenfeld per Doppel Klick in Treeview füllen: Hallo an alle, ich habe folgendes Problem. Ich möchte ein einfaches Listenfeld per Doppelklick in einem Treeview füllen. Das SelectedItem des Treeview wird in ein Label übergeben und in den...
Treeview... suche Tipps, Literatur, Beispiele & Erklärungen
in Microsoft Access Hilfe
Treeview... suche Tipps, Literatur, Beispiele & Erklärungen: Hallo zusammen, ich möchte mich etwas intensiver mit dem Thema Treeviews befassen und suche Weblinks, Beispiele oder frei zugängliche Literatur dazu. Ziel ist es Daten aus zwei Tabellen...
TreeView umstricken
in Microsoft Access Hilfe
TreeView umstricken: Moin allerseits, nach langen will ich mich mal wieder an einer Bastelarbeit versuchen. Bin aber total raus aus der Materie. Hab was in der DB Wiki gefunden was ich gerne hätte. Nämlich eine...
TreeView-Alternative mit MS-Bordmitteln
in Microsoft Access Hilfe
TreeView-Alternative mit MS-Bordmitteln: Hallo zusammen, da ich seit letztem Jahr auch viele Probleme mit dem MS-TreeView habe und nach Alternativen gesucht habe, hier eine freie TreeView-Alternative, die vollständig mit MS-Boardmitteln...
Treeview funktioniert nicht mehr ( nicht registriert)
in Microsoft Access Hilfe
Treeview funktioniert nicht mehr ( nicht registriert): Hallo, Ich habe hier ein RIESEN Problem. Seit heute Morgen funktionieren keine TreeViews mehr. Wir haben mehrere verschiedene Datenbanken auf unterschiedlichen Rechnern im Netzwerk. Die...
TreeView-Steuerelement mit einer großen Anzahl von Knoten bewirkt eine Ausnahme in Access
in Microsoft Access Tutorials
TreeView-Steuerelement mit einer großen Anzahl von Knoten bewirkt eine Ausnahme in Access: TreeView-Steuerelement mit einer großen Anzahl von Knoten bewirkt eine Ausnahme in Access Access für Microsoft 365 Mehr... Weniger...
Treeview in Excel 2013 32bit nicht verfügbar?
in Microsoft Excel Hilfe
Treeview in Excel 2013 32bit nicht verfügbar?: Hallo, wollte mir eine Treeview in eine Userform basteln- ich kann mich dunkel daran erinnern, dass es Anfang des Jahres, als ich anfing mich mit der ganzen VBA - Geschichte zu beschäftigen,...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden