如何在Access中将表A的用户记录设为表B的考勤字段？

先说明：不推荐你要的表B结构 #

你想要的表B是横向交叉表结构，这种设计不符合关系型数据库的第三范式，会带来诸多问题：

• 新增/删除用户时必须手动修改表B的字段结构，维护成本高
• 统计考勤数据（比如某用户全勤天数、某日期缺勤人数）时，SQL查询会异常复杂
• Access单表最多支持255个字段，用户数量过多时会直接受限

推荐的规范表结构（更实用） #

正确的设计应该采用纵向记录表，而非横向交叉表：

1. 表A（用户表）：保留现有结构，将NAME设为主键（唯一标识每个用户）

   NAME	INFO
   Name 1	详情1
   Name 2	详情2

2. 表B（考勤记录表）：设置三个核心字段

   • DATE：日期（短日期类型）
   • USER_NAME：用户名（关联表A的NAME字段，建议设为外键）
   • ATTENDANCE_STATUS：考勤状态（文本/是/否类型，比如"是"/"否"/"请假"）

   示例数据：

   DATE	USER_NAME	ATTENDANCE_STATUS
   01/01/2024	Name 1	是
   01/01/2024	Name 2	是
   02/01/2024	Name 1	否
   02/01/2024	Name 2	是

这种结构的优势：

• 新增用户无需修改表结构，直接在表A添加记录即可
• 统计查询简单，比如查询某用户全勤天数：SELECT COUNT(*) FROM 表B WHERE USER_NAME='Name 1' AND ATTENDANCE_STATUS='是'
• 可以用Access的交叉表查询生成你想要的横向表格视图，无需修改底层表结构

如果坚持要生成横向的表B（用VBA实现） #

如果你一定要按原需求生成动态字段的表B，可以用Access的VBA代码自动创建：

1. 打开Access，按Alt+F11打开VBA编辑器
2. 插入新模块，粘贴以下代码：

Sub CreateAttendanceTable()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim tblDef As DAO.TableDef
    Dim fld As DAO.Field
    Dim userName As String
    
    Set db = CurrentDb()
    
    ' 删除已存在的表B（如果需要）
    On Error Resume Next
    db.TableDefs.Delete "表B"
    On Error GoTo 0
    
    ' 创建新表B
    Set tblDef = db.CreateTableDef("表B")
    
    ' 添加DATE字段
    Set fld = tblDef.CreateField("DATE", dbDate)
    tblDef.Fields.Append fld
    
    ' 从表A读取所有用户名，添加为表B的字段
    Set rs = db.OpenRecordset("SELECT NAME FROM 表A")
    Do While Not rs.EOF
        userName = rs!NAME
        ' 处理特殊字符（Access字段名不能含特殊字符）
        userName = Replace(userName, " ", "_")
        Set fld = tblDef.CreateField(userName, dbText, 10) ' 文本类型，长度10足够存"是"/"否"
        tblDef.Fields.Append fld
        rs.MoveNext
    Loop
    rs.Close
    
    ' 将表B添加到数据库
    db.TableDefs.Append tblDef
    
    MsgBox "表B创建完成！"
End Sub

3. 运行代码，即可自动根据表A的用户生成表B的字段

注意事项 #

• 代码中的表A和表B要替换成你实际的表名
• 如果用户名包含空格/特殊字符，代码会自动替换为下划线，避免字段名非法
• 后续新增用户时，需要重新运行代码修改表B结构，或扩展代码实现自动检测新增用户

内容的提问来源于stack exchange，提问作者platimin