Access 2010 Inventarnummer von bis generieren

hallo,
ich habe folgende Problemstellung in Access 2010 für eine Inventarisierungsdatenbank.

Bei Grabungsfunden gibt es Objekte, die unter einer Sammelinventarnummer erfasst werden:
z.B. M-5.2005.1-5, M-5.2005.6-7, M-5.2005.8, M-5.2005.9-20, ...

In das Feld Objektanzahl wird die Zahl 5 eingetragen und daraus sollen die "Unternummer von" = 1 und die "Unternummer bis" = 5 berechnet werden und automatisch generiert, so dass keine Eingabefehler passieren.

Ich habe folgenden Ausdruck für das Feld Unternummer von verwendet, die Berechnung ist korrekt (wenn ich im VB-Fenster mit dem Cursor über den Code " InventarNr_von = rs!maxid + 1" fahre, wird das richtige Ergenis angezeigt) nur die Zahl erscheint bzw. wir nicht ins Tabellenfeld gespeichert:
Private Sub InventarNr_von_Click()
Dim db As DAO.Database, rs As DAO.Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("SELECT Max([Objektdaten.InventarNr bis]) AS maxid FROM Objektdaten")
If rs.EOF Then
MsgBox ("Kann keine neue Inventarnummer holen")
Else
InventarNr_von = rs!maxid + 1
End If
End Sub

Für das Feld "Unternummer bis" habe ich keine Idee, hier müsste max. "InventarNr von" plus "Objektanzahl" des aktuellen Datensatzes gerechnet und das Ergebnis in das Feld gespeichert werden.

Darüber hinaus habe ich noch das Problem, dass bei der Eingabe Fehler passieren können und im Nachhinein festgestellt wird, dass die Objektzahl höher oder niedriger ist, d.h. die Unternummern aller danach eingegebenen Objekte nicht mehr korrekt sind und bei Korrektur der Objektanzahl eines Objektes alle nachfolgenden angepasst werden müssen.

Ich bin für jede Hilfe sehr dankbar!

LG, Katharina