点击删除键，删除子窗体最后一条记录

Private Sub Command72_Click()
    On Error GoTo Err_Command72_Click
    If MsgBox("记录删除后不能恢复，你确定删除选中的数据吗？", vbYesNo + 32, "提示信息") = vbYes Then
        Dim Rst As Object
        Set Rst = Form_修改.出货明细表临时子窗体201.Form.Recordset
        If Rst.RecordCount > 0 Then
            Dim JL As Long
            JL = Rst.RecordCount - 1
            Me.出货明细表临时子窗体201.Form.SelTop = Rst.RecordCount
            Me.出货明细表临时子窗体201.SetFocus
            DoCmd.RunSQL "Delete FROM 出货明细表 Where 编号=" & Forms!修改!出货明细表临时子窗体201!编号
            Me.出货明细表临时子窗体201.Form.SelTop = JL
            Me.出货明细表临时子窗体201.Requery
        End If
    End If
Exit_Command72_Click:
    Exit Sub
Err_Command72_Click:
    MsgBox Err.Description
    Resume Exit_Command72_Click
End Sub