复制当前窗体记录到新记录且不新增到数据库-sosopain
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-窗体/数据页


复制当前窗体记录到新记录且不新增到数据库

发表时间:2008/7/18 12:20:17 评论(0) 浏览(12112)  评论 | 加入收藏 | 复制
   
摘 要:复制当前窗体的记录到窗体新记录里, 且并不在表里面增加新记录.

1. 优点: 复制后可以直接按ESC取消记录, 这时并不在数据库中添加记录,除非按保存或者关闭窗体. 这样不会让有自动编号的表 编号增加, 取消的时候也不用删除记录.

2. 本程序通用型强,调用简单, 设置简单,灵活,可以定制只复制所需的控件, 适合所有窗体.

正 文:

复制当前窗体的记录到窗体新记录里, 且并不在表里面增加新记录.

1. 优点: 复制后可以直接按ESC取消记录, 这时并不在数据库中添加记录,除非按保存或者关闭窗体. 这样不会让有自动编号的表 编号增加, 取消的时候也不用删除记录.

2. 本程序通用型强,调用简单, 设置简单,灵活,可以定制只复制所需的控件, 适合所有窗体.

使用时, 将窗体上所需要的控件的标签tag属性设置为"Copy"即可, 在复制到新纪录按钮中调用: AutoFillNewRecord Me

Public Function AutoFillNewRecord(F As Form)
 On Error Resume Next

    Dim rs As dao.Recordset, C As control
  
  
'    ' Exit if already on the new record.
    If F.NewRecord Then Exit Function

    Set rs = F.Recordset.Clone
    F.DataEntry = True
   
    If Err <> 0 Then Exit Function


    F.Painting = False

    ' Visit each field on the form.
    For Each C In F
       
        If C.Tag = "Copy" Then
            C = rs(C.ControlSource)
        End If
    Next

    F.Painting = True

End Function

 


Access软件网交流QQ群(群号:198465573)
 
 相关文章
关于窗体查询修改新增删除数据  【火焰  2013/3/25】
【Access源码示例】输入密码才能有权限编辑数据,用密码控制新增...  【麥田  2013/4/10】
【Access示例】显示最后一次新增的数据/最近一次输入的数据  【缪炜  2013/5/10】
vba代码新增字段、更改字段类型、删除字段  【金宇  2013/5/20】
常见问答
技术分类
相关资源
文章搜索
关于作者

sosopain

文章分类

文章存档

友情链接