复制\删除子窗体记录的例子-何勇
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-窗体/数据页


复制\删除子窗体记录的例子

发表时间:2007/12/27 7:17:35 评论(3) 浏览(14909)  评论 | 加入收藏 | 复制
   
摘 要:复制\删除子窗体记录的例子
正 文:

Public Function funCopyPasteRec()
    On Error GoTo Err:
   
    If Not IsLoaded("主窗体") Then Exit Function
   
    If MsgBox("复制记录吗?", vbYesNo + 32, "提示信息") = vbYes Then

        Forms("主窗体").子窗体.SetFocus
        DoCmd.RunCommand acCmdCopy
        DoCmd.SetWarnings False     '关闭警告

        DoCmd.RunCommand acCmdPasteAppend
        DoCmd.SetWarnings True      '打开警告


    End If

Err:     Exit Function

End Function
Public Function funDeleteRec()
    On Error GoTo Err:
   
    If Not IsLoaded("主窗体") Then Exit Function
   
    If MsgBox("记录删除后不能恢复,你确定删除选中的数据吗?", vbYesNo + 32, "提示信息") = vbYes Then

        Forms("主窗体").子窗体.SetFocus
        DoCmd.SetWarnings False     '关闭警告

        DoCmd.RunCommand acCmdDeleteRecord
        DoCmd.SetWarnings True      '打开警告

    End If

Err:     Exit Function

End Function

示例下载: 点击这里下载

 


Access软件网交流QQ群(群号:198465573)
 
 相关文章
[Access示例]Access新增记录时复制上一条记录的示例\具...  【竹笛  2008/9/8】
【access入门】得寸进尺--对输入的数据选中后复制粘贴的示例  【麥田  2012/5/7】
【access源码】复制上面一条记录填充下面空白记录  【漏蛧尐魚℡  2012/5/10】
新增记录时复制过往指定记录的示例  【网行者  2013/10/1】
新增记录时复制过往任意选定记录的示例  【网行者  2013/10/9】
常见问答
技术分类
相关资源
文章搜索
关于作者

何勇

文章分类

文章存档

友情链接