Dim db As Database
Dim inanr As Long
Dim idnr As Long
Dim umsgwert As Variant
Dim rs As Recordset
 
inanr = Me.Innenauftrnr ' Variable 1 wird vom Formular übergeben
idnr = Me.ID                      ' Variable2 wird vom Formular übergeben 
 
Set db = CurrentDb()
 
db.Execute "INSERT INTO tblUms (Innenauftrnr) SELECT Innenauftrnr FROM tblBest"
Set rs = db.OpenRecordset("SELECT SUM(UmsatzPP*Menge) AS GBwert FROM tblAuftr" & _
  "WHERE Innenauftrnr=" & inanr)
 
umsgwert = rs.Fields![GBwert] ' Das summenfeldergebnis wird an die Variable 
' übergeben
 
db.Execute "UPDATE tblUms SET GBwert=' " & umsgwert & "' WHERE Innenauftrnr=' " _
  & inanr & " ' AND ID =" & idnr