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

Ẩn thanh Menu access 2007

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • Ẩn thanh Menu access 2007
• Ẩn thanh Menu access 2007

• Ẩn thanh Menu access 2007

  trungn077 > 22-04-13, 12:32 AM

  Chào cả nhà!
  Có cách nào để ẩn thanh button trên access 2007 không, và không cho click right vào đó lun.

• RE: Ẩn thanh Menu access 2007

  quan_pc > 30-04-13, 12:46 AM

  Chào bạn mình có cách này xin hướng dẫn bạn đó là bạn sử dụng code để khoá csdl
  
  đầu tiên bạn tạo 1 module có tên csdl
  

  Trích dẫn:Option Compare Database
  'Chíp khai báo cáo h?ng s?
  Private Const MF_DISABLED = &H2&
  Private Const MF_ENABLED = &H0&
  Private Const MF_GRAYED = &H1&
  
  
  'Chíp khai báo cáo hàm API c?n dùng
  Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
  
  Private Declare Function GetMenuString Lib "user32" Alias "GetMenuStringA" (ByVal hMenu As Long, ByVal wIDItem As Long, ByVal lpString As String, ByVal nMaxCount As Long, ByVal wFlag As Long) As Long
  
  Private Declare Function ModifyMenu Lib "user32" Alias "ModifyMenuA" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpString As Any) As Long
  
  'Chíp t?o các Sub
  
  Public Sub DisableSysMenu(ByVal hmenuTrackPopup As Long, ByVal mPosition As Long, ByVal mstr As String)
  Dim r1 As Long
  r1 = ModifyMenu(hmenuTrackPopup, mPosition, MF_DISABLED Or MF_GRAYED, mPosition, mstr)
  End Sub
  
  Public Sub EnableSysMenu(ByVal hmenuTrackPopup As Long, ByVal mPosition As Long, ByVal mstr As String)
  Dim r1 As Long
  r1 = ModifyMenu(hmenuTrackPopup, mPosition, MF_ENABLED, mPosition, mstr)
  End Sub
  
  
  Public Sub NoCloseButton(ByVal mhwnd As Long)
  Dim mstr As String
  mstr = String$(100, " ")
  r2 = GetSystemMenu(mhwnd, 0)
  r3 = GetMenuString(r2, 61536, mstr, 100, 0)
  mstr = Trim$(mstr)
  Call DisableSysMenu(r2, 61536, mstr)
  End Sub
  
  Public Sub YesCloseButton(ByVal mhwnd As Long)
  Dim mstr As String
  mstr = String$(100, " ")
  r2 = GetSystemMenu(mhwnd, 0)
  r3 = GetMenuString(r2, 61536, mstr, 100, 0)
  mstr = Trim$(mstr)
  Call EnableSysMenu(r2, 61536, mstr)
  End Sub
  Function Thanhcongcu(strAcToolBar As String)
  Select Case strAcToolBar
  Case "Yes"
  DoCmd.ShowToolbar "Ribbon", acToolbarYes
  Case "No"
  DoCmd.ShowToolbar "Ribbon", acToolbarNo
  Case Else
  MsgBox "ShowRibbonBar Permision use only Yes/No (string) value."
  End Select
  End Function

  sau đó bạn tạo 1 form có chứa các nút sau(nên tạo 1 nút liên kết đến cái form này)
  ẩn csdl viết code cho nút này là Thanhcongcu ("No")
  hiện csdl viết code cho nút này là Thanhcongcu ("Yes")
  mở shift viết code cho nút này là Call Disable_ShiftKey
  khoá shift viết code cho nút này là Call Enable_ShiftKey
  
  ở form hiển thị khi mở chương trình bạn chọn sự kiện form load và viết đoạn code Thanhcongcu ("No")
  thế là xong nếu bạn muốn không cho người khác vào form quản lý trên bạn có thể tạo 1 mật khẩu gồm 2 ô textbox chứa tdn vs mật khẩu cho trước. nếu ok thì mới cho vào quản lý ẩn hiện mở khoá shift csdl. viết bài mỏi tay quá chúc bạn thành công

• RE: Ẩn thanh Menu access 2007

  trungn077 > 30-04-13, 11:49 PM

  Cám ơn Quân đã chia sẽ, phải nói là rất nhiệt tình.Tiết là nút Thanks chỉ ấn được có 1 lần thôi.
  

• RE: Ẩn thanh Menu access 2007

  quan_pc > 01-05-13, 01:16 PM

  ok chúc bạn học tốt :P
• Bài trước Bài tiếp