MSACCESS从表单txt和cbo框向表中添加记录

Question

我正在尝试加快将相同的库存项目添加到销售表中的过程。要添加的每条记录的数据都是相同的。我有一个包含七个字段的未绑定表单。BookID、购买日期(日期)、项目大小(文本)、描述(文本)、卖家名称(文本)、条件(文本)和支付价格(货币)。有一个第8个字段，其数字表示要添加的记录数，即50，表示要添加的50个库存项目。

我一直在尝试用一个追加查询来做这件事。我在运行追加查询的表单上有一个cmd按钮。

目前，我只向append查询添加了两个字段。当我运行查询时，它添加了两条记录，而不是一条！为什么？而且我还没有尝试添加日期-日期通常是一个问题！

我这样做是基于我在stackoverlow上读到的另一个问题，但不要认为这会以我需要的方式工作。最终，当我单击按钮时，我希望它添加记录的数量，例如50，如果这是第8个字段中的数字。

有什么建议是最好的方法吗？下面是使用前两个字段的追加查询的sql。

谢谢

INSERT INTO tblSale (BookID, BookCoverType)
SELECT tblSale.BookID,
       tblSale.BookCoverType
FROM tblSale
WHERE tblSale.BookID = [forms]![FrmAddKawekaStock]![txtBookID] AND
      tblSale.BookCoverType) = [forms]![FrmAddKawekaStock]![cboKaweka]

最终结果如下所示。

    Private Sub cmdAddStockver2_Click()
    On Error GoTo errorhandler

    Dim sql As String
    Dim rs As DAO.Recordset
    Dim intx As Integer
    Dim intz As Integer

    intz = Forms!frmaddkawekastock!txtQuantityToAdd

    sql = "tblSale"

    Set rs = CurrentDb.OpenRecordset(sql)

    MsgBox " adding the record to rs"

    For intx = 1 To intz
    With rs
        .AddNew
        .Fields!BookID = Forms!frmaddkawekastock!txtBookID
        .Fields!bookPurchaseDate = Forms!frmaddkawekastock!txtPurchaseDate
        .Fields![Book Size] = Forms!frmaddkawekastock!cboSize
        .Fields!BookCoverType = Forms!frmaddkawekastock!cboKaweka
        .Fields!Seller = Forms!frmaddkawekastock!cboSellerName
        .Fields!BookCondition = Forms!frmaddkawekastock!txtCondition
        .Fields!BookPaid = Forms!frmaddkawekastock!txtPaidPrice
        .Update
    End With
    MsgBox "Loop done and record added, next loop"
    Next intx

    rs.Close
    Set rs = Nothing
    MsgBox "Completed sucessfully"

    ExitSub:
        Exit Sub

    errorhandler:
        MsgBox "Error #: " & Err.Number & vbCrLf & vbCrLf & Err.Description
        Resume ExitSub

    End Sub

Answer 1

只是回答这个问题来结束它。上面的记录集代码就是我最终得到的结果。干杯