Đá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
  Combobox không hiện như rowsource value list thanhhau828 7 179 22-11-17, 11:05 AM
Bài mới nhất: ongke0711
  [Help] Chọn nhiều record trong listbox của Form haidc 5 680 21-11-17, 06:30 PM
Bài mới nhất: haidc
  Code VBA không chạy trong access 2016 tranthanhan1962 5 243 15-11-17, 03:47 PM
Bài mới nhất: tranthanhan1962
  Subform hoạt động được nhưng không thêm dữ liệu vào được pvhung76 7 155 02-11-17, 08:16 AM
Bài mới nhất: pvhung76
  [Lỗi] Nút xóa không xóa được Record tieulong272 4 140 24-10-17, 12:57 PM
Bài mới nhất: tranthanhan1962

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ơ