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! |