Hallo,
ich warte eine Datenbank (datenmäßig). Nun habe ich den Auftrag bekommen die Access-Datenbank um die Umsatzsteuer-ID zu erweitern.
Ich habe in die relevanten Tabellen Kundenstamm und Auftrag das Feld usid ergänzt.
Allerdings müssen alle Aufträge (5000 Stück) noch nachträglich mit der usid versehen werden. Die Beziehung ist 1:n.
Debitoren_Nr (Kunden) = Auftraggeber_Nr (Auftrag)
Wie formuliere ich den SQL-Befehl? (Ich möchte es per VBA-Script machen)
Dim SQLText As String
Dim SMSQL As String
Dim db As DAO.Database
SQLText = "UPDATE usid AS kunden INNER JOIN usid AS auftrag ON kunden.debitoren_nr =auftrag.auftraggeber_nr"
Set db = CurrentDb
db.Execute SQLText
MsgBox "Die Datensätze wurden geändert!", vbInformation
oder:
Private Sub Befehl0_Click()
Dim SQLText As String
Dim db As DAO.Database
SQLText = "INSERT INTO [auftrag]" & _
" SELECT kunden.usid " & _
"FROM [kunden] "
Set db = CurrentDb
db.Execute SQLText
MsgBox "Die Datensätze wurden geändert!", vbInformation
Danke für die Mühe
Newbie929
|