Удалить записи в форме

[Swatch]

День добрый! Подскажите пожалуйста, как можно в форме, основанной на запросе, удалить записи, начиная с n-ной? Вот например встаю я на запись с номером n
DoCmd.GoToRecord acDataForm, "Таблица1", acGoTo, n
Как можно удалить все записи в форме начиная с этой?

[Teslenko_EA]

Здравствуйте Swatch.
"..удалить записи, начиная с n-ной.." по какому полю задается нумерация, или речь о текущем отображении рекордсета?
В случае если речь о рекордсете, это рискованная затея поскольку не защищена от случайного удаления неверно отсортированных записей.
А в принципе это реально, с применением VBA удалить все записи, начиная с текущей может подобный код:

Sub delMore()
Const sQ1 = "DELETE * FROM Table1 WHERE ID Not In (SELECT TOP "
Const sQ2 = " ID FROM Table1)"
Dim s$
s = Me.Recordset.AbsolutePosition
CurrentDb.Execute sQ1 + s + sQ2
End Sub

Евгений.

[wallstreet]

ответ найдешь на youtube там про это даже ролик есть