Office: (Office 2003) TreeView

Helfe beim Thema TreeView in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; habe da noch eine Frage, beim NodeClick Ereignis werden einige Textfelder ordentlich gefüllt, nur bei dem Textfeld xxtTyp wird mir ein Wert angezeigt... Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von Erich290607, 31. Mai 2009.

Seite 2 von 7

ERICH290607

Erich290607

TreeView

habe da noch eine Frage, beim NodeClick Ereignis werden einige Textfelder ordentlich gefüllt, nur bei dem Textfeld xxtTyp wird mir ein Wert angezeigt nicht der Text, im Abfragefenster ist aber ein Text im Feld Typ.

was kann ich da machen?

Code:

Dim oRs As DAO.Recordset

If Left(Node.Key, 1) = "Q" Then
xxtQB = CInt(Mid(Node.Key, 2))

' Alles in TextBoxen anzeigen
sSql = "SELECT tbl_Beanstandung.BeanstandungID, tbl_Beanstandung.fiArtikel, tbl_Beanstandung.fiLieferant, " & _
"tbl_Beanstandung.fiPerson, tbl_Beanstandung.fiFehlerklasse, tbl_Beanstandung.fiFehlertext, " & _
"tbl_Beanstandung.fiSachb, tbl_Beanstandung.AusgabeDatum, tbl_Artikel.Sachnummer_Text, tbl_Artikel.Sachnummer, " & _
"tbl_Fehlertexte.Fehlertext, tbl_Beanstandung.Problemnummer, qryBeanstandungen.FormatierteNummer," & _
"tbl_Beanstandung.Menge_Anzahl,tbl_Artikel.Typ, qryBeanstandungen.SAnrede, qryBeanstandungen.SName " & _
"FROM ((tbl_Beanstandung INNER JOIN tbl_Artikel ON tbl_Beanstandung.fiArtikel = tbl_Artikel.ArtikelID) " & _
"INNER JOIN tbl_Fehlertexte ON tbl_Beanstandung.fiFehlertext = tbl_Fehlertexte.FehlertextID) " & _
"INNER JOIN qryBeanstandungen ON tbl_Beanstandung.BeanstandungID = qryBeanstandungen.BeanstandungID " & _
" WHERE tbl_Beanstandung.BeanstandungID= " & xxtQB

Set oRs = CurrentDb.OpenRecordset(sSql)

If oRs.EOF Then
xxtSachnummer = ""
xxtBezeichnung = ""
xxtFehlertext = ""
xxtVorgelagert = ""
xxtProblemnummersys = ""
xxtAnzahl = ""
xxtTyp = ""
xxtVerantwortlich = ""

Else
xxtSachnummer = Nz(oRs!Sachnummer, "")
xxtBezeichnung = Nz(oRs!Sachnummer_Text, "")
xxtFehlertext = Nz(oRs!Fehlertext, "")
xxtVorgelagert = Nz(oRs!FormatierteNummer, "")
xxtProblemnummersys = Nz(oRs!Problemnummer, "")
xxtAnzahl = Nz(oRs!Menge_Anzahl, "")
xxtTyp = Nz(oRs!Typ, "")
xxtVerantwortlich = Nz(oRs!SAnrede, "") & " " & Nz(oRs!SName, "")

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

Erich290607, 7. Juni 2009

#16
J_EILERS

J_Eilers

Zu #15: Verändere doch den Text des Parents, wenn du die Child anfügst.

Zu #16: Was gibt denn Debug.Print oRs!Typ zurück?

J_Eilers, 7. Juni 2009

#17
ERICH290607

Erich290607

Zu #15: Verändere doch den Text des Parents, wenn du die Child anfügst.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hallo Jan,

welchen Text #15 ?

Debug.Print oRs!Typ, gibt eine Ziffer zurück!

Gruß
Erich

Erich290607, 7. Juni 2009

#18
J_EILERS

J_Eilers

TreeView

