完善窗体数据修改历史记录的示例-vincent
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access开发平台


完善窗体数据修改历史记录的示例

发表时间:2023/8/18 16:24:33 评论(0) 浏览(3469)  评论 | 加入收藏 | 复制
   
摘 要:改成这样会更方便给每个窗体直接调用。
正 文:
      之前学弟分享的《窗体数据修改历史记录的示例;记录Access字段编辑保存日志的示例;记录字段操作日志【Access软件网】》

http://www.accessoft.com/article-show.asp?id=20823

我给他完善了一下,改成这样会更方便给每个窗体直接调用,改动的代码如下:

Public Function LoadRecordToTag(frm As Object)
         Dim ctl As Control
        For Each ctl In frm.Controls
            If (ctl.ControlType = acComboBox Or ctl.ControlType = acTextBox) And ctl.Name <> "历史记录" And ctl.Name <> "NoCheck" Then
                If frm.Controls(ctl.Name).Locked = False Then
                    frm.Controls(ctl.Name).Tag = "<" & frm.Controls(ctl.Name) & ">"
                End If
            End If
        Next
End Function

Public Function SaveRecordChange(frm As Object, ID As String)
    Dim changeTXT As String
    Dim ctl As Control
    Dim str1 As String
    For Each ctl In frm.Controls
        If (ctl.ControlType = acComboBox Or ctl.ControlType = acTextBox) And ctl.Name <> "历史记录" And ctl.Name <> "NoCheck" Then
            If frm.Controls(ctl.Name).Locked = False Then
                str1 = Trim(frm.Controls(ctl.Name & "_Label").Caption)
                If frm.Controls(ctl.Name).Tag <> "<" & frm.Controls(ctl.Name) & ">" Then
                    changeTXT = changeTXT & str1 & frm.Controls(ctl.Name).Tag & "→<" & frm.Controls(ctl.Name) & ">;"
                End If
            End If
        End If
    Next
         If changeTXT <> "" Then
            Set rst = CurrentDb.OpenRecordset("tbl操作日志", dbOpenDynaset)
            rst.AddNew
            rst!编号 = frm![ID]
            rst!用户 = GetParameter("Current User nickname")
            rst!时间 = Now()
            rst!修改历史 = changeTXT
            rst.Update
            rst.Close
          End If
End Function
        '加载数据到控件tag中,监视是否有修改
         Call LoadRecordToTag(Me)
‘保存
    If Not Me.DataEntry Then
       Call SaveRecordChange(Me, Me![PID])
    End If


Access软件网交流QQ群(群号:198465573)
 
 相关文章
简单实现记录用户操作日志功能  【MDZZ  2017/2/16】
快速开发平台企业版教程:SQL Server数据库自动备份及控制日...  【红尘如烟  2019/6/1】
Access快速开发平台升迁SQL Server后操作日志不显示的...  【宏鹏  2019/12/18】
Access快速开发平台--添加操作日志的方法  【欧志华  2021/6/30】
Access快速开发平台企业版--操作日志OperationTim...  【麥田  2022/10/28】
分享一个窗体数据修改历史记录的示例;记录Access字段编辑保存日...  【林海见  2023/8/16】
常见问答
技术分类
相关资源
文章搜索
关于作者

vincent

文章分类

文章存档

友情链接