делаем пользовательский тип данных
Type mejdyZakazami
Zakazchik as long' заказчик
Periods() as long ' периоды заказа
DataZakaz as date' последняя запомненная дата
end type
Private sub PoiskPeriods()
const tbl$="table1" ' таблица в которой начальные данные
cont tbl2$="table2"
dim rst as recordset, i&, y&, messPeriod() as  mejdyZakazami, Period, tblPeriod  as recordset
' пройдемся по рекордсету и соберем в массивы заказчиков и периоды между заказами
set rst=Currentdb.openrecordset(tbl, dbOpensnapshot)
set tblPeriod  =Currentdb.openrecordset(tbl2, dbOpenDynaset)
if rst.absolutePosition=-1 then exit sub
with rst
.movefirst
redim messPeriod(0): redim messPeriod(0).Periods(0) ' инициализируем массивы иначе дальше выдаст ошибку
messPeriod(0).Zakazchik =.fields(1):messPeriod(0).DataZakaz =.fields(2): messPeriod(0).Periods(0)=0 ' начальный период 0
.movenext
do until .eof
for i=0 to ubound(messPeriod)
If rst.fields(1)=messPeriod(i).Zakazchik then 
   Period=DateAdd("y",rst.fields(2), messPeriod(i).DataZakaz) ' вычисляем интервал между текущим и последним запомненным
   redim Preserve messPeriod(i).Periods(ubound(messPeriod(i).Periods)+1):messPeriod(i).Periods(ubound(messPeriod(i).Periods))=Clng(Period)
    messPeriod(i).DataZakaz=.fields(2)
    goto go11 ' создаем новый элемент массива периодов этого заказчика
end if
next i
redim Preserve messPeriod(i): redim messPeriod(i).Periods(0)' если такого заказчика нет ещё добавляем его
messPeriod(i).Zakazchik =.fields(1): messPeriod(i).Periods(0)=0: messPeriod(i).DataZakaz=.fields(2)
go11:
.movenext
loop
end with
' далее смотрим массив периодов в массиве заказчиков
for i=0 to ubound(messPeriod) ' массив заказчиков
Period=messPeriod(i).Periods(0) 
for y=1 to ubound(messPeriod(i).Periods) ' массив периодов-начальный период 0 - поэтому пропустим его
if Period<messPeriod(i).Periods(y) then Period=messPeriod(i).Periods(y) ' минимальный период по этому заказчику
next y
' здесь добавляем в таблицу заказчика и получившийся период
with tblPeriod ' какая то таблица в которую записываем результат
.addnew
.fields(1)=messPeriod(i).Zakazchik: .fields(2)=Period
.update
end with
next i
rst.close: set rst=nothing
erase  messPeriod
end sub