#15 Du durchläufst doch in einer Schleife die Nodes, die als Child angehangen werden. Damit weißt du wieviele es sind und an welchem Node sie hängen. Also zählen und dann Node.Parent.Text = Node.Parent.Text & Anzahl & " Dein Text"

#16 Dann macht Access das was du ihm sagst. Steht in der Abfrage denn auch in der Typ Spalte eine Zahl oder ein Text?

J_Eilers, 8. Juni 2009

#19
ERICH290607

Erich290607

von J_Eilers

#15 Du durchläufst doch in einer Schleife die Nodes, die als Child angehangen werden. Damit weißt du wieviele es sind und an welchem Node sie hängen. Also zählen und dann Node.Parent.Text = Node.Parent.Text & Anzahl & " Dein Text"
kannst du mir den Code dazu mal etwas näher beschreiben?
per iCount oder wie habe ich noch nie gemacht!
#16 Dann macht Access das was du ihm sagst. Steht in der Abfrage denn auch in der Typ Spalte eine Zahl oder ein Text?
Ja, in der Spalte der Abfrage steht eben ein Text!

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

ich glaube dafür muss ich noch eine Beziehung einbinden, die tbl_Typ ist ein Kombinationsfeld, daran könnte es wohl liegen.

Gruß
Erich

Zuletzt von einem Moderator bearbeitet: 7. Januar 2021

Erich290607, 8. Juni 2009

#20
J_EILERS

J_Eilers

Kombifelder auf Tabellenebene? *eek.gif* So etwas sollte man tunlichst unterlassen.

Wie fügst du denn jetzt die QBA's ein?

J_Eilers, 8. Juni 2009

#21
ERICH290607

Erich290607

Wie fügst du denn jetzt die QBA's ein?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

noch nicht über das "neue Form", das heißt auch nicht über das alte Form
sondern wird nur für die Erfassung von Artikel verwendet! Melde mich später noch einmal dazu!

PS zählen und dann Node.Parent.Text = Node.Parent.Text & Anzahl & " Dein Text"
kannst du mir den Code dazu mal etwas näher beschreiben?

Gruß
Erich

Erich290607, 8. Juni 2009

#22
J_EILERS

J_Eilers

TreeView

Node.Parent spricht den übergeordneten Node an. Und .Text ist der Text, den du siehst. Mit .Text = .Text & "1" fügst du eine 1 an den bestehenden Text an.

J_Eilers, 8. Juni 2009

#23
ERICH290607

Erich290607

ich hänge damit, bzw. tu mich schwer damit
bei mir wird die QBA hinten angehängt, nicht gezählt!

Code:

'Alle Beanstandungen

sSql = "SELECT DISTINCT tbl_Beanstandung.fiLieferant, tbl_Beanstandung.fiArtikel, " & _
"tbl_Beanstandung.fiSachb, tbl_Sachbearbeiter.SachbearbeiterID, tbl_Beanstandung.BeanstandungID, " & _
"tbl_Beanstandung.AusgabeDatum, qryBeanstandungen.FormatierteNummer " & _
"FROM (qryBeanstandungen INNER JOIN tbl_Beanstandung " & _
"ON qryBeanstandungen.BeanstandungID = tbl_Beanstandung.BeanstandungID) " & _
"INNER JOIN tbl_Sachbearbeiter ON tbl_Beanstandung.fiSachb = tbl_Sachbearbeiter.SachbearbeiterID " & _
"ORDER BY tbl_Beanstandung.BeanstandungID "

'sSql = "SELECT COUNT(*)AS iCount FROM tblBeanstandung " & _
' "WHERE BeanstandungID LIKE " & strFormat_Text
' Set oRs = CurrentDb.OpenRecordset(sSql, dbOpenSnapshot)
' ids = oRs!iCount
' oRs.Close

'Debug.Print ids

Set rst = CurrentDb.OpenRecordset(sSql, dbOpenSnapshot)

