Member
Beiträge: 11
| Hallo Forum, hallo DonkarlTeam,
mal wieder ein super Problem, echt schwierig für mich.. vielleicht kennt ja einer von euch eine Lösung?
Hab ein Problem mit einem Formular für eine Organisationsdarstellung (Organigramm).
Da drin ist ein Treeview-Objekt, welches auch ganz gut funktioniert.
Durch Klicken eines Buttons wird folgende Prozedur ausgelöst..
Private Sub Befehl12_Click()
'Prüfen, welche OE markiert ist..
Dim intOE As Integer
Dim strOEName
Dim strSQLadd As String
intOE = Mid(m_Treeview1.SelectedItem.Key, 2)
strOE = InputBox("Wie heißt die neue Organisationseinheit?", "Frage")
strSQLadd = "INSERT INTO tblOrganisation ( txt_Orgdescr, intParentOrg ) " & _
" SELECT '" & strOE & "' AS New1, " & intOE & " AS New FROM tblOrganisation;"
Set db = CurrentDb
db.Execute strSQLadd
Set db = Nothing
End Sub
Funktioniert.. allerdings zu gut :-) die Abfrage fügt nicht EINEN Datensatz an, sondern irgendwas zwischen 5 und 12 identische Datensätze (die Anzahl ist jedesmal unterschiedlich).
Was steckt da dahinter? Wer weiß was?
Vielen Dank für eure Ideen im Voraus..
Viele Grüße, Bernd |
