quanghoasla > 26-07-11, 07:01 PM
Noname > 26-07-11, 07:25 PM
DoCmd.SetWarnings False
Docmd.OpenQuery "Query 1"
Docmd.SetWarnings True
quanghoasla > 26-07-11, 08:28 PM
quanghoasla > 27-07-11, 11:29 PM
thisplus > 29-07-16, 06:48 PM
(26-07-11, 07:25 PM)Noname Đã viết:Bác noname cho mình hỏi là đoạn code bác đưa ra viết vào đâu vậy. Mình cũng mới tìm hiểu Access nên không rõ lắm. Bác có thể hướng dẫn thêm cho mình được không? Bác tả kỹ đoạn tạo code và áp dung nó chạy ở đâu giúp mình nhé.Mã:DoCmd.SetWarnings False
Docmd.OpenQuery "Query 1"
Docmd.SetWarnings True
Thế Query 1 bằng tên query append của bạn.
Có nhiều cách khác như dùng macro, chỉnh lại trong option... nhưng cách này là thông dụng nhất!
zinzin8x > 29-07-16, 06:53 PM
Che_Guevara > 29-07-16, 11:30 PM
thisplus > 10-08-16, 09:58 AM
toancvp > 11-08-16, 09:06 AM
ongke0711 > 11-08-16, 10:11 AM
(11-08-16, 09:06 AM)toancvp Đã viết: Trong thực tế, em nghĩ nhu cầu tắt thông báo append là khá cần thiết cho việc làm phần mềm chạy có vẻ mượt, nhưng đôi khi nên tránh dùng. Lý do em đưa ra bởi vì, thông báo của nó có chứa thông tin bao nhiêu record sẽ được thêm vào, đồng thời cho phép có đồng ý tiếp tục hay là không ./. và dù có để lại thì tùy chọn Yes/No của người dùng cũng ko thể can thiệp vào code được.
...
Dim db As DAO.Database
Dim lngRowsAffected As Long
Dim lngRowsDeleted As Long
Set db = CurrentDb
' Chạy câu lệnh SQL Action Query hoặc Query đã lưu (saved Query) cũng được'
db.Execute QueryName, dbFailOnError
' Hiện thông báo có bao nhiêu records được tạo/xóa...'
lngRowsAffected = db.RecordsAffected
MsgBox CStr(db.RecordsAffected) & " dòng đã cập nhật."
db.Execute "DELETE * FROM TenBang WHERE DieuKien", dbFailOnError
lngRowsDeleted = db.RecordsAffected
MsgBox CStr(db.RecordsAffected) & " dòng đã xóa."
DoCmd.TransferSpreadsheet acImport, , "TempImportExcel", FilePath, True