Для начала, вот как получить год-неделю от даты.
Вы можете легко изменить ее так, чтобы она возвращала RMyyww: RM1820
Затем используйте DMax чтобы посмотреть последнее / самое высокое записанное значение:
YearWeek = "RM1820"
NextNo = YearWeek & Format(Val(Right(Nz(DMax("[NumberField]", "YourTable", "[NumberField] Like '" & YearWeek & "*'"), YearWeek & "00"), 2)) + 1, "00")