Microsoft Access中如何批量创建仅EmployeeID不同其余信息一致的票务记录

方案1：表单+VBA方案（最适合普通用户） #

这是最常用的方案，操作逻辑直观，仅需少量代码：

• 创建未绑定表单，添加两类控件：
  1. 通用票务信息输入控件：对应TicketsBooked表除EmployeeID、主键ID外的所有字段（如票务类型、出行日期、金额、备注等），所有控件设置为未绑定
  2. 员工多选列表框：行源设为SELECT EmployeeID, EmployeeName FROM Employees ORDER BY EmployeeName;，「多重选择」属性设为简单或扩展，支持框选/按住Ctrl多选员工
• 表单底部添加「批量生成记录」按钮，为按钮绑定单击事件，VBA代码示例如下：

Private Sub btnBatchGenerate_Click()
    Dim rs As DAO.Recordset
    Dim selectedEmpID As Long
    Dim selectedItem As Variant
    
    ' 读取表单中填写的通用票务信息，字段名请替换为你表中的实际字段
    Dim ticketType As String: ticketType = Me.txtTicketType
    Dim ticketDate As Date: ticketDate = Me.dtTicketDate
    Dim ticketAmount As Currency: ticketAmount = Me.txtAmount
    Dim ticketRemark As String: ticketRemark = Nz(Me.txtRemark, "")
    
    ' 遍历所有选中的员工，逐个插入记录
    For Each selectedItem In Me.lstEmployees.ItemsSelected
        selectedEmpID = Me.lstEmployees.ItemData(selectedItem)
        Set rs = CurrentDb.OpenRecordset("TicketsBooked", dbOpenDynaset)
        With rs
            .AddNew
            !EmployeeID = selectedEmpID
            !TicketType = ticketType
            !TicketDate = ticketDate
            !Amount = ticketAmount
            !Remark = ticketRemark
            .Update
            .Close
        End With
    Next
    
    Set rs = Nothing
    MsgBox "操作完成，共生成" & Me.lstEmployees.ItemsSelected.Count & "条票务记录", vbInformation
End Sub

• 注意事项：代码中的控件名、字段名需要和你实际的表单控件、数据表字段保持一致；如果提示DAO库未引用，可在VBA编辑器的「工具-引用」中勾选「Microsoft DAO x.x Object Library」。

方案2：纯查询方案（无需编写VBA） #

如果不想写代码，可以用追加查询实现批量插入：

• 首先创建一个单行临时表Temp_Ticket_Info，存储你要生成的通用票务信息，仅需录入1条数据
• 编写并运行如下追加查询即可一次性生成所有员工的对应票务记录，可添加WHERE条件筛选需要生成记录的员工：

INSERT INTO TicketsBooked (EmployeeID, TicketType, TicketDate, Amount, Remark)
SELECT 
    e.EmployeeID,
    t.TicketType,
    t.TicketDate,
    t.Amount,
    t.Remark
FROM Employees e, Temp_Ticket_Info t
-- 可添加筛选条件，比如仅给市场部员工生成：WHERE e.Department = "市场部"

方案3：批量导入方案（适合超大量数据） #

如果需要一次给数百名员工生成记录，还可以将选中的EmployeeID导出到Excel，和通用票务信息拼接后，直接导入到TicketsBooked表中，适合批量处理场景。

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