设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 3404|回复: 3
打印 上一主题 下一主题

[模块/函数] 对窗体主窗体和子窗体的撤销记录的代码怎么写

[复制链接]
1#
发表于 2011-8-22 09:13:58 | 显示全部楼层
本帖最后由 紫风 于 2011-8-22 09:19 编辑

用未绑定窗体不就好了?你不点保存就不保存……
个人习惯:主窗体用未绑定窗体,子窗体用临时表窗体。保存时主、子记录一起保存,退出时清空子临时表。
给楼主个例子:
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
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-6-5 00:49 , Processed in 0.087241 second(s), 23 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表