Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
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 |
|
|
VBA Insertt into und dann Update |
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:
Gast22863 |
Datum:
06.09.2016 21:10:54 |
Views:
737 |
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 (ich weiß aber nicht wie)
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 werden in einem Form eingetragen. Um alle Verkaufsstellen (Ast) anzusprechen, wird die WHERE-Klausel nocht entfernt.
Beim INSERT INTO wird der Wert 0 in das Feld "Artikelnummer" gesetzt.
Wie können die einzelnen Update zusammengefasst werden?
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
Vielen Dank!
MfG JoHo
|
- 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
|
|
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 |
|
|
VBA Insertt into und dann Update |
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 |
|
|