Можно ли удалить все строки в подчиненной форме, нажав кнопку в форме?

Question

Я хотел бы удалить строки в таблице, где таблица является суб-от. Это возможно? Как я могу это сделать?

Спасибо

Answer 1

Использование DAO .Очень быстрый и автоматический запрос:

Private Sub DeleteButton_Click()

    Dim Records As DAO.Recordset

    Set Records = Me!NameOfYourSubformCONTROL.Form.RecordsetClone
    If Records.RecordCount > 0 Then
        Records.MoveFirst
        While Not Records.EOF
            Records.Delete
            Records.MoveNext
        Wend
    End If
    Records.Close

End Sub

Answer 2

Конечно - выполнить соответствующий запрос SQL delete, чтобы очистить все записи из таблицы, составляющей источник записей для подчиненной формы, как часть обработчика событий On Click для вашей кнопки, например ::

Private Sub YourButton_Click()
    CurrentDb.Execute "delete from YourSubFormTable"
End Sub

После удаления данных вам потребуется запросить подчиненную форму, которую вы можете выполнить, вызвав метод 'requireery' объекта формы:

Private Sub YourButton_Click()
    CurrentDb.Execute "delete from YourSubFormTable"
    YourSubForm.Requery
End Sub