Ajout de plusieurs champs

S’applique à : Access 2013, Office 2013

Il est parfois plus efficace de passer un tableau de champs et leurs valeurs correspondantes à la méthode AddNew au lieu de définir plusieurs fois Value pour chaque nouveau champ. Si l'argument FieldList est un tableau, l'argument Values doit également représenter un tableau comptant le même nombre de membres, sans quoi une erreur se produit. L'ordre des noms de champs doit correspondre à l'ordre des valeurs de champs dans chaque tableau. Le code suivant passe un tableau de champs et un tableau de valeurs à la méthode 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