Hinzufügen mehrerer Felder

Gilt für: Access 2013, Office 2013

Hin und wieder kann es effizienter sein, ein Array von Feldern und die entsprechenden Werte an die AddNew-Methode zu übergeben, anstatt Value mehrmals für jedes neue Feld festzulegen. Wenn FieldList ein Array ist, muss Values ebenfalls ein Array mit der gleichen Anzahl von Elementen sein; andernfalls tritt ein Fehler auf. Die Reihenfolge der Feldnamen muss der Reihenfolge der Feldwerte in jedem Array entsprechen. Mit dem folgenden Code wird ein Array von Feldern und ein Array von Werten an die AddNew -Methode übergeben.

 
'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