Dùng Array để AddNew Record

Thông thường chúng ta hay dùng cách sau để AddNew một Recordset

Public Sub AddNew()
  Dim DB As Database
  Dim rs As Recordset
  Set DB = CurrentDB
  Set rs = DB.OpenRecordset("tblCompany", dbOpenTable)
  With rs
     .AddNew
     !CompanyName = "A"
     !Address = "B"
     !City = "C"
     .Update
  End With
  rs.Close: Set DB = Nothing
End Sub 


Ta cũng có thể dùng Array như sau

Public Sub AddNewArray()
  Dim DB As Database
  Dim rs As Recordset
  Set DB = CurrentDB
  Set rs = DB.OpenRecordset("tblCompany", dbOpenTable)
  varfields = Array("CompanyName", "Address", "City")
  varValues = Array("A", "B", "C")
  rs.AddNew varfields, varValues
  rs.Update
  rs.Close: Set DB = Nothing
End Sub 

(Theo Xuân Thanh, thuthuataccess)