删除子窗体数据

    请你参考一下下面代码，在主窗体中建立一按钮名称为删除文件，并在它的单击事件中粘贴下面代码，你可适当修改一下就是你需要的了!

Private Sub 删除文件_Click()
'按路径删除指定文件

    Dim Msg, Style, Title, Help, Ctxt, Response, MyString

    Msg = "注意：尊敬的用户" & Chr(13) & Chr(10) & "　　当前子窗体中光标行的文件删除将后不能再恢复！请选择。" & Chr(13) & Chr(10) & "　　是否执行删除文件操作？"
    Style = vbYesNo + vbCritical + vbDefaultButton2
    Title = "管理员向你提示："
    Help = "DEMO.HLP"
    Ctxt = 1000

    Response = MsgBox(Msg, Style, Title, Help, Ctxt)

    If Response = vbYes Then    ' User chose Yes.
        MyString = "Yes"    ' Perform some action.
        On Error GoTo Err_删除文件_Click

' --------这段代码是删除文件路径中的代码，你可以删除 不要
        cc = Me.[子窗体].Form![文件路径]
        Set fs = CreateObject("Scripting.FileSystemObject")
        s = fs.DeleteFile(cc, True)   '按当前路径删除文件夹内的文件

'------------------------------------------------------------------

              SQL = "Delete 文件存放表.ID FROM 文件存放表 WHERE (((文件存放表.ID)=[Forms]![文件管理]![子窗体].[Form]![ID])); "
        DoCmd.RunSQL SQL
        Me.子窗体.Requery
        Me.子窗体.SetFocus
        MsgBox "文件删除成功 ！", vbOKOnly, "提示"

Exit_删除文件_Click:
        Exit Sub

Err_删除文件_Click:

        Exit Sub

    Else    ' User chose No.
        MyString = "No"    ' Perform some action.
        MsgBox "你已经取消了删除文件的操作！", vbOKOnly, "提示"
    End If

End Sub