Добавление нескольких полей

Область применения: Access 2013, Office 2013

Иногда может быть эффективнее передавать массив полей и соответствующие им значения в метод AddNew , а не задавать значение несколько раз для каждого нового поля. Если FieldList является массивом, значения также должны быть массивом с одинаковым числом элементов; в противном случае возникает ошибка. Порядок имен полей должен соответствовать порядку значений полей в каждом массиве. Следующий код передает массив полей и массив значений в метод AddNew .

 
'BeginAddNew2 
 Dim avarFldNames As Variant 
 Dim avarFldValues As Variant 
 
 avarFldNames = Array("CompanyName", "Phone") 
 avarFldValues = Array("Sample Shipper 2", "(931) 555-6334") 
 
 If objRs1.Supports(adAddNew) Then 
 objRs1.AddNew avarFldNames, avarFldValues 
 End If 
 
 'Re-establish a Connection and update 
 Set objRs1.ActiveConnection = GetNewConnection 
 objRs1.UpdateBatch 
'EndAddNew2