KheNgot > 14-07-21, 06:39 AM
tungthoi15 > 14-07-21, 07:53 AM
(14-07-21, 06:39 AM)KheNgot Đã viết: Chào cả nhà!
Em đang thiết 1 query Append để cập nhật dữ liệu từ bảng tblDuLieuCapNhat vào bảng tblPhatSinh. Em đang bị mắc chỗ thiết lập đoạn code để nó tự động cập nhật dữ liệu ạ:
Link: https://drive.google.com/file/d/1QCuS_Kx...sp=sharing
Vậy em gửi lên đây nhờ mọi người hỗ trợ em thêm ạ!
Cám ơn mọi người nhiều!
DoCmd.SetWarnings False
[/b]
DoCmd.OpenQuery "AppCapNhat"
DoCmd.SetWarnings True
[b]MsgBox "Da cap nhat xong!", vbOKOnly, "Thong bao!"
KheNgot > 14-07-21, 08:08 AM
(14-07-21, 07:53 AM)tungthoi15 Đã viết:(14-07-21, 06:39 AM)KheNgot Đã viết: Chào cả nhà!
Em đang thiết 1 query Append để cập nhật dữ liệu từ bảng tblDuLieuCapNhat vào bảng tblPhatSinh. Em đang bị mắc chỗ thiết lập đoạn code để nó tự động cập nhật dữ liệu ạ:
Link: https://drive.google.com/file/d/1QCuS_Kx...sp=sharing
Vậy em gửi lên đây nhờ mọi người hỗ trợ em thêm ạ!
Cám ơn mọi người nhiều!
Tại nút Auto Update, Bạn thêm code sau vào sự kiện On Click
[img][/img]
Mã:DoCmd.SetWarnings False
[/b]
DoCmd.OpenQuery "AppCapNhat"
DoCmd.SetWarnings True
[b]MsgBox "Da cap nhat xong!", vbOKOnly, "Thong bao!"
tungthoi15 > 14-07-21, 08:54 AM
Private Sub Form_Timer()
If Format(Now(), "hh:mm:ss AMPM") >= "00:00:01 AM" Then
Call AutoUpdate_Click
DoCmd.Quit
End If
End Sub