次の方法で共有

複数のフィールドの追加

適用先: Access 2013、Office 2013

状況によっては、フィールドの配列とそれらのフィールドに対応する値を AddNew メソッドに渡す方が、新しいフィールドを 1 つずつ追加して Value を何度も設定するよりも効率がよい場合があります。 FieldList が配列である場合、Values も同じ数のメンバーを持つ配列にする必要があり、それ以外のものを指定するとエラーが発生します。 また、一方の配列におけるフィールド名の順序と、もう一方の配列におけるフィールド値の順序は、一致している必要があります。 フィールドの配列と値の配列を 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
  • Last updated on