根据组合框中的值添加新记录

Question

根据在组合框中选择的数字向 table 添加新记录的最简单方法是什么？ IE。我在组合框中选择了数字 6，并希望它将 6 条记录添加到 table，所有记录都具有相同的信息。

现在我正在使用 recAdd，但这样做我必须为每个可以选择的数字添加代码。如果我选择 6，那么我正在为 1 到 6 做一个 if 语句。

Answer 1

在这里使用函数：

将 add/update 包裹在一个循环中：

With rstInsert
  For i = 1 to CountOfNewRecords ' set to value from your combobox
    .AddNew
      For Each fld In rstSource.Fields
        With fld
          If .Attributes And dbAutoIncrField Then
            ' Skip Autonumber or GUID field.
          ElseIf .Name = "SomeFieldToPreset"
            rstInsert.Fields(.Name).Value = SomeValue
          ElseIf .Name = "SomeFieldToExclude"
            ' Leave blank
          Else
            ' All other fields.
            ' Copy field content.
            rstInsert.Fields(.Name).Value = .Value
          End If
        End With
      Next
    .Update
  Next
  ' Go to the new record and sync form.
  .MoveLast
  Me.Bookmark = .Bookmark
  .Close
End With

根据组合框中的值添加新记录

Adding new records based on value in combobox

ms-access

ms-access-2010