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

海狸先生

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

Grant

这么好的东西怎么没人顶,下次把它隐藏算了,自己先顶.

smartday

不错，顶一下

dasen

多谢，学习中!

zyz218

好东东啊,,厉害Z!!!

secowu

  鲜花(99999999999999999999)  鸡蛋(－00000000000000000000000000000000000000000000)

qhdzp516

真是好东西谢谢海狸先生。[em09],顺便问一下，如何复制本条记录的某些控件值呢？

[此贴子已经被作者于2005-9-21 15:49:16编辑过]

海狸先生

例如　你的　姓名字段是用　txt姓名　这个文本框控件显示，那么要复制姓名这个记录的话就引用　txt姓名 这个控件值

qhdzp516

我是个新手，如何写代码呢？真是麻烦了！

可乐可口

的确是好东东这个和　默认值=dlast("字段名","表")　有什么不一样的地方