Добавление нескольких записей из одной несвязанной формы vba access

У меня есть одна несвязанная форма, где я могу ввести значения для Order 1, Order 2, Order 3. Используя кнопку «SAVE_LOAD», я хотел бы ввести ее в таблицу «LOAD DATA ENTRY», где Order 1 создаст одну запись, Order 2 вторую строку и так далее. До сих пор я использовал следующее событие on_click, но он добавляет только одну строку для Order 1. Как добавить остальные заказы в виде отдельных строк? Пожалуйста, помогите, я новичок в этом.Добавление нескольких записей из одной несвязанной формы vba access

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 & "')"

Unbound Form

источник

2016-06-10 EuroGeo

Простейшим (но наименее ремонтопригодны) подход был бы просто повторить эту линию еще два раза. –

Почему бы не связать эту форму заказа с таблицей? Доступ имеет непрерывный тип формы для ввода нескольких строк. – Parfait

Вы могли бы попытаться перебирать его:

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

источник

2016-06-15 17:51:16

Добавление нескольких записей из одной несвязанной формы vba access

ответ

Смежные вопросы