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
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("Lu ý ! 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
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
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.
12-05-13, 12:44 AM (Được chỉnh sửa: 12-05-13, 12:48 AM bởi mik11906.)
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
(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
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 :-(