Member
Beiträge: 31
| Großer Meister!
Private Sub chosenStuff_DblClick(Cancel As Integer)
Dim strEinfuegen As String
Dim db As DAO.Database
strEinfuegen = "Insert Into [tab:trainedpersons] " & _
"([trainedpers:event], " & _
" [trainedpers:person]," & _
" [trainedpers:dbeditor]) " & _
"VALUES (" & _
"'" & Me.[train:runningNo] & "', " & _
"'" & Me.chosenStuff & "', " & _
"'" & Me.[train:dbeditor].Value & "');"
DBEngine(0)(0).Execute strEinfuegen, dbFailOnError
strEinfuegen = ""
End Sub
Das funktioniert jetzt.
Wieder was gelernt! und Danke fürs Mitlesen.
Bernhard |