新增记时自动复制上一记录的某些控件值-毛海波
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-窗体/数据页


新增记时自动复制上一记录的某些控件值

发表时间:2005/9/21 6:00:00 评论(1) 浏览(6367)  评论 | 加入收藏 | 复制
   
摘 要:新增记时自动复制上一记录的某些控件值
正 文:

'以下代码大量参考了911网站的代码

Public Sub CopyRecord(frm As Form, strControlName As String)
    On Error Resume Next
    Static j As Boolean
    Dim D, i As Long
    Set D = CreateObject("Scripting.Dictionary")

    Dim strSName() As String
    strSName = Split(strControlName, ";")
    If Not j And frm.NewRecord Then
        frm.Recordset.MoveLast
        j = True
        For i = 0 To UBound(strSName) - 1
            D.Add strSName(i), frm.Recordset(frm(strSName(i)).ControlSource).Value
        Next i
        DoCmd.GoToRecord , , acNewRec
        For i = 0 To UBound(strSName) - 1
            frm(strSName(i)).Value = D(strSName(i))
        Next i
        j = False
    End If
    Set D = Nothing

End Sub

'用法,要在current事件中调用,注意是控件名,而不是字段名,并且最后的;号不要忘记加

Private Sub Form_Current()
CopyRecord Me, "控件1;控件2;控件3;"
End Sub


Access软件网交流QQ群(群号:198465573)
 
 相关文章
新增记录时自动复制上一记录的某些控件值  【jimcloudy转摘  2007/11/30】
类似access查找中的记忆功能  【umvsoft整理  2008/6/30】
自动记忆位置窗体例子  【咱家是猫  2008/8/21】
[示例]新增记录时复制上一条记录的示例\具有记忆功能的示例、默认上...  【竹笛  2008/9/8】
【access源码】复制上面一条记录填充下面空白记录  【漏蛧尐魚℡  2012/5/10】
 
 访客评论
2014/6/8hhl
有用吗?先mark一下

总记录:1篇  页次:1/1 9 1 :
 
 发表评论
评论内容 (必填)

常见问答
技术分类
相关资源
文章搜索
关于作者

毛海波

文章分类

文章存档

友情链接