Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
VBA Insertt into und dann Update |
03.09.2016 18:19:22 |
JoHo |
|
|
|
03.09.2016 21:33:13 |
Gast75441 |
|
|
|
05.09.2016 08:57:47 |
SJ |
|
|
|
06.09.2016 20:54:48 |
Gast46563 |
|
|
|
06.09.2016 21:10:54 |
Gast22863 |
|
|
|
07.09.2016 12:57:10 |
SJ |
|
|
|
07.09.2016 14:51:58 |
Gast4402 |
|
|
|
07.09.2016 15:07:25 |
SJ |
|
|
|
07.09.2016 16:28:25 |
Gast83559 |
|
|
Von:
JoHo |
Datum:
03.09.2016 18:19:22 |
Views:
1153 |
Rating:
|
Antwort:
|
Thema:
VBA Insertt into und dann Update |
Hallo,
ich habe hier ein Skript das zwar funktioniert, mir aber nicht gefällt! Das geht sicherlich auch eleganter.
Es geht darum, in die Tabelle "t_Bestand" für jede Verkaufsstelle den gleichen Artikel, die gleiche Artikelnummer und die gleiche Menge einzutragen. Artikel, Artikelnummer und Menge wurden in einem Form eingetragen.
Um alle Verkaufsstellen (Ast) anzusprechen, soll die WHERE-Klausel gestrichen werden.
Wie können die einzelnen Update zusammengefasst werden?
Beim Öffnen der DB würde ich gerne auf den Pfad verzichten. Die DB ist ja geöffnet.
Access 2013:
Dim dbs As Database
Set dbs = OpenDatabase("C:\Users/Datenbank_Moebel.accdb")
dbs.Execute " INSERT INTO t_Bestand " _
& "SELECT DISTINCT Ast " & "FROM [t_Bestand]" & "WHERE [Ast] = '" & "001" & "'"
CurrentDb.Execute "UPDATE t_Bestand " & _
"SET Artikel = '" & Me.Artikel & "'" & _
"WHERE Artikelnummer = " & 0
CurrentDb.Execute "UPDATE t_Bestand " & _
"SET Menge = " & Me.Menge & _
" WHERE Artikelnummer = " & 0
CurrentDb.Execute "UPDATE t_Bestand " & _
"SET Artikelnummer = " & Me.Artikelnummer & _
" WHERE Artikelnummer = " & 0
dbs.Close
Danke! |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
VBA Insertt into und dann Update |
03.09.2016 18:19:22 |
JoHo |
|
|
|
03.09.2016 21:33:13 |
Gast75441 |
|
|
|
05.09.2016 08:57:47 |
SJ |
|
|
|
06.09.2016 20:54:48 |
Gast46563 |
|
|
|
06.09.2016 21:10:54 |
Gast22863 |
|
|
|
07.09.2016 12:57:10 |
SJ |
|
|
|
07.09.2016 14:51:58 |
Gast4402 |
|
|
|
07.09.2016 15:07:25 |
SJ |
|
|
|
07.09.2016 16:28:25 |
Gast83559 |
|
|