Đá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] Nối các trường trong subfrm sang table có điều kiện tronghieu9792 7 224 29-04-17, 12:36 AM
Bài mới nhất: ongke0711
  [Help] add record mới vào table qua form Godspear 0 195 28-04-17, 12:31 PM
Bài mới nhất: Godspear
  [Help] Import file .txt vào Table conmeo 13 1,145 13-04-17, 10:53 AM
Bài mới nhất: atula77
  [Hỏi] chuyển record từ 1 table sang table khác Godspear 4 192 17-03-17, 01:24 PM
Bài mới nhất: tranthanhan1962
  Tạo Menu dạng TreeView bằng Query (không dùng ActiveX) ongke0711 4 522 06-12-16, 09:16 PM
Bài mới nhất: toancvp

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ơ