vba - 是否可以通过单击表单中的按钮来删除子表单中的所有行？

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

当然 - 执行适当的 SQLdelete查询以清除构成子表单的记录源的表中的所有记录，作为On Click按钮事件处理程序的一部分，例如：

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

删除数据后，您需要重新查询子表单，您可以通过调用表单对象的“重新查询”方法来执行此操作：

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