点击下载此附件

 

Private Sub 创建_Click()
    Dim frm As Form
    Set frm = CreateForm
    DoCmd.Save , "NewForm"
    DoCmd.Close acForm, "NewForm"
    RefreshDatabaseWindow   '立即刷新数据库
End Sub

Private Sub 删除窗体_Click()
    DoCmd.DeleteObject acForm, "NewForm"
    RefreshDatabaseWindow   '立即刷新数据库
End Sub