Office 2013: Datensätze im Unterformular mittels Recordset ändern

[ju_und_be]

Hallo
ich habe schon lange gesucht, aber habe nichts gefunden. Vllt kann mir jemand helfen...

Ich habe eine Rezeptverwaltung bei Access mit einem Formular und einem Unterformular "Zutaten". Da stehen die Menge, Einheiten und Zutatenname drin. Ich möchte beim Click auf eine Schaltfläche eine Portionsänderung, dass sich nur die Mengen mit einem bestimmten Rechenvorgang ändern bzw. angepasst werden.

Mit dem Code ändern sich die ganzen Mengen in der Tabellen. Ich möchte jedoch, dass sich nur die Menge ändern, die als Rezept ausgewählt wurde:

Me.Text26 = Me.Portionen + 1

Dim NeuerWert As Currency
Dim AlterWert As Currency

NeuerWert = Me.Portionen.Value
AlterWert = Me.Portionen.OldValue
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Dim var
 
Set db = CurrentDb                    'Datenbank definieren
strSQL = "SELECT tblZutaten.Menge  from tblZutaten"   beliebigen SQL definieren
Set rs = db.OpenRecordset(strSQL)          'Recordset öffnen
 
If Not rs.EOF Then rs.MoveFirst    ' Zum ersten Datensatz
 
Do While Not rs.EOF      'Schleife über die Datensätze des Recordsets
   
   rs.Edit
   rs.Fields(1) = Forms!frmVorspeisen!Ufo_Zutaten!Menge = Forms!frmVorspeisen!Ufo_Zutaten!Menge / AlterWert * NeuerWert
 
   rs.Update 'Änderungen am / neuen Datensatz speichern
   rs.MoveNext 'nächsten Datensatz ansteuern
   Loop
   
   
rs.Close
Set rs = Nothing
Set db = Nothing


Ich hoffe jemand kann mir helfen !!!!