Ngăn chặn không cho Access tự động lưu

Chúng ta biết rằng Access luôn tự động lưu lại các record mỗi khi ta nhập mới hoặc sửa đổi. Để ngăn không cho access tự động lưu, muốn lưu phải hỏi trước, nếu đồng ý thì lưu, nếu không thì undo lại giá trị trước khi thay đổi, ta dùng thủ thuật sau của sự kiện BeforeUpdate của form

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 

Tưởng rằng...

Tưởng rằng ngày đã qua
Tôi tìm về đêm tối
Nào ngờ ngày chưa vội
Khép chân ở lại chiều

Tưởng rằng chuyện tình yêu
Mỗi lần là một mới
Cuối cùng chỉ rắc rối
Còn ở lại cùng tôi

Tưởng rằng người một nơi
Và tôi đây một chốn
Ai ngờ tôi phải trốn
Phải chạy chính tôi rồi

Tưởng rằng... chỉ thế thôi

08/09/2012

Thanh Phương

BẤT CHỢT ... ĐAU

Bất chợt thấy anh chốn đông người
Mặt thì rạng rỡ "toét" miệng cười
Ôm eo, áp má con gái lạ
Đau đắng lòng tim rỉ máu tươi...

10/09/2012

Thanh Phương

THU

Hạ qua thu đã đến rồi
Lá vàng theo gió cũng rời mà đi
Phải chăng gió nói điều gì?
Để cành xa lá chia ly vô tình

10/09/2012
Thanh Phương