Dim db As Database
Dim inanr As String
Dim idnr As String
Dim umsgwert As Variant
Dim rs As Recordset
 
inanr = CStr(Me.Innenauftrnr) ' Variable 1 wird vom Formular übergeben
idnr = CStr(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

Cu

Wolfgang