SELECT [T1].[Nbr]- 1  AS Nbr_Empty
FROM TestNbr AS T1, TestNbr AS T2
WHERE (((T2.Nbr) In 
   (SELECT TOP  1  T3.Nbr 
   FROM TestNbr AS T3 
   WHERE T3.Nbr <T1.Nbr 
   ORDER BY T3.Nbr DESC)) AND 
(([T1].[Nbr]-[T2].[Nbr])> 1 ));

Public Sub SerialNumber(nMax As Long, Optional nMin As Long =  1 )
'Данная процедура создает зарос с последовательными записями
'от nMin до nMax включительно (если nMin не указано, принимаем  1 )

'Call
'Call SerialNumber(nMax:= 200 , nMin:= 10 ) 'будет создан запрос с последовательными номерами от 10 до 200
'Call SerialNumber(nMax:= 10 , nMin:= 200 ) 'будет создан запрос с последовательными номерами от 200 до 10

'Предполагается, что существует таблица Nbr_sys_tmp с полем Nbr
'целоисчисленного типа, в которую запишутся числа от 1 до 10
'А также запрос  "SerialNbr_q" , в котором будут выведены требуемые
'последовательные числа
Dim i As Byte
Dim db As Database
Dim rst As Recordset
Dim sQ As String
'строки SQL - ной инструкции....
Dim sExpr As String 'выражение вычисления числа
Dim sFrom As String 'From

Dim qry As QueryDef
Dim j As Integer 'знак чисел (при возрастающей последовательности  1,
'при ниспадающей - (- 1 ))

'имя таблицы, в которую необходимо вставить последовательные
'записи от  1  до  10 
Const nmTbl As String =  "Nbr_sys_tmp" 
Const nmFld As String =  "Nbr"  'название поля данной таблицы
Const nmQry As String = "SerialNbr_q" 'название запроса, выдающие последовательные числа

'проверить существование таблицы с именем sNmTbl, если нет, создать
sQ = "Name = """ & nmTbl & """"
i = DCount("Name", "MSysObjects", sQ)
If i = 0 Then
    'создать данную таблицу
    sQ =  "CREATE TABLE "  & nmTbl &  " "  & vbCrLf & _
     "(Nbr COUNTER CONSTRAINT PrimaryKey PRIMARY KEY);" 
    DoCmd.RunSQL (sQ)
End If

'проверить существование запроса с именем nmQry, если нет, создать
Set db = CurrentDb
sQ = "Name = """ & nmQry & """"
i = DCount("Name", "MSysObjects", sQ)
If i = 0 Then
    'создать данный запрос
    
    sQ =  "SELECT * "  & vbCrLf &  "FROM "  & nmTbl &  ";" 
    Set qry = db.CreateQueryDef(nmQry, sQ)
    Set qry = Nothing
    
End If

clearTable nmTbl 'очистить таблицу nmTbl

sQ = "SELECT " & nmFld & " " & vbCrLf & _
"FROM " & nmTbl & ";"


Set rst = db.OpenRecordset(sQ)
'Добавить  10  записей
With rst
    For i =  1  To  10 
        .AddNew
            .Fields(nmFld).Value = i
        .Update
    Next i
End With

Set rst = Nothing

'определить, какая это последовательность: возрастающая или ниспадающая
If nMin <= nMax Then
    j = 1
Else
    j = -1
End If

'определить разряд разницы между верхней и нижней границами
i = Len(CStr(Abs(nMax - nMin)))
sExpr = nMin &  "+("  & j &  ")*(" 
For i =  1  To i
    sExpr = sExpr &  "([N"  & i &  "].["  & nmFld &  "]-1 )* 10 ^" & i -  1  &  "+" 
    sFrom = sFrom & nmTbl &  " AS N"  & i &  ", " 
Next i
'обрезать лишние (последние) знаки "+" и т.п.
sExpr = Left(sExpr, Len(sExpr) - 1) & ")" 'один знак  "+" 
sFrom = Left(sFrom, Len(sFrom) -  2 ) 'запятую и пробел

'составить общую строку
sQ =  "SELECT "  & sExpr &  " AS Nb "  & vbCrLf & _
 "FROM "  & sFrom &  " "  & vbCrLf & _
 "WHERE ((("  & sExpr &  ") BETWEEN "  & nMin &  " AND "  & nMax &  ")) "  & vbCrLf & _
 "ORDER BY "  & sExpr
Select Case j
Case  1  'по возрастанию
    sQ = sQ & " ASC;"
Case -1 'по убыванию
    sQ = sQ &  " DESC;" 
End Select

Set qry = db.QueryDefs(nmQry)
qry.SQL = sQ
Set qry = Nothing
Set db = Nothing

End Sub