Dim F As Integer, S As Integer
F = Me!Поле9' какого номера
S = (Val(Me!Поле9) + Val(Me!Поле11))' по какой номер
'Val(Me!Поле11))' сколько номеров
If MsgBox("Проверяем номера с " & Me!Поле9 & " по " & S, vbQuestion + vbYesNo) = vbNo Then Exit Sub
Поле0 = " "
intM = 0
For intM = F To S
Me!Поле6.SetFocus
Me!Поле6 = intM
Requery
If intM > S Then GoTo b
If DFirst("[NOMER]", tabd, "[NOMER] =" & intM) Then
Else
If intM = F Then Поле0 = intM & ", ": GoTo Bb
Поле0 = Поле0 & intM & ", "
Bb:
Поле0.SetFocus
Requery
End If
Next intM
MsgBox "ПРОВЕРКА ОКОНЧЕНА"
b:
|