Thema Datum  Von Nutzer Rating
Antwort
Rot Treeview mit Checkboxen anzeigen und speichern
 22.11.2006 21:14:55 NiK
NotSolved
23.11.2006 11:42:38 Rasta
NotSolved
23.11.2006 12:15:16 NiK
NotSolved
24.11.2006 12:03:37 NiK
NotSolved
27.11.2006 06:00:48 Rasta
NotSolved

Ansicht des Beitrags:
Von:
NiK		 Datum:
22.11.2006 21:14:55		 Views:
2239		 Rating:
     
Antwort:
  Ja
Thema:
Treeview mit Checkboxen anzeigen und speichern
Hallo
habe ein Problem. Ich versuche ein Treeview mit Checkboxen auszugeben. Der Treeview funktioniert soweit. Auch ist es möglich die angewählten Knoten auszulesen. Mein Problem ist aber ich würde gerne
die Auswahl der Checkboxen in der Tabelle abspeichern. Meine Idee dazu war, dass ich den Knotennamen mit dem Objekt in der Tabelle vergleiche und wenn sie übereinstimmen dann soll in die tabellenspalte true geschrieben werden. Aber es funktioniert nicht . Mein Code sieht folgendermaßen aus




Set rstObjekt = db.OpenRecordset("SELECT * From tab_objekt WHERE (((objekt_id )= " & Forms![frm_kunde1]![auswahl_objekt].ItemData(i) & " ));")

With objTreeview

Do While Not rstObjekt.EOF


Set objNode = objTreeview.Nodes.Add
With objNode
.Key = "objekt" & rstObjekt![objekt]
.Text = rstObjekt!objekt
End With

Set rstDokument = db.OpenRecordset _
("SELECT * FROM tab_dokument WHERE [objekt] = '" & rstObjekt![objekt] & "'")

Do While Not rstDokument.EOF

objTreeview.Nodes.Add "objekt" & rstObjekt![objekt], tvwChild, "dokument" _
& rstDokument![dokument], rstDokument![dokument]

rstDokument.MoveNext

Loop


rstObjekt.MoveNext

Loop
End With
Set objNode = Nothing

rstObjekt.Close

Set rstObjekt = Nothing

Set db = Nothing

End Sub



Private Sub Command1_Click()
Dim i As Integer
Dim db As DAO.Database
Dim rsttabelle As DAO.Recordset
Dim Knotenname As String
Set db = CurrentDb


For i = 1 To ausgabe_treeview.Nodes.Count
If ausgabe_treeview.Nodes(i).Checked = True Then
'strCheckedNodes = strCheckedNodes
Knotenname = ausgabe_treeview.Nodes(i)


------------------ Jetzt kommt das Problem beim Ausführen bekomme ich Laufzeitfehler 3075 -------------------------------Syntaxfehler (fehlender Operator) in Abfrageausdruck ((([tab_objekt].[objekt])=" & -------------------------Knotenname & " ))


Set rsttabelle = db.OpenRecordset("SELECT tab_objekt.*, [tab_objekt].[objekt] FROM tab_objekt WHERE ((([tab_objekt].[objekt])=" & Knotenname & " ));")


strCheckedNodes = strCheckedNodes & " " & ausgabe_treeview.Nodes(i)

End If
Next
'MsgBox strCheckedNodes

End Sub


----Kann mir vielleicht jemand verraten wo der Fehler liegt, oder wie ich anders die Checkboxen abspeichern kann? Das ist mein erstes Projekt in VBA und ich weiss echt nicht weiter. Über Hilfe
würde ich mich echt freuen.
lg Nik



Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Treeview mit Checkboxen anzeigen und speichern
 22.11.2006 21:14:55 NiK
NotSolved
23.11.2006 11:42:38 Rasta
NotSolved
23.11.2006 12:15:16 NiK
NotSolved
24.11.2006 12:03:37 NiK
NotSolved
27.11.2006 06:00:48 Rasta
NotSolved