小组会议 MS ACCESS

Question

我有一个监控员工休假和培训的数据库，每 8 周会有一个小组聚集然后进行培训，我所追求的是一种方法，而不是单独为每个成员分配一个培训活动 ID，而是打开活动和 select 参与者，从这里每个工作人员都会记录针对他们的特定培训到目前为止，我的每个员工都通过 ID 识别，每次培训都通过 GID 识别，但是我在针对所有 ID 进入此培训活动时遇到问题？

Answer 1

这 BULK INSERT 可能可以通过使用未绑定表单来完成。最少的控件将是一个列表框、组合框、一个文本框和一个按钮。

ListBox (staffList)，应该允许select多个项目；将从工作人员 table 获取其 RowSource，类似于

SELECT 
    staffID, 
    staffName
FROM 
    staffTable;

属性为 Bound Column : 1、Column Count : 2、Column Widths : 0cm;2.542cm

ComboBox (eventCombo)，会从事件table中获取它的RowSource，类似于

SELECT 
    eventID, 
    eventName
FROM 
    eventTable;

属性为 Bound Column : 1、Column Count : 2、Column Widths : 0cm;2.542cm

那么 TextBox (dateTxt) 将只有一个日期控件（用于事件的日期）。

按钮（addEventBtn）点击背后的代码很简单，

Private Sub addEventBtn_Click()
    Dim varItem As Variant

    If Me.staffList.ListIndex = -1 Then
        MsgBox "No Staff selected. You have to select at least one staff before you can proceed !", vbCritical
        Me.dateTxt.SetFocus
        Exit Sub
    End If

    If Me.eventCombo.ListIndex = -1 Then
        MsgBox "No Event selected. You have to select at least one staff before you can proceed !", vbCritical
        Me.dateTxt.SetFocus
        Exit Sub
    End If

    If IsNull(Me.dateTxt) Then
        MsgBox "No Date selected. You have to select Date before you can proceed !", vbCritical
        Me.dateTxt.SetFocus
        Exit Sub
    End If

    For Each varItem In Me.staffList.ItemsSelected
        CurrentDB.Execute "INSERT INTO tbl_EventList (eventID_FK, staffID_FK, eventDate) VALUES (" & _
                          Me.eventCombo & ", " & Me.staffList.ItemData(varItem) & ", " & Format(Me.dateTxt, "\#mm\/dd\/yyyy\#") & ")"
    Next
End Sub

这应该可行。请根据您的设计进行更改！如果您有任何问题，请将其添加到评论中。

小组会议 MS ACCESS

Group meetings MS ACCESS

ms-access-2007