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

Nút xóa không xóa được Record

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Lỗi] Nút xóa không xóa được Record
• Nút xóa không xóa được Record

• Nút xóa không xóa được Record

  tieulong272 > 23-10-17, 10:44 PM

  Help me!!!
  Form thiết kế nút xóa , thiết kế xong chạy form test thì xóa được nhưng khi chạy chương trình mở form lên thì bấm nút xóa không xóa được record. Báo lỗi " The command or action Refresh isn't available now" 
  Private Sub cmdXoa_Click()
  On Error GoTo Err_cmdXoa_Click
      traloi = MsgBox("Có Xoá không ?", 20, "Thông Báo")
      If traloi = vbYes Then
          DoCmd.SetWarnings False
  
          DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
          DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
  
      Else
          MsgBox "Thank ! Không Xoá ", , "Thông Báo"
      End If
      DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
      DoCmd.GoToRecord , , acFirst
  Exit_cmdXoa_Click:
      Exit Sub
  
  Err_cmdXoa_Click:
      MsgBox Err.Description
      Resume Exit_cmdXoa_Click
      
  
  End Sub

• RE: Nút xóa không xóa được Record

  tranthanhan1962 > 23-10-17, 11:16 PM

  Do bạn sử dụng lệnh DoMenuItem của menu hệ thống. Nếu thay thế menu hệ thống bằng user menu sẽ có lỗi xảy ra.
  Để chắc ăn bạn dùng hai event như sau:
  

  Mã:

  Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
Dim TraLoi As Integer
Response = acDataErrContinue
TraLoi = msgBoxUni("Có Xoá không ?", vbQuestion + vbYesNo, "Thông Báo")
If TraLoi = vbNo Then
Cancel = True
End If
End Sub

  
  

  Mã:

  Private Sub cmdXoa_Click()
On Error GoTo Biloi
DoCmd.RunCommand acCmdDeleteRecord
   ahtMovePrevious Me
Biloi:
End Sub

• RE: Nút xóa không xóa được Record

  ongke0711 > 23-10-17, 11:40 PM

  Bổ sung.
  Đây là bảng tham chiếu để đổi từ lệnh DoMenuItem của Access 95, 2.0 sang lệnh RunCommand để tránh lỗi khi sử dụng Access phiên bản cao hơn.
  
  

• RE: Nút xóa không xóa được Record

  tieulong272 > 24-10-17, 10:29 AM

  Cảm ơn các bạn, mình đã sửa được theo hướng dẫn
  Bạn TranThanhHan1962 cho mình hỏi lệnh : ahtMovePrevious Me là lệnh gì thế, đưa vào code báo lỗi chưa khai báo.
  Thank's all

• RE: Nút xóa không xóa được Record

  tranthanhan1962 > 24-10-17, 12:57 PM

  (24-10-17, 10:29 AM)tieulong272 Đã viết: Cảm ơn các bạn, mình đã sửa được theo hướng dẫn
  Bạn TranThanhHan1962 cho mình hỏi lệnh : ahtMovePrevious Me là lệnh gì thế, đưa vào code báo lỗi chưa khai báo.
  Thank's all

  Sorry, ahtMovePrevious Me là lệnh trở về record trước nó sau khi xóa record hiện hành, nó nằm trong một module của mình nên báo lỗi vì bạn không có module này. Bạn có thể bỏ nó đi hoặc thay thế bằng lệnh VBA của access :
  DoCmd.GoToRecord , , acPrevious
  Thực ra nếu không có lệnh này nó sẽ nhảy con trỏ về record kế tiếp. Nếu record bị xóa là record cuối thì nó nhảy xuống new record nên mình không thích. Nhưng khi đưa lệnh này vào sẽ bị lỗi trường hợp record bị xóa là record đầu tiên, nên mình phải thêm cặp lệnh:
  On Error GoTo Biloi
  
  
  Biloi:
  để bỏ qua lỗi này.
• Bài trước Bài tiếp