-
RE: Ngăn chặn không cho Access tự động lưu record
nmhung49 > 24-03-13, 07:33 PM
Các bạn có thể dùng sự kiện Update ở MainForm và SubForm để ngăn việc lưu các Record
Ở Main Form
Nếu có SubForm thì tiếp tục code trênMã PHP:Private Sub Form_BeforeUpdate(Cancel As Integer)
If MsgBox("Ban co muon save lai khong?", vbYesNo + vbExclamation, "Thu Thuat Access Thong Bao") = vbNo Then
Cancel = True
Me.Undo
End If
End Sub
Mã PHP:Private Sub Form_BeforeUpdate(Cancel As Integer)
If MsgBox("Ban co muon save lai khong?", vbYesNo + vbExclamation, "Thu Thuat Access Thong Bao") = vbNo Then
Cancel = Tru[/code]e
Me.Undo
End If
End Sub -
RE: Ngăn chặn không cho Access tự động lưu record
NganDinhNguyen > 02-05-13, 07:49 PM
Theo mình ở cái nút close form mình dùng vòng lặp tìm trong table (vd tbHoaDon) xem trong đó có mã Hóa Đơn nào giống với Mã Hóa Đơn trên form không,nếu có rồi thì close form không hỏi có lưu hay không,còn nếu chưa có thì hỏi có lưu hay không, nếu ko lưu thì close form,nếu lưu thì qay lại form lưu (có thiết kế thêm nút lưu) -
RE: Ngăn chặn không cho Access tự động lưu record
Xuân Thanh > 03-05-13, 10:47 AM
(02-05-13, 07:49 PM)NganDinhNguyen Đã viết: Theo mình ở cái nút close form mình dùng vòng lặp tìm trong table (vd tbHoaDon) xem trong đó có mã Hóa Đơn nào giống với Mã Hóa Đơn trên form không,nếu có rồi thì close form không hỏi có lưu hay không,còn nếu chưa có thì hỏi có lưu hay không, nếu ko lưu thì close form,nếu lưu thì qay lại form lưu (có thiết kế thêm nút lưu)
Làm như bạn có mà ...toi. Lỡ khi người nhập nhập một lèo khoảng mấy chục mẫu tin rồi mới Close Form thì sao? Tất cả những mẫu tin nhập từ trước đã lưu vào table rồi, Thường thì người ta bắt lỗi ở sự kiện BeforUpdate của form là chính xác nhất, còn nếu bắt lỗi ở nút Hủy thì coi chửng khi chưa kịp nhấn nút Hủy thì nó đã lưu mất rồi
Thân mến -
RE: Ngăn chặn không cho Access tự động lưu record
NganDinhNguyen > 03-05-13, 06:09 PM
Hi, xin lỗi vì đã phát biểu linh tinh, đúng là hôm qa mình có text lại thì thấy chưa kịp lưu thì nó đã lưu mất tiu rùi,cám ơn bạn -
RE: Ngăn chặn không cho Access tự động lưu record
nhoc77 > 31-10-13, 02:36 PM
Chào A Xuân Thanh
Trước tiên cảm ơn hàm của A về "Ngăn không cho Access tự động lưu record" sau nhờ a chỉ dùm thêm:
1-tôi đã làm đúng như A chỉ nhưng cứ mỗi lần qua 1 record khác làn nó hiện thông báo nhắc nhở rất phiền, có cách nào khắc phục k (ý tôi muốn sau khi nhập thông tin xong, lưu mới hỏi. Chứ mỗi lần nhập mỗi lần hỏi cực lắm)
2- Tôi tạo 1 form "cập nhật khách hàng" & 1 form "thông tin khách hàng"
ở form "thông tin khách hàng" bao gồm 1 list box những text box. mình có yêu cầu như sau:
1 - khi click vào 1 hàng bất kỳ trong list box thì hiện ra thông tin lên text box (mình làm được rồi)
2 - khi double click vào 1 hàng bất kỳ trong list box thì hiện ra form "cập nhật khách hàng" và hiện ra đúng thông tin mà mình đã double click ở list box (VD nếu mình chọn list box khách hàng tên Nguyễn Văn A thì khi mở form "cập nhật khách hàng" cũng là Nguyễn Văn A
Cảm ơn A -
RE: Ngăn chặn không cho Access tự động lưu record
vocsiit > 04-11-13, 04:39 PM
To Xuân Thanh!
Khi mở form lên thì trong đó có trường STT là Autonumber và các trường khác, mình không nhập gì hết nhưng khi đóng lại thì bị hỏi "The record has changed - do you want to save it? (do trường autonumber thay đổi)
Xuân Thanh và các bạn có cách nào chương trình khỏi phải hỏi không?
Cảm ơn các bạn nhiều. -
RE: Ngăn chặn không cho Access tự động lưu record
trangdv.pchg > 20-03-17, 03:33 PM
Bắt lỗi ở sự kiện BeforUpdate của form là OK nhưng Nếu form có Subform thì khi chuyển sang sửa dữ liệu ở Subform thì nó hiện thông báo trước.
Theo bạn thì làm sao khi sửa số liệu cả ở Mainform và Subform xong thì mới thông báo là dữ liệu thay đổi? -
RE: Ngăn chặn không cho Access tự động lưu record
trangdv.pchg > 22-03-17, 01:12 PM
Mình copy đoạn code ở trang 113 của bạn thì khi chạy nó báo lỗi
Private Sub Form_Load()
Dim obj As AccessObject, dbs As Object
Dim strList As String
Set dbs = Application.CurrentProject
For Each obj In dbs.AllReports
strList = strList & obj.Name & ";"
Next obj
cboReports.RowSourceType = "Value List"
cboReports.RowSource = strList
End sub
Mình chẳng hiểu kiểu gì. Bạn giúp mình chút.
Không hiểu khi chuyển sang Subform là nó thông báo ngay là Dữ liệu Mainform thay đổi