按钮中的MS Access 2016 VBA代码重用

Question

我有一个包含16种不同表单的Access数据库前端。所有这些按钮都有三个共同的按钮，即全部显示，清除和刷新，它们使用各自的子表单执行完全相同的功能。例如，要查看名为 tbl_Students 的表中的数据，学生表单上的这些按钮的“点击”事件具有以下代码：

Option Explicit
'Show all records button
Private Sub cmdShowAll_Click()
    Dim task As String
    task = "SELECT * FROM tbl_Students"
    Me.frm_Students_subform.Form.RecordSource = task
    Me.frm_Students_subform.Form.Requery
End Sub

'Clear displayed records button
Private Sub cmdClear_Click()
    Dim task As String
    task = "SELECT * FROM tbl_Students WHERE (StudentID) is null"
    Me.frm_Students_subform.Form.RecordSource = task
    Me.frm_Students_subform.Form.Requery
End Sub

'Refresh records button
Private Sub cmdRefresh_Click()
    Me.frm_Students_subform.Form.Requery
End Sub

目前，我使用完全相同的代码，但在我的所有16个表单中使用不同的子表单名称。是否有更好，更有效的方法来实现代码重用？感谢。