Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Ngăn chặn không cho lưu record vào table
#1
Như đã một lần trao đổi, nếu nguồn của một form là table thì khi cập nhật dữ liệu trên form nó sẽ tự động lưu vào table. Nếu bạn muốn có một cảnh báo trước khi lưu thì dùng sự kiện Form_BeforUpdate sau đây
Mã PHP:
Private Sub Form_BeforeUpdate(Cancel As Integer)
    
Dim strMsg As String
    strMsg 
"Data has changed."
    
strMsg strMsg "@Do you wish to save the changes?"
    
strMsg strMsg "@Click Yes to Save or No to Discard changes."
    
If MsgBox(strMsgvbQuestion vbYesNo"Save Record?") = vbYes Then
        
'Do Nothing
    Else
        DoCmd.RunCommand acCmdUndo       
    End If
End Sub 
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 Noname , haquocquan
#2
Giờ mình có nút button thoát khỏi chương trình khi ấn vào nó sẽ hiển thị câu cảnh báo
Bạn có chắc chắn thoát không?
Nếu bấm đồng ý thì thoát còn không ấn đồng ý thì không thoát.
Làm có tương tự như thế này ko bạn?
Thanks!
Chữ ký của casio262 http://lequang.vn
Reply
Những người đã cảm ơn
#3
(26-04-12, 04:26 PM)casio262 Đã viết: Giờ mình có nút button thoát khỏi chương trình khi ấn vào nó sẽ hiển thị câu cảnh báo
Bạn có chắc chắn thoát không?
Nếu bấm đồng ý thì thoát còn không ấn đồng ý thì không thoát.
Làm có tương tự như thế này ko bạn?
Thanks!

Mã PHP:
Private Sub cmdThoat_click()
     If 
MsgBox("Ban co chac chan muon thoat"vbQuestion vbYesNo"Thoat chuong trinh") = vbYes then
          Docmd
.Quit
     End 
If
End Sub 
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


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Help] Code update dữ liệu từ subform vào table history(có ghi nhận ngày update) subasatran 5 200 10-07-17, 02:07 PM
Bài mới nhất: tranthanhan1962
  [Hỏi] Tại saoform không hiện thị được dấu phân cách hàng ngàn thanhhao 6 183 26-06-17, 11:45 AM
Bài mới nhất: tranthanhan1962
  Hướng Dẫn xin các acc chỉ dùm e sữa lại cấu trúc lệnh kế tiếp mà không được conmaleTK21 3 123 22-06-17, 11:00 PM
Bài mới nhất: tranthanhan1962
  hàm Dlookup không hoạt động ở máy khác thanhtruong 3 175 17-06-17, 07:32 PM
Bài mới nhất: tranthanhan1962
Sad Refresh form không được William 5 186 01-06-17, 04:50 PM
Bài mới nhất: cpucloi

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ơ