如何任意记录上进行编辑，然后保存成一条新的记录，同时原记录没有发生改变
&我在一个ACCESS程序的数据窗口中，首先在窗口中的字段文本框中修改了字段值，然后想通过如下代码在当前的表中新增一条记录：
&&&&&&& DoCmd.RunCommand acCmdSelectRecord&&& --选择当前记录&&&&&&& DoCmd.RunCommand acCmdCopy&&&&&&&&&&& --复制当前记录&&&&&&& DoCmd.RunCommand acCmdPasteAppend&&&& --追加记录
但是发现acCmdCopy其实并不是复制当前记录，而是复制当前选择的文本框内容，所以要出错，不知道如何解决？应该是什么DoCmd.RunCommand acCmd********？如果直接用DoCmd.RunCommand acCmdSaveRecord，就直接覆盖当前记录了，不是我想要的。我是想在任意记录上进行编辑，然后保存成一条新的记录，同时原记录没有发生改变。
&回答：&客户的要求往往非常怪异&Private Sub Command4_Click()&&& Dim strA As String&&& strA = Me.FIELD1.Value&&& If Me.Dirty = True And Me.NewRecord = False Then&&&&&&& DoCmd.RunCommand acCmdUndo&&& End If&&& DoCmd.GoToRecord , , acNewRec&&& Me.FIELD1.Value = strAEnd Sub或者Private Sub Command5_Click()&&& If Me.Dirty = True And Me.NewRecord = False Then&&&&&&& DoCmd.RunCommand acCmdSelectRecord&&& --选择当前记录&&&&&&& DoCmd.RunCommand acCmdCopy&&&&&&&&&&& --复制当前记录&&&&&&& DoCmd.RunCommand acCmdUndo&&&&&&& DoCmd.RunCommand acCmdPasteAppend&&&& --追加记录&&& End If
End Sub可以使用 Dirty 属性来决定当前记录自从上次保存之后是否修改过。如果记录已保存，Microsoft Access 将 Dirty 属性设置为 False；如果用户更改记录，则该属性将设置为 True。
示例以下示例在数据更改时将 btnUndo 按钮设为有效。UndoEdits( ) 子程序从文本框控件的 AfterUpdate 事件中调用。单击有效的 btnUndo 按钮会使用 OldValue 属性还原控件值。
Sub UndoEdits()&&& If Me.Dirty Then&&&&&&& Me!btnUndo.Enabled = True&&& -- Enable button.&&& Else&&&&&&& Me!btnUndo.Enabled = False&&& -- Disable button.&&& End IfEnd Sub
Sub btnUndo_Click()&&& Dim ctlC As Control&&&&&&& -- For each control.&&&&&&& For Each ctlC in Me.Controls&&&&&&&&&&& If ctlC.ControlType = acTextBox Then&&&&&&&&&&&&&&& -- Restore Old Value.&&&&&&&&&&&&&&& ctlC.Value = ctlC.OldValue&&&&&&&&&&& End If&&&&&&& Next ctlCEnd Sub
TA的最新馆藏[转]&免费发布咨询，坐等律师在线服务
需求发布后
10分钟内收到律师在线回复
平均有多个律师参与回复
得到了圆满解决
您的位置： &
借钱给朋友，他用兄弟的银行账户分别多次转账，叫我转账到他兄弟卡里，没有借条，能不能起诉兄弟，有录音和银行转账记录，钱他自己承认，现在没想还的意思，他是黑名单的，他兄弟不是黑名单，用什么方法比较好，
借钱给朋友，他用兄弟的银行账户分别多次转账，叫我转账到他兄弟卡里，没有，能不能起诉兄弟，有录音和银行转账记录，钱他自己承认，现在没想还的意思，他是黑名单的，他兄弟不是黑名单，用什么方法比较好，
律师回答地区：辽宁-锦州咨询电话：帮助网友：47606 次点赞人数：<span class="s-c666" id="r_94 人如有需要可在工作时间内来电咨询，我的工作时间：星期一至星期五，早8点半到下午5点，中午12点到下午13点午休。当面咨询：星期一至星期五上午10点到下午3点，中午12点到下午13点午休。助理办公时间：星期一至星期五上午8点半到下午5点半，中午12点到下午13点午休。工作地点：锦州市妇联四楼。 09:17地区：辽宁-沈阳咨询电话：帮助网友：79099 次点赞人数：<span class="s-c666" id="r_1 人你好，借款主张偿还的诉讼时效为2年，超过的一般视为放弃诉讼追偿的权利；诉讼时效因债务人承诺限期给付情况而延长（一般可以书面承诺和口头承诺录音为证据证实这事）。
首先要写一份合格的起诉状，诉状的内容包括原告、被告的基本情况(明确的姓名、住址、职业、年龄、工作单位等)、诉讼请求、事实与理由。其次，要提供主要证据的复印件以及原告身份证复印件。 10:05地区：辽宁-沈阳咨询电话：帮助网友：84936 次点赞人数：<span class="s-c666" id="r_2 人可来电咨询详谈，帮你研究个方案，争取得到一个好的结果。 10:12地区：辽宁-沈阳咨询电话：15998***帮助网友：922 次点赞人数：<span class="s-c666" id="r_ 人你好，借款主张偿还的诉讼时效为2年，超过的一般视为放弃诉讼追偿的权利；诉讼时效因债务人承诺限期给付情况而延长（一般可以书面承诺和口头承诺录音为证据证实这事）。首先要写一份合格的起诉状，诉状的内容包括原告、被告的基本情况(明确的姓名、住址、职业、年龄、工作单位等)、诉讼请求、事实与理由。其次，要提供主要证据的复印件以及原告身份证复印件。 10:50地区：辽宁-锦州咨询电话：帮助网友：38850 次点赞人数：<span class="s-c666" id="r_89 人借款主张偿还的诉讼时效为2年，超过的一般视为放弃诉讼追偿的权利；诉讼时效因债务人承诺限期给付情况而延长（一般可以书面承诺和口头承诺录音为证据证实这事）。 首先要写一份合格的起诉状，诉状的内容包括原告、被告的基本情况(明确的姓名、住址、职业、年龄、工作单位等)、诉讼请求、事实与理由。其次，要提供主要证据的复印件以及原告身份证复印件。 14:51地区：辽宁-沈阳咨询电话：帮助网友：37352 次点赞人数：<span class="s-c666" id="r_20 人如果数额较大，可起诉要求返还，如果有借条、欠条、借款协议、收条、还款计划、汇款单、转账单、银行流水记录等书面证据，则起诉后胜诉的可能性较大，民间借贷纠纷是否能取得胜诉结果，与庭审中双方表现是否能让法官信服有莫大关联。如有需要请来电咨询或面谈。 15:53地区：辽宁-沈阳咨询电话：13998***帮助网友：4421 次点赞人数：<span class="s-c666" id="r_ 人你好，借款主张偿还的诉讼时效为2年，超过的一般视为放弃诉讼追偿的权利；诉讼时效因债务人承诺限期给付情况而延长（一般可以书面承诺和口头承诺录音为证据证实这事）。 首先要写一份合格的起诉状，诉状的内容包括原告、被告的基本情况(明确的姓名、住址、职业、年龄、工作单位等)、诉讼请求、事实与理由。其次，要提供主要证据的复印件以及原告身份证复印件。 13:38}