Forms 从一个未绑定窗体vba access添加多个记录

我有一个未绑定表单，可以在其中输入

订单1

、

订单2

、

订单3

的值。使用名为“保存加载”的按钮，我想将其输入到“加载数据输入”表中，

order1

将创建一个记录行，

order2

第二行，依此类推。到目前为止，我在单击事件时使用了以下

，但它只为
顺序1添加了一行。如何将其余的订单添加为单独的行？请帮帮我，我是新手

Private Sub SAVE_LOAD_Click()
    InsSQL = "INSERT INTO [LOAD DATA ENTRY] ( [ORDER NO], [OPERATION NAME], [SH SPEC], [FINISHED ITEM NO], [FINISHED ITEM DESCRIPTION], [ORDER QTY], [VACUUM EQUIPMENT], [LOAD], [LOAD QTY], [LOAD RACKING], [NO OF BASKETS], [BASKET PLACEMENT], [LOT BASKET AND SAMPLES], [MAX WEIGHT], [ACTUAL WEIGHT], [LOAD DAILY ID]) " & _
             " Values ('" & Me.ORDER_NO_1 & "','" & Me.OPERATION_NAME_1 & "','" & Me.HT_SPEC_1 & "','" & Me.FINISHED_ITEM_NO_1 & "','" & Me.FINISHED_ITEM_DESCRIPTION_1 & "','" & Me.ORDER_QTY_1 & "','" & Me.VACUUM_EQUIPMENT_1 & "','" & Me.LOAD_NUMBER_ID & "','" & Me.LOAD_QTY_1 & "','" & Me.LOAD_RACKING_1 & "','" & Me.NO_OF_BASKETS_1 & "','" & Me.BASKET_LOCATION_1 & "','" & Me.LOT_BASKET___SAMPLES_1 & "','" & Me.MAX_WEIGHT_1 & "','" & Me.ACTUAL_WEIGHT_1 & "','" & Me.LOAD_DAILY_ID & "')"

您可以尝试对其进行迭代：

Dim i as Integer

    for i = 1 to 3
        InsSQL = "INSERT INTO [LOAD DATA ENTRY] ( [ORDER NO], [OPERATION NAME], [SH SPEC], [FINISHED ITEM NO], [FINISHED ITEM DESCRIPTION], [ORDER QTY], [VACUUM EQUIPMENT], [LOAD], [LOAD QTY], [LOAD RACKING], [NO OF BASKETS], [BASKET PLACEMENT], [LOT BASKET AND SAMPLES], [MAX WEIGHT], [ACTUAL WEIGHT], [LOAD DAILY ID]) " & _
                 " Values ('" & Me.ORDER_NO_"' & i,'" & Me.OPERATION_NAME_"' & i,'" & Me.HT_SPEC_"' & i,'" & Me.FINISHED_ITEM_NO_"' & i,'" & Me.FINISHED_ITEM_DESCRIPTION_"' & i,'" & Me.ORDER_QTY_"' & i,'" & Me.VACUUM_EQUIPMENT_"' & i,'" & Me.LOAD_NUMBER_ID & "','" & Me.LOAD_QTY_"' & i,'" & Me.LOAD_RACKING"' & i,'" & Me.NO_OF_BASKETS_"' & i,'" & Me.BASKET_LOCATION_"' & i,'" & Me.LOT_BASKET___SAMPLES_"' & i,'" & Me.MAX_WEIGHT_"' & i,'" & Me.ACTUAL_WEIGHT_"' & i,'" & Me.LOAD_DAILY_ID & "')"

    next i

您可以尝试对其进行迭代：

Dim i as Integer

    for i = 1 to 3
        InsSQL = "INSERT INTO [LOAD DATA ENTRY] ( [ORDER NO], [OPERATION NAME], [SH SPEC], [FINISHED ITEM NO], [FINISHED ITEM DESCRIPTION], [ORDER QTY], [VACUUM EQUIPMENT], [LOAD], [LOAD QTY], [LOAD RACKING], [NO OF BASKETS], [BASKET PLACEMENT], [LOT BASKET AND SAMPLES], [MAX WEIGHT], [ACTUAL WEIGHT], [LOAD DAILY ID]) " & _
                 " Values ('" & Me.ORDER_NO_"' & i,'" & Me.OPERATION_NAME_"' & i,'" & Me.HT_SPEC_"' & i,'" & Me.FINISHED_ITEM_NO_"' & i,'" & Me.FINISHED_ITEM_DESCRIPTION_"' & i,'" & Me.ORDER_QTY_"' & i,'" & Me.VACUUM_EQUIPMENT_"' & i,'" & Me.LOAD_NUMBER_ID & "','" & Me.LOAD_QTY_"' & i,'" & Me.LOAD_RACKING"' & i,'" & Me.NO_OF_BASKETS_"' & i,'" & Me.BASKET_LOCATION_"' & i,'" & Me.LOT_BASKET___SAMPLES_"' & i,'" & Me.MAX_WEIGHT_"' & i,'" & Me.ACTUAL_WEIGHT_"' & i,'" & Me.LOAD_DAILY_ID & "')"

    next i

最简单（但最不易维护）的方法是再重复该行两次。为什么不将该订单表单绑定到一个表？Access具有用于多行数据输入的连续表单类型。最简单（但最不易维护）的方法是再重复该行两次。为什么不将此orders表单绑定到表？Access具有用于多行数据输入的连续表单类型。