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
|