• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Tắt cảnh báo Access khi xoá record

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • Tắt cảnh báo Access khi xoá record
• Tắt cảnh báo Access khi xoá record

• Tắt cảnh báo Access khi xoá record

  DooHoaangPhuuc > 19-09-18, 12:55 AM

  Cháu muốn xoá record mà không muốn hiện cảnh báo của access "you are about to delete 1 record(s)?
  Cháu đã thử tắt cảnh báo bằng code VBA dưới
  
  
      DoCmd.SetWarnings False
     DoCmd.RunCommand acCmdDeleteRecord
      DoCmd.SetWarnings True
  
  Nhưng Access vẫn cứ thông báo cảnh báo như trên.
  Như vậy có cách nào khác khắc phục khi xoá thực hiện ngầm chạy mà không thông báo không ?
  Cháu xin cảm ơn.
  DooHoaangPhuuc

• RE: Tắt cảnh báo Access khi xoá record

  duynamvnn1208 > 19-09-18, 08:08 AM

  Ủa sao kỳ vậy nhỉ? Docmd.Setwarning là đúng rồi mà.
  Bạn thử thay Runcommand bằng phương thức khác xem sao. Chạy bằng SQL hay Query cũng được mà

• RE: Tắt cảnh báo Access khi xoá record

  bằng lăng > 19-09-18, 09:13 AM

  Bạn chép đoạn code này xem sao nhé:
  Private Sub cmdxoa_Click()
  On Error GoTo Err_cmdxoa_Click
  
      DoCmd.SetWarnings False
      DoCmd.RunCommand acCmdDeleteRecord
      DoCmd.SetWarnings True
      
  Exit_cmdxoa_Click:
      Exit Sub
  
  Err_cmdxoa_Click:
      MsgBox Err.Description
      Resume Exit_cmdxoa_Click
      
  End Sub

• RE: Tắt cảnh báo Access khi xoá record

  ongke0711 > 19-09-18, 10:45 AM

  Vô VBA Option -> Tab General -> Error Trapping -> chọn "Break On Unhandled Errors"
  
  

• RE: Tắt cảnh báo Access khi xoá record

  tranthanhan1962 > 19-09-18, 06:51 PM

  Code xử lý xóa record:
  Giả sử bạn có một nút lệnh xóa record tên là Xoarecord
  

  Mã:

  Private Sub Xoarecord_Click()
On Error GoTo Biloi
DoCmd.RunCommand acCmdDeleteRecord
Biloi:
End Sub

  ở event form Form_BeforeDelConfirm (tam dịch trước khi xác nhận xóa)
  

  Mã:

  Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
Dim n_Reply As Integer
Response = acDataErrContinue
n_Reply = msgBox("Ban muon xoa record nay", vbQuestion + vbYesNo, "Thong Bao")
If n_Reply = vbNo Then
Cancel = True
End If
End Sub

  Ở msgBox nếu bạn yes record sẽ bị xóa nếu bạn no hành động xóa sẽ được bỏ qua. Lệnh Response = acDataErrContinue tắt cảnh báo cảnh báo của access "you are about to delete record(s)" và thay thế bằng thông báo của n_Reply, muốn thông báo bằng tiếng việt bạn có thể dùng hàm msgBoxUni đã có hướng dẫn trên forrum

