Question

我有一个数据库，记录和跟踪我们公司集团内每位员工的培训记录。

数据库中的一个表格是“添加培训记录”，目前这是按人名进行的，添加了课程ID，日期，证书等。我想要做的是能够添加多个人ID ，由于很多人可以参加相同的课程/日期，所以我必须多次添加课程详情，这非常耗时且烦人。

Answer 1

你需要在幕后进行广泛的VBA才能做到这一点，以及一些让你的生活更轻松的控件（多选组合或列表框）。如果需要，您可以在文本框中执行此操作，使用用户ID之间的分号。

由于文本框更容易，让我们来看看。你要做的是在提交按钮后面有这样的东西：

Dim db as Database
Dim rec as Recordset
Dim str as String

Set db = CurrentDB
Set rec = db.OpenRecordSet("SELECT * FROM tblMyTable")

'Throw the User IDs into an array
Dim var As Variant
Dim i As Long

str = me.txtUserIDs
var = Split(str, ";")

'For every User ID, add a new record to the database
For i = 0 To UBound(var)
    rec.AddNew
    rec("UserID") = var(i)
    rec("CourseID") = Me.txtCourseID
    rec("CourseDate") = Me.txtCourseDate
    'ETC... adding fields as needed
    rec.Update
Next i

这完全是袖手旁观（当然）要求您更改相应的变量名称，但它应该为您提供如何解决问题的可靠大纲。

如何将多个值字段添加到MS Access窗体

1 个答案: