Office中国论坛/Access中国论坛

标题: [求助]输入数据时自动复制上条数据的问题!在线等! [打印本页]

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

作者: shaoshouyou 时间: 2006-1-7 08:58
我自己先顶一下吧, 期待高手能帮我解决一下!

作者: bertys 时间: 2006-1-7 09:40
标题: try Ctrl + '
try Ctrl + '

作者: 情比金坚 时间: 2006-1-7 09:50
好多种办法可以实现，一种是用dlast()查找到上一条，用vba写入

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

作者: zyz218 时间: 2006-1-7 19:00

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 时间: 2006-1-7 23:30
有的.可以用VBA,模拟菜单操作的那段来做.比较好.干扰少,单纯.你可以试试.

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)