Datensätze in Tabelle einfügen

28/04/2009 - 09:09 von Marcel Garaventa | Report spam
Ich will neue Datenàtze einfügen anhand einer Listbox. Dies, wenn ich auf den
Button Einfügen klicke. Dies mache ich wie folgt:


Private Sub butEinfügen_Click()
Dim txtSelect As String
Dim il As Integer
Dim myConnection As ADODB.Connection

For il = 0 To lisProdukte.ListCount - 1
If lisProdukte.Selected(il) = True Then
txtSelect = "INSERT INTO [Release ZULU] (Release, Nummer) values
('" & txtRelease & "', " & lisProdukte.Column(0, il) & ")"
DoCmd.RunSQL txtSelect
End If
Next
End Sub

Dies funktioniert wurnderbar. Nur fragt das System jedes mal nach, ob ich
diesen Datensatz auch wirklich einfügen will. Diese Nachfrage will ich
ausschalten. Das System soll die Selektierten Datensàtze einfach einfügen.

Wie kann ich das erreichen??

Vielen Dank für Eure Hilfe
Marcel
 

Lesen sie die antworten

#1 Thomas Winkler
28/04/2009 - 09:21 | Warnen spam
Hi,

DoCmd.RunSQL txtSelect



CurrentDB.Execute txtSelect

HTH

Thomas

"Access? Damit arbeite ich nicht. Das ist doch nur ein abgespecktes Excel."

Ähnliche fragen