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

MDB chuyen sang MDE

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • [Hỏi] MDB chuyen sang MDE
• MDB chuyen sang MDE

• MDB chuyen sang MDE

  quocxin14 > 12-08-13, 03:58 PM

  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
  '''''''''''

• RE: MDB chuyen sang MDE

  tt1212 > 13-08-13, 10:05 AM

  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.

• RE: MDB chuyen sang MDE

  trav2t > 13-08-13, 05:29 PM

  (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 

• Bài trước Bài tiếp