Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Lỗi] Nút xóa không xóa được Record
#1
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
Chữ ký của tieulong272 tieulong272,gia nhập Thủ Thuật Access từ 06-10 -17.
Reply
Những người đã cảm ơn
#2
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
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
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.

[Hình: 37882674601_e9553b1f09_z.jpg]
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn maidinhdan , tranthanhan1962
#4
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
Chữ ký của tieulong272 tieulong272,gia nhập Thủ Thuật Access từ 06-10 -17.
Reply
Những người đã cảm ơn
#5
(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.
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn maidinhdan


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Help] Ẩn những record theo điều kiện nam8384 4 209 13-11-18, 04:58 PM
Bài mới nhất: nam8384
  Không chọn được nhiều Nhân viên từ subform huuduy.duy 10 510 29-09-18, 08:11 PM
Bài mới nhất: ongke0711
  Tìm kiếm Record ngay khi gõ trong Combobox - Class ongke0711 9 657 25-09-18, 12:00 PM
Bài mới nhất: ledangvan
  [Help] Highlight current record with continousform mrsiro 10 530 11-08-18, 12:09 PM
Bài mới nhất: mrsiro
  [Hỏi] Xin được hướng dẫn kiểu tham chiếu trong forms Popeye 6 544 07-08-18, 10:11 AM
Bài mới nhất: Cuong Servenet

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ơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line