Question

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

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

Answer 1

使用此处的功能：Duplicate Record with New Primary Key (VBA)

将循环中的添加/更新包裹起来：

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

根据组合框

1 个答案: