Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] MDB chuyen sang MDE
#1
Các bạn cho mình hỏi là khi file Access bản *.MDB của mình chạy ngon lành, button Xóa khi click thực thi thì Ok, còn khi đã chuyển sang dạng bảo mật hơn *.MDE thì button Xóa chẳng có hiệu lực gì hết. Các bạn nào biết support giúp mình nha. Button Xóa này mình viết bằng code, và CSDL code mình đã đặt pass để không ai có thể táy máy.
Email: vietquoc0104@gmail.com

Code:
On Error GoTo Err_Cmdxoa_Click
If MsgBox ("BAN CO CHAC CHAN MUON XOA MAU TIN NAY KHONG?", vbOKCancel,"Thông Báo") = vbCancel Then Exit Sub
DoCmd.SetWarnings (False)
Me.AllowEdits = True
Me.Repaint
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.SetWarnings (True)
Me.AllowEdits = False
Me.Repaint
Exit_Cmdxoa_Click:
Exit Sub
Err_Cmdxoa_Click:
MsgBox Err.Description
Resume Exit_Cmdxoa_Click
End Sub
'''''''''''
Chữ ký của quocxin14 Xin chào, mình là quocxin14, Tham gia http://thuthuataccess.com/forum từ ngày 31-07 -13.
Reply
Những người đã cảm ơn
#2
Bạn nên kiểm tra lỗi trước khi chuyển qua MDE
Trong trang virt CODE
Bạn chon Debug/Compile... để soát lỗi.
Nếu không được có lẽ máy bạn bị lỗi Office rồi thay đi.
Chữ ký của tt1212 Present Nhận viết phần mềm, hỗ trợ viết phần mềm, hợp tác viết phần mềm trên nên Microsoft Access mọi phiên bản Liên hệ: Mr Đức -989276236. Email: Tantriviet.vnn@gmail.com website:http://www.tantrivietsoft.com/
Reply
Những người đã cảm ơn
#3
(12-08-13, 03:58 PM)quocxin14 Đã viết: Các bạn cho mình hỏi là khi file Access bản *.MDB của mình chạy ngon lành, button Xóa khi click thực thi thì Ok, còn khi đã chuyển sang dạng bảo mật hơn *.MDE thì button Xóa chẳng có hiệu lực gì hết. Các bạn nào biết support giúp mình nha. Button Xóa này mình viết bằng code, và CSDL code mình đã đặt pass để không ai có thể táy máy.
Email: vietquoc0104@gmail.com

Code:
On Error GoTo Err_Cmdxoa_Click
If MsgBox ("BAN CO CHAC CHAN MUON XOA MAU TIN NAY KHONG?", vbOKCancel,"Thông Báo") = vbCancel Then Exit Sub
DoCmd.SetWarnings (False)
Me.AllowEdits = True
Me.Repaint
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.SetWarnings (True)
Me.AllowEdits = False
Me.Repaint
Exit_Cmdxoa_Click:
Exit Sub
Err_Cmdxoa_Click:
MsgBox Err.Description
Resume Exit_Cmdxoa_Click
End Sub
'''''''''''
Hình như cái bài này là của mình.
Mình đã Debug/Compile ok nhưng vẫn không chạy được.
Mình đã post bài này lên diễn đàn nhờ anh em giúp đỡ nhưng vẫn chưa được.
Chỉ có một cách duy nhất là xóa đi 6 dòng, tất nhiên Access sẽ hỏi bằng tiếng anh (6 dòng này mục đích là để không cho access hỏi bằng tiếng anh trước khi xóa vì như thế sẽ không chuyên nghiệp tí nào):
Mã PHP:
DoCmd.SetWarnings (False)
    
Me.AllowEdits True
    Me
.Repaint
    
'.......................
    DoCmd.SetWarnings (True)
    Me.AllowEdits = False
    Me.Repaint 
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
Rainbow [Help] Chèn thêm thông tin từ trường này sang trường kia nam8384 5 234 05-05-16, 05:29 PM
Bài mới nhất: ongke0711
  [Help] Tạo chuyên mục đánh giá sự hài lòng kuzinhy 3 231 01-05-16, 10:10 PM
Bài mới nhất: quanghoasla
  [Help] Chuyển DATE thành NUMBER caytregiavn77 0 104 21-01-16, 11:34 PM
Bài mới nhất: caytregiavn77
  [Hỏi] Import form sang dữ lieu word kuzinhy 1 227 19-12-15, 08:50 PM
Bài mới nhất: ongke0711
  copy file acess sang các máy con honglv157 2 240 11-09-15, 05:48 PM
Bài mới nhất: honglv157

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ơ