【源码】使用VBA代码自动为所有表添加录入人 录入日期，更新人 更新日期字段-除系统表

tmtony

为了记录数据最后修改人及最后的修改日期时间，通常我们在表中需要添加修改人及修改日期字段，但如果每个表都手工去添加这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
   
6. 
   
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
    
23. 
    
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.    
    
58. 
    
59. End If
    
60. Next
    
61. End Sub

复制代码

roych

我觉得，应该把链接表的情况考虑上。{:soso_e120:}

tmtony

是的

zpy2

不错，赞-一个