Do While Not rst.EOF
Set Nod = objQB.Nodes.Add(relative:="S" & (rst!SachbearbeiterID) & "T" & (rst!AusgabeDatum) & "B" & CStr(rst!fiSachb) & "L" & CStr(rst!fiLieferant), _
Relationship:=4, _
Key:="Q" & (rst!BeanstandungID), _
Text:=rst!FormatierteNummer & Anzahl & "(" & rst!FormatierteNummer & ")", _
Image:=3)
Nod.ForeColor = vbRed
rst.MoveNext
Loop
rst.Close
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Erich290607, 8. Juni 2009

#24
J_EILERS

J_Eilers

Sorry jetzt versteh ich gar nichts mehr *confused.gif*

J_Eilers, 8. Juni 2009

#25
ERICH290607

Erich290607

Sorry, ich habs ja auch nicht verstanden

was du mir da erläutern wolltest!

zählen und dann Node.Parent.Text = Node.Parent.Text & Anzahl & " Dein Text"

Erich290607, 8. Juni 2009

#26
J_EILERS

J_Eilers

Gehe ich recht in der Annahme, dass du nach dem letzten Durchlauf der Schleife weißt, wie hoch die Anzahl der QBA's ist?

J_Eilers, 8. Juni 2009

#27
ERICH290607

Erich290607

TreeView

bis eine neu hinzugfügt wird eigentlich ja

Erich290607, 8. Juni 2009

#28
J_EILERS

J_Eilers

Eigentlich? Wenn ich dich richtig verstehe:

Code:

Dim lCount As Long
Set rst = CurrentDb.OpenRecordset(sSql, dbOpenSnapshot)

Do While Not rst.EOF
Set Nod = objQB.Nodes.Add(relative:="S" & (rst!SachbearbeiterID) & "T" & (rst!AusgabeDatum) & "B" & CStr(rst!fiSachb) & "L" & CStr(rst!fiLieferant), _
Relationship:=4, _
Key:="Q" & (rst!BeanstandungID), _
Text:=rst!FormatierteNummer & Anzahl & "(" & rst!FormatierteNummer & ")", _
Image:=3)
Nod.ForeColor = vbRed
lCount = Anzahl
rst.MoveNext
Loop
rst.Close

Nod.Parent.Text = Nod.Parent.Text & Anzahl & " QBAs"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

J_Eilers, 8. Juni 2009

#29
ERICH290607

Erich290607

Sorry, ich nochmal aber bei mir bekomme ich immer 0 als Anzahl

Mein Code:

Code:

' Verantwortlich

sSql = "SELECT DISTINCT tbl_Beanstandung.fiLieferant, tbl_Beanstandung.fiSachb, tbl_Sachbearbeiter.Bereich, " & _
"tbl_Beanstandung.AusgabeDatum, tbl_Sachbearbeiter.SAnrede, tbl_Sachbearbeiter.SName, " & _
"tbl_Sachbearbeiter.SachbearbeiterID " & _
"FROM tbl_Beanstandung LEFT JOIN tbl_Sachbearbeiter " & _
"ON tbl_Beanstandung.fiSachb = tbl_Sachbearbeiter.SachbearbeiterID "

Dim lCount As Long
Set rst = CurrentDb.OpenRecordset(sSql, dbOpenSnapshot)

Do While Not rst.EOF
Set Nod = objQB.Nodes.Add(relative:="T" & (rst!AusgabeDatum) & "B" & CStr(rst!fiSachb) & "L" & CStr(rst!fiLieferant), _
Relationship:=4, _
Key:="S" & CStr(rst!SachbearbeiterID) & "T" & (rst!AusgabeDatum) & "B" & CStr(rst!fiSachb) & "L" & CStr(rst!fiLieferant), _
Text:="Verantwortlich: " & rst!SAnrede & "-" & rst!SName & " (" & Anzahl & ")", _
Image:=2)
lCount = Anzahl
rst.MoveNext
Loop
rst.Close
Debug.Print Anzahl
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

hat noch jemand einen Tip dazu?

Erich290607, 9. Juni 2009

#30

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

Seite 2 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