Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Ngăn chặn không cho Access tự động lưu record
#11
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
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 
True
   Me
.Undo
End 
If

End Sub 
Nếu có SubForm thì tiếp tục code trên

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 
Chữ ký của nmhung49 Xin chào, mình là nmhung49, Tham gia http://thuthuataccess.com/forum từ ngày 17-03 -13.
Reply
Những người đã cảm ơn
#12
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)
Chữ ký của NganDinhNguyen Xin chào, mình là NganDinhNguyen, Tham gia http://thuthuataccess.com/forum từ ngày 02-04 -13.
Reply
Những người đã cảm ơn
#13
(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
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#14
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
Chữ ký của NganDinhNguyen Xin chào, mình là NganDinhNguyen, Tham gia http://thuthuataccess.com/forum từ ngày 02-04 -13.
Reply
Những người đã cảm ơn
#15
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
Chữ ký của nhoc77 Xin chào, mình là nhoc77, Tham gia http://thuthuataccess.com/forum từ ngày 29-01 -13.
Reply
Những người đã cảm ơn
#16
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.
Chữ ký của vocsiit Xin chào, mình là vocsiit, Tham gia http://thuthuataccess.com/forum từ ngày 02-05 -12.
Reply
Những người đã cảm ơn
#17
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?
Chữ ký của trangdv.pchg trangdv.pchg,gia nhập Thủ Thuật Access từ 18-08 -16.
Reply
Những người đã cảm ơn
#18
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
Chữ ký của trangdv.pchg trangdv.pchg,gia nhập Thủ Thuật Access từ 18-08 -16.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Thủ Thuật] Tô màu cho record ( HighLight Record for Continue form) vkaccess 0 48 07-12-17, 05:24 PM
Bài mới nhất: vkaccess
  Tắt Security warning của Access Noname 3 5,815 24-09-17, 12:58 PM
Bài mới nhất: lehongduc
Lightbulb [Hỏi] Ghi lại mọi thay đổi diễn ra trong access toidjtjmtoi 2 224 19-09-17, 11:06 AM
Bài mới nhất: toidjtjmtoi
  [Help] Tạo subform có thể tự động expand khi nhập thêm dòng mới. tien1505 4 435 09-07-17, 03:53 PM
Bài mới nhất: tien1505
  [Thủ Thuật] Demo Dọn rác 1 tháng 1 lần (Mọi phiên bản Access) maidinhdan 15 3,930 31-03-17, 12:20 AM
Bài mới nhất: kieu manh

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