[求助]输入数据时自动复制上条数据的问题!在线等!

shaoshouyou

各位大侠.我这里有一个问题, 我的工作每天需要输入大量数据.一些数据的前几位都是相同的. 我做了一个数据库来弄.感觉很不错.可是每次都要重复输入数据的前几位.不知道有没有一种办法.将我输入的上条记录中的数据复制到新记录中.这样我只用改几下就可以了.求高手帮忙,在线等!!

shaoshouyou

我自己先顶一下吧, 期待高手能帮我解决一下!

bertys

try Ctrl + '

情比金坚

好多种办法可以实现，一种是用dlast()查找到上一条，用vba写入

还可以定义一些公共变量，用来记住上一条的值

zyz218

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



Private Sub Form_Current()  ’窗体当前中引用既可

   CopyRecord Me, "日期;单号;"
   
End Sub

wdh008

有的.可以用VBA,模拟菜单操作的那段来做.比较好.干扰少,单纯.你可以试试.