Question

我在用户表单上有2个文本框，TextboxA和TextboxB。用户在TextboxA中键入一个数字，在TextboxB中键入另一个更大的数字。 VBA命令用于计算数字之间的差异，然后将所述记录数插入tblA。现场数据＆＃34; ReceiptNr＆＃34;是从TextboxA值开始，然后增加一个upto并包括TextBoxB的数量。这将是一个onclick事件。该事件还用于确保TextboxA中的值不在表tblA中。有什么想法吗？

Answer 1

您可以将此功能用作骨架 - 只需将值传递给两个参数：

Public Sub InsertEmptyRecords(ByVal lngRecords As Long, ByVal lngNumber As Long)

  Dim rstInsert   As DAO.Recordset
  Dim lngLoop     As Long

  Set rstInsert = Me.RecordsetClone

  With rstInsert
    For lngLoop = 1 To lngRecords
      .AddNew
        .Fields("ReceiptNr").Value = lngNumber + lngLoop
      .Update
    Next
    .Close
  End With

  Set rstInsert = Nothing

End Sub

访问vba-向表中添加特定数量的记录

1 个答案: