对窗体主窗体和子窗体的撤销记录的代码怎么写

pq318

如题，有主窗体form1和子船体form1子窗体，如何用Command9 里面的undo，我写了不起作用，谢谢各位了

tmtony

docmd 里的undo
me.undo

但要同时只能主窗体和子窗体 一个对象作用，因为只要你离开子窗体，那子窗体内容 已经保存了

紫风

用未绑定窗体不就好了？你不点保存就不保存……
个人习惯：主窗体用未绑定窗体，子窗体用临时表窗体。保存时主、子记录一起保存，退出时清空子临时表。
给楼主个例子：
Private Sub cmd保存_Click()
     If MsgBox("您确认要保存记录吗？", vbQuestion + vbYesNo, SoftName) = vbYes Then
            Me.Refresh
            Dim rst As New ADODB.Recordset
            Dim Stemp As String
            rst.Open "tbl现金账单", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
                With rst
                    .AddNew
                    ![账单号码] = Me.账单号码
                    ![日期] = Me.日期
                    ![客户名称] = Me.客户名称
                    .Update
                End With
            rst.Close
            Set rst = Nothing
        
            DoCmd.SetWarnings False
            DoCmd.RunSQL "insert into tbl现金账单明细 SELECT tbl现金账单明细temp.* FROM tbl现金账单明细temp;"
            DoCmd.SetWarnings True
End Sub

hgxly

但要同时只能主窗体和子窗体 一个对象作用，因为只要你离开子窗体，那子窗体内容 已经保存了

这确实是个问题，有时还没有完成子窗体的输入，按错键会打开主窗体的左上角菜单，不小心按了“退出”那一条记录就给保存下来了，很麻烦。

我采取的解决方法是：在退出子窗体的过程中加个提示框，“是”就让它保存；“否”的话，或回到子窗体重新修改后再保存，或写一段代码，在关闭主窗体前根据相应条件删除数据库中的这条记录。