Office中国论坛/Access中国论坛

标题: 【源码】使用VBA代码自动为所有表添加录入人 录入日期，更新人 更新日期字段-除系统表 [打印本页]
作者: tmtony    时间: 2015-7-1 10:01
标题: 【源码】使用VBA代码自动为所有表添加录入人 录入日期，更新人 更新日期字段-除系统表
为了记录数据最后修改人及最后的修改日期时间，通常我们在表中需要添加修改人及修改日期字段，但如果每个表都手工去添加这2个字段，的确是一件累人的事，使用VBA代码自动为所有表添加更新人 更新日期字段（除系统表外），大家也可再扩展一下，增加录入人 录入日期时间  以及是否删除等字段，也可根据需要将录入人 修改人员等的字段类型改为长整型。 详细代码如下：
  1. Private Sub Command0_Click()
  2. Dim tdf As TableDef
  3. Dim fld As DAO.Field
  4. Dim prp As DAO.Property
  5. Dim strFldName As String

  7. Dim blnHavUpdateMan As Boolean
  8. Dim blnHavUpdateDate As Boolean
  9. On Error Resume Next
  10. For Each tdf In CurrentDb.TableDefs
  11. If Left(tdf.Name, 4) <> "Msys" Then
  12.   Debug.Print tdf.Name
  13.   For Each fld In tdf.Fields
  14.     strFldName = fld.Name
  15.     '判断原来表中是否有更新人及更新日期字段
  16.     If strFldName = "FUpdateMan" Then
  17.        blnHavUpdateMan = True
  18.     End If
  19.    
  20.     If strFldName = "FUpdateDate" Then
  21.        blnHavUpdateDate = True
  22.     End If

  24.     If strFldName = "FUpdateMan" Then
  25.        fld.Type = dbLong
  26.        fld.Properties("Caption") = "修改人"
  27.        fld.Properties("Description") = "修改人"
  28.        fld.DefaultValue = 0
  29.     End If
  30.    
  31.    Next
  32.    
  33.    '没有才添加相应的字段
  34.    If blnHavUpdateMan = False Then
  35.        Set fld = tdf.CreateField()
  36.        fld.Name = "FUpdateMan"
  37.        fld.Type = dbText
  38.        fld.Size = 25
  39.        fld.Properties("Caption") = "修改人"
  40.        fld.Properties("Description") = "修改人"
  41.        fld.DefaultValue = ""
  42.        tdf.Fields.Append fld
  43.    
  44.    End If
  45.    
  46.    If blnHavUpdateMan = False Then
  47.        Set fld = tdf.CreateField()
  48.        fld.Name = "FUpdatedate"
  49.        fld.Type = dbDate
  50.         
  51.        fld.Properties("Caption") = "修改日期"
  52.        fld.Properties("Description") = "修改日期"
  53.        fld.DefaultValue = "date()"
  54.        tdf.Fields.Append fld
  55.    
  56.    End If
  57.    

  59. End If
  60. Next
  61. End Sub
复制代码


作者: roych    时间: 2015-7-1 10:35
我觉得，应该把链接表的情况考虑上。{:soso_e120:}
作者: tmtony    时间: 2015-7-1 12:35
是的
作者: zpy2    时间: 2015-7-2 05:22
不错，赞-一个



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3