• RE: Tắt cảnh báo Access khi xoá record

  DooHoaangPhuuc > 20-09-18, 10:14 PM

  Cháu xin cảm ơn sự chỉ bảo.
  Hiện tại máy tính ở nhà cháu bị lỗi về phần mềm, nhất là office càng ngày hoạt động không ổn định. 
  Cháu qua các máy khác nơi làm việc đều bình thường. Cháu cụng đang chuẩn bị cài lại toàn bộ máy tính.
  
  Nhân đây cháu cũng xin hỏi cách khắc phục lỗi viết code như bên dưới  :
  
  Private Sub MAHANG_AfterUpdate()
  
  Select Case Me.LOAI
  
  Case 1
  LOAI  = ”IDTV02”
      If Mid(MAHANG, 2, 9) <> "TV1809256" Then
      MsgBox "SAI MA HANG ! VUI LONG KIEM TRA LAI", vbInformation, "Thông báo"
      DoCmd.SetWarnings False
      DoCmd.RunCommand acCmdDeleteRecord
      DoCmd.SetWarnings True
      End if
  Case 2
  LOAI  = ”IDTL02”
      If Mid(MAHANG, 2, 9) <> "TL1909181" Then
      MsgBox "SAI MA HANG ! VUI LONG KIEM TRA LAI", vbInformation, "Thông báo"
      DoCmd.SetWarnings False
      DoCmd.RunCommand acCmdDeleteRecord
      DoCmd.SetWarnings True
      End if
  
  Exit Sub
  End Select
  
  Trên Form nhập liệu có các Combobox : LOAI,  textbox MAHANG
  Sau khi chọn LOAI và cập nhật MAHANG. 
  Code dò nếu không đúng MAHANG sẽ thông báo Msgbox, và xoá record hiện tại nhập.
  Không biết cháu viết sai như thế nào, record vẫn lưu mà không báo lỗi khi MAHANG không đúng.
  Cháu xin cảm ơn sự hướng dẫn.
  DooHoaangPhuuc

• RE: Tắt cảnh báo Access khi xoá record

  ongke0711 > 21-09-18, 10:31 AM

  Có 2 vấn đề cần bàn như sau:
  
  1. Tại sao bạn không dùng dạng Cascading Combobox tức là khi chọn Combobox 1 thì Record Source của Combobox 2 cũng được Filter theo giá trị được chọn ở Combobox1. 
  Khi chọn LOAI thì ở combobox MAHANG chỉ hiển thị nhưng MAHANG thuộc LOAI đã chọn thôi -> không cần bẫy lỗi có đúng MAHANG hay không
  
  2. Tránh lặp lại nhưng đoạn code giống nhau. 
  
  Form của bạn chắc dạng Bound Form?
  Khi bẫy lỗi ở MAHANG, lúc đó chưa nhảy qua record khác thì bạn chỉ cần Me.Undo hoặc xoá trắng textbox là được rồi, không cần tới RunCommand AcCmdDelete đâu.
  Có thể sửa lại như sau:
  
  Private Sub MAHANG_AfterUpdate()
    Select Case Me.LOAI
    Case ”IDTV02”
      If Mid(MAHANG, 2, 9) <> "TV1809256" Then
        MsgBox "SAI MA HANG ! VUI LONG KIEM TRA LAI", vbInformation, "Thông báo"
        Me.txtKhac.SetFocus
        Me.MAHANG=“”  
        Me.MAHANG.SetFocus
        Exit Sub   
      End if
  
    Case ”IDTL02”
      If Mid(MAHANG, 2, 9) <> "TL1909181" Then
        MsgBox "SAI MA HANG ! VUI LONG KIEM TRA LAI", vbInformation, "Thông báo"
        Me.txtKhac.SetFocus
        Me.MAHANG=“”  
        Me.MAHANG.SetFocus
        Exit Sub   
    End Select
  
  End Sub

• RE: Tắt cảnh báo Access khi xoá record

  yamakashi2003 > 17-05-20, 02:18 AM

  (19-09-18, 06:51 PM)tranthanhan1962 Đã viết: Code xử lý xóa record:
  Giả sử bạn có một nút lệnh xóa record tên là Xoarecord
  

  Mã:

  Private Sub Xoarecord_Click()
On Error GoTo Biloi
DoCmd.RunCommand acCmdDeleteRecord
Biloi:
End Sub

  ở event form Form_BeforeDelConfirm (tam dịch trước khi xác nhận xóa)
  

  Mã:

  Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
Dim n_Reply As Integer
Response = acDataErrContinue
n_Reply = msgBox("Ban muon xoa record nay", vbQuestion + vbYesNo, "Thong Bao")
If n_Reply = vbNo Then
Cancel = True
End If
End Sub

  Ở msgBox nếu bạn yes record sẽ bị xóa nếu bạn no hành động xóa sẽ được bỏ qua. Lệnh Response = acDataErrContinue tắt cảnh báo cảnh báo của access "you are about to delete record(s)" và thay thế bằng thông báo của n_Reply, muốn thông báo bằng tiếng việt bạn có thể dùng hàm msgBoxUni đã có hướng dẫn trên forrum

  Bác cho em hỏi là câu lệnh cancel = true dùng như thế nào ạ,
  nó có giống như là exit sub không ạ
  Em xin cảm ơn

• RE: Tắt cảnh báo Access khi xoá record

  tranthanhan1962 > 17-05-20, 11:15 AM

  (17-05-20, 02:18 AM)yamakashi2003 Đã viết: Bác cho em hỏi là câu lệnh cancel = true dùng như thế nào ạ,
  nó có giống như là exit sub không ạ
  Em xin cảm ơn

  Cái tên nói lên bản chất. exit sub: thoát khỏi thủ tục, ngưng tất cả mọi lệnh và đi nhậu  . Cancel = True/False, ngưng hoặc thực hiện 1 lệnh nào đó, tiếp tục thực hiện các lệnh khác, nếu có.
  Trong mã trên Cancel là tham số của lệnh xóa, mã này xử lý trường hợp. Có nghĩ là nếu chọn nút [No] trên thông báo nó sẽ hủy lệnh xóa, nếu không (chọn nút yes) thì ngược lại Cancel = False => thực lệnh xóa (chỉ xử lý cho lệnh này)
  Ví dụ:
  

  Mã:

  Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
Dim n_Reply As Integer
Response = acDataErrContinue
n_Reply = msgBox("Ban muon xoa record nay", vbQuestion + vbYesNo, "Thong Bao")
If n_Reply = vbNo Then
Cancel = True
End If
Docmd.OpenForm "ABC"
End Sub

  Thì sau khi xử lý xong lệnh xóa (tùy theo yes/no), nó sẽ mở form ABC. yes/no gì cũng sẽ mở form ABC
  Còn nếu thay bằng
   

  Mã:

  Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
Dim n_Reply As Integer
Response = acDataErrContinue
n_Reply = msgBox("Ban muon xoa record nay", vbQuestion + vbYesNo, "Thong Bao")
If n_Reply = vbNo Then
Exit Sub
End If
Docmd.OpenForm "ABC"
End Sub

  Thì nếu chọn yes, nó sẽ xóa record và mở form ABC, nếu chọn no, nó sẽ thoát thủ tục (có nghĩa là không có việc xóa và mở form ABC)

• RE: Tắt cảnh báo Access khi xoá record

  yamakashi2003 > 17-05-20, 05:42 PM

  (17-05-20, 11:15 AM)tranthanhan1962 Đã viết:

  (17-05-20, 02:18 AM)yamakashi2003 Đã viết: Bác cho em hỏi là câu lệnh cancel = true dùng như thế nào ạ,
  nó có giống như là exit sub không ạ
  Em xin cảm ơn

  Cái tên nói lên bản chất. exit sub: thoát khỏi thủ tục, ngưng tất cả mọi lệnh và đi nhậu  . Cancel = True/False, ngưng hoặc thực hiện 1 lệnh nào đó, tiếp tục thực hiện các lệnh khác, nếu có.
  Trong mã trên Cancel là tham số của lệnh xóa, mã này xử lý trường hợp. Có nghĩ là nếu chọn nút [No] trên thông báo nó sẽ hủy lệnh xóa, nếu không (chọn nút yes) thì ngược lại Cancel = False => thực lệnh xóa (chỉ xử lý cho lệnh này)

  Bác cho em hỏi trong đoạn code này:
  Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
  Dim n_Reply As Integer
  Response = acDataErrContinue
  n_Reply = msgBox("Ban muon xoa record nay", vbQuestion + vbYesNo, "Thong Bao")
  If n_Reply = vbNo Then
  Cancel = True
  End If
  Docmd.OpenForm "ABC"
  End Sub
  Tại sao Cancel=true lại hủy được việc xóa record ạ,
  vì em không thấy có dòng code nào thực hiện việc xóa record ạ
  tại sao lệnh Cancel = true lại vẫn cho chạy tiếp dòng lệnh docmd.opendorm "abc", mà lại hủy được sự kiện delete record ạ 
• Bài trước Bài tiếp