Set SQL_Text = "SELECT [Rech_Pos] FROM Bestellauftragspositionen_Abfrage WHERE" & _
  "Bestellauftragspositionen_Abfrage.Auftragsnummer ='" & _
  Forms![Bestellformular]![Auftragsnummer].Value & "';"

Option Compare Database
 
Private Sub Befehl15_Click()
 
 
On Error GoTo Err_Befehl15_Click
 
 
Dim db As Database
Dim rs As Recordset
Dim SQL_Text As String
Dim Summe As Currency
 
Set db = CurrentDb()
Set SQL_Text = "SELECT [Rech_Pos] FROM Bestellauftragspositionen_Abfrage WHERE" & _
  "Bestellauftragspositionen_Abfrage.Auftragsnummer ='" & _
  Forms![Bestellformular]![Auftragsnummer].Value & "';"
Set rs = db.OpenRecordset(SQL_Text, dbOpenSnapshot)
 
Do While Not rs.EOF
Set Summe = Summe + rs
rs.MoveNext
Loop
 
Set Forms![Bestellformular]![Auftragssumme].Value = Summe
 
 
    Screen.PreviousControl.SetFocus
    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
 
Exit_Befehl15_Click:
    Exit Sub
 
Err_Befehl15_Click:
    MsgBox Err.Description
    Resume Exit_Befehl15_Click
 
End Sub