Forums Neueste Beiträge
 

Daten in eine Tabelle mit VBA schreiben

27/05/2009 - 19:55 von Thom | Report spam
Hallo liebe NG

Ich steh mal wieder am Berg und wàre froh um einen oder zwei Tipps. Folgende
Situation. Ich habe ein formular mit einer Listbox mit der ich mehrere Daten
auswàhlen kann. Soweit funktionierts auch. Nun soll die Auswahl 2 Daten oder
auch mehr in eine neue Tabelle geschrieben werden bzw. das Ergebnis davon.
Dazu habe ich ein Button erstellt der mit einem VBA Script hinterlegt ist
der meine Auswahl in die Query übernehmen soll und das Ganze dann auch in
die Tabelle schreibt. So die Theorie...

Das Script sieht wie folgt aus:

Private Sub bef_suche_kunden_Click()

Dim Gruppe As String
Dim i As Integer

For i = 0 To lsb_kundenauswahl.ListCount - 1
If lsb_kundenauswahl.Selected(i) Then Gruppe = Gruppe &
lsb_kundenauswahl.ItemData(i) & ","
Next i

'jetzt hast Du alle Gruppen in Deinem String und musst das letzte KOmma
'abschneiden
If Gruppe <> "" Then Gruppe = Left(Gruppe, Len(Gruppe) - 1)

'Daten anzeigen
temp_300_suche_nach_kunde_ergebnis.RecordSource = "SELECT * FROM
tbl_000_resdaten_news WHERE NAME_BASIS IN(" & Gruppe & ");"

oder
DoCmd.RunSQL "Insert INTO temp_300_suche_nach_kunde_ergebnis Values SELECT *
FROM tbl_000_resdaten_news WHERE NAME_BASIS IN(" & Gruppe & ") INTO
'temp_300_suche_nach_kunde_ergebnis';"


Danke im Voraus für evtl. Tipps und Hinweise.

Gruss Thom
 

Lesen sie die antworten

#1 Peter Doering
27/05/2009 - 20:20 | Warnen spam
Hallo,

Thom wrote:

Ich steh mal wieder am Berg und wàre froh um einen oder zwei Tipps. Folgende
Situation. Ich habe ein formular mit einer Listbox mit der ich mehrere Daten
auswàhlen kann. Soweit funktionierts auch. Nun soll die Auswahl 2 Daten oder
auch mehr in eine neue Tabelle geschrieben werden bzw. das Ergebnis davon.
Dazu habe ich ein Button erstellt der mit einem VBA Script hinterlegt ist
der meine Auswahl in die Query übernehmen soll und das Ganze dann auch in
die Tabelle schreibt. So die Theorie...

Das Script sieht wie folgt aus:
[...]

oder
DoCmd.RunSQL "Insert INTO temp_300_suche_nach_kunde_ergebnis Values SELECT *
FROM tbl_000_resdaten_news WHERE NAME_BASIS IN(" & Gruppe & ") INTO
'temp_300_suche_nach_kunde_ergebnis';"



Entweder INSERT/VALUES, pro Datensatz einmal aufzurufen, oder INSERT/SELECT
in eine vorhandene Tabelle, oder SELECT...INTO in eine neue Tabelle.

Fuer die Ausfuehrung solltest du ausserdem <DBVariable>.Execute verwenden,
siehe www.donkarl.com?FAQ2.4 letzter Absatz.

Beispiel fuer neue Tab:

CurrentDb.Execute "SELECT * INTO 'temp_300_suche_nach_kunde_ergebnis' " & _
" FROM tbl_000_resdaten_news WHERE NAME_BASIS IN(" & Gruppe & ")", _
dbFailOnError

(Luftcode)

Gruss - Peter

Mitglied im http://www.dbdev.org
FAQ: http://www.donkarl.com

Ähnliche fragen