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

海狸先生

以下代码大量参考了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

wskbm

顶给需要的人

xhbqt

好贴，备下留用

ABCaccess

谢谢你与大众分享

Henry D. Sy

为什么我只能看到一半

cdwlove

好东东，应该大家分享!!!

huangyicai

太好了，顶一下！

twostone

能不能用在VB对数据库的操作中呢?

zyz218

[em01]好东东要顶的

kevinch

好东西，最好给个现成的文件出来 同上，好东西不能忘记我们这些菜鸟呀！[em01]