tuanta1986 > 02-10-20, 05:18 PM
(02-10-20, 12:05 PM)tranthanhan1962 Đã viết:(02-10-20, 10:47 AM)tuanta1986 Đã viết: E cảm ơn bác đã làm giúp, như này là đúng theo ý e muốn rồi ạ. E chưa biết gì về code vba nên đang search xem code có ý nghĩa gì.Code này đơn giản mà. Lúc đầu dự định viết DAO nhưng thôi, ra lệnh trực tiếp luôn, nên bị thừa, quên xóa
Private Sub AddRecord_Click() : Sự cố khi bấm vào nút AddRecord
Dim dbs As DAO.Database: Thừa, xóa cũng được.
Set dbs = CurrentDb: Thừa, xóa cũng được.
DoCmd.OpenQuery "Q_AddRecord" : Chạy query có tên Q_AddRecord. Querry này là query Append chèn các record có tên Danh sách khoa phòng từ table T_DSKhoaPhong vào table T_SoLieu
Me.Requery: Truy vấn lại nguồn Recordsource của form để cập nhật lại dữ liệu để hiển thị (Danh sách khoa phòng mới đươc, thêm vào table do query Q_AddRecord thực hiện đã có trong table nhưng chưa được hiển thị trên form.
End Sub: Kết thúc Sub
----------------
Private Sub Form_Open(Cancel As Integer): Sự cố khi mở form
Me.Requery: Truy vấn lại nguồn Recordsource của form để cập nhật lai dữ liệu giá trị theo textbox LocNgay
End Sub: Kết thúc Sub
-----------------------
Private Sub LocNgay_AfterUpdate(): Sự cố khi thay đỏi giá trị textbox LocNgay
Me.Requery: Truy vấn lại nguồn Recordsource của form để cập nhật lai dữ liệu
End Sub: Kết thúc Sub
Chỉ có thế! Rất đơn giản. Code VBA cũng chỉ là những lệnh đươc viết bằng ngôn ngữ VBA, kiểu như tiếng Anh, tiéng Pháp vậy thôi . Ví du; Người việt nói "Đóng lại", người Pháp nói: "Fermer", người Anh nói: "Close", VBA đa phần sử dụng tiêng Anh nên cũng viết là "Close"