Đánh giá chủ đề:
  • 3 Votes - 3.33 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Cần giúp đỡ code xoá Records
#1
Các bạn giúp mình đoạn code này nhé. Code này được gắn vào nút Xoá, khi bấm để thi hành thì nó báo lỗi ở dòng màu đỏ dưới. Các bạn xem dùm mình xem sai ở chỗ nào vậy. Cám ơn.

Private Sub XoaDong_Click()
Traloi = MsgBox("Ban muon xoa bo dong " & [SoDong] & Chr(13) & _
"Chon OK hay Cancel", 289, "Thong bao !")
If Traloi = 1 Then
RunCommand acCmdSelectAllRecords
SendKeys "{Enter}"
RunCommand acCmdDeleteRecord
End If
DoCmd.GoToControl "TenVTa"
End Sub
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#2
Phát biểu chỗ đó:
Mã:
Docmd.RunCommand acCmdDeleteRecord
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Cafe Via He
#3
Noname ơi, cho mình hỏi. Khi mình viết code nó bị lỗi. Ví dụ khi mình gõ : docmd. chưa kịp gõ tiếp thì nó hiện màu đỏ => Như vậy là bị gì vậy
Mình đã sửa lại theo code dưới, nhưng nó vẫn báo lỗi. Nhưng chỉ ở Forms này thối, Forms vẫn thực hiện code này bình thường không có lỗi gì cả. Mình đau đầu với nó từ sáng đến giờ.

On Error GoTo LOIXOA
If MsgBox("L­u ý ! B¹n muèn xo¸ chøng tõ cã ngµy : " & Me.Ngay & ", M· sè kh¸ch lµ " & Me.MaKhach & " ph¶i kh«ng ? " & _
" NÕu xo¸ chän Yes, ng­îc l¹i chän No", vbYesNo, vblnformation) = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True
Exit Sub
End If
LOIXOA:
MsgBox "Kh«ng thÓ xo¸ ®­îc d÷ liÖu", vbInformation
End Sub

Nếu mình viết code như dưới đây thì lại xoá được. Nhưng nó chỉ xoá thôi, không hỏi gì cả, ý mình muốn trước khi xoá phải hỏi cái, nếu xoá thì bấn Yes, không xoá thì bấm No. Bạn giúp mình với.
-----------------

Private Sub XoaDong_Click()
On Error GoTo Err_XoaDong_Click

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_XoaDong_Click:
Exit Sub

Err_XoaDong_Click:
MsgBox Err.Description
Resume Exit_XoaDong_Click

End Sub
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#4
Lỗi thì có muôn ngàn cái lỗi, phải xem báo lỗi và mã lỗi. Cụ thể phải có file bị lỗi thì mới mò ra được! Nhiều khả năng bạn khai báo thiếu thư viện nào đó.
Nếu Code dưới bạn chạy được thì thay 2 cái dòng
Mã:
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Thay cho
Mã:
DoCmd.RunCommand acCmdDeleteRecord

Xem sao
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn haquocquan , Cafe Via He
#5
Với code sau:
Dim x
x = MsgBox(" Ban co' chac' xoa' ko? ", vbYesNo, "THONG BAO:")
If x = vbYes Then
On Error GoTo loi
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.GoToRecord , , acLast
DoCmd.SetWarnings True
loi:
MsgBox "Ban da xoa' 1 bang ghi"
End If
Khi mình tạo 1 phần mềm chỉ có 1 Forms đang hoạt động thì xóa rất ok, nhưng khi mình thiết kế theo kiểu 1 Forms "Trang chủ" , từ Forms "Trang chủ" này mở các Forms làm việc (VD như Forms bán hàng) thì với code trên không thực hiện xóa được trên Forms "bán hàng" khi "Trang chủ" vẫn còn mở ( ở chế độ Minimize, hay chưa đóng)
Nếu mình vẽ nút xoá bằng Wizards thì xoá ok, nhưng xuất hiện thông báo của access thấy khó coi quá.
vậy các Bác có code nào xoá được khi ta đang mở nhiều Forms cùng 1 lúc mà có cảnh báo không cho mình với.
Mong giúp đở.
Xin cảm ơn.



Chữ ký của muaphonui_2010 "Cần cù bù thông minh"
Reply
Những người đã cảm ơn
#6
Hi dạo này mình đang làm chương trình quản lý công nợ viết code cũng có 1 số tài liệu share cho bạn bè xem choi.
http://d.violet.vn/uploads/resources/516...review.swf

Cũng là chủ đề về nút xóa trong form phieu xuất bao gồm cả sub phiếu xuất sẵn tiện bà con góp ý dùm mik
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 7, , acMenuVer70
Nhưng khi mik cho vào chạy .thì báo lỗi đòi phải xóa bên sub trước nhưng chưa tìm dc cách
Chữ ký của mik11906 Xin chào, mình là mik11906, Tham gia http://thuthuataccess.com/forum từ ngày 04-04 -13.
Reply
Những người đã cảm ơn
#7
(12-05-13, 12:44 AM)mik11906 Đã viết: Hi dạo này mình đang làm chương trình quản lý công nợ viết code cũng có 1 số tài liệu share cho bạn bè xem choi.
http://d.violet.vn/uploads/resources/516...review.swf

Cũng là chủ đề về nút xóa trong form phieu xuất bao gồm cả sub phiếu xuất sẵn tiện bà con góp ý dùm mik
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 7, , acMenuVer70
Nhưng khi mik cho vào chạy .thì báo lỗi đòi phải xóa bên sub trước nhưng chưa tìm dc cách

Mã PHP:
Private Sub cmdXoa_Click()
    
DoCmd.SetWarnings False
    DoCmd
.RunSQL "Delete * From tblPhieuXuatChiTiet Where MaPhieu = '" Me.MaPhieu "'"
    
DoCmd.RunSQL "Delete * From tblPhieuXuat Where MaPhieu = '" Me.MaPhieu "'"
    
DoCmd.SetWarnings True
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
#8
Tiện cho em hỏi Bác Xuân Thanh và các cao thủ khác luôn
em có 2 form FDMHang và FNhanvien vs button thêm là
docmd.gotorecord acNewRec
MaNV.setfocus
End sub

theo em thấy thì code không có gì lỗi nhưng mà khi thực hiện lệnh nó lại báo lỗi runtime 2105
trước đây mấy ngày thì k bị, tự dưng nó như này, giờ em đang hoang mang lắm :-(
[Hình: Untitled_zps8ffaf8e4.jpg]
Chữ ký của [S]atan Xin chào, mình là [S]atan, Tham gia http://thuthuataccess.com/forum từ ngày 27-04 -13.
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
  [Hỏi] Việc set thuộc tính OnClick trong Code toancvp 5 229 31-10-16, 10:14 AM
Bài mới nhất: toancvp
  [Lỗi] Không chạy được VBA Code hungthanmx 3 219 04-09-16, 03:48 PM
Bài mới nhất: Nguyen Hoang Diep
  [Help] Nhờ anh em trong diễn đàn giúp mình thiết kế chương trình báo dịch hàng ngày vinhpaint 1 255 21-06-16, 09:15 AM
Bài mới nhất: zinzin8x
  [Help] ai giúp mình code lại sql này thành access với li_95 0 124 24-04-16, 05:59 PM
Bài mới nhất: li_95
  [Lỗi] không chạy được code findfirst letheanhcpqn 2 225 15-12-15, 02:05 PM
Bài mới nhất: letheanhcpqn

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ơ