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

Ẩn thanh Ribbon??

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Hỏi] Ẩn thanh Ribbon??
• Ẩn thanh Ribbon??

• RE: Ẩn thanh Ribbon?

  changkhoonline77 > 30-07-13, 10:35 AM

  Code đó để khi hoàn tất mới bỏ vào
  Thiết kế để menu (2003 ↓) hay ribbon (2007-2010-1013), [chuột phải] mới thiết kế được chứ ẩn đi sao mà tạo table, query, form...được

• RE: Ẩn thanh??

  stone18k > 30-07-13, 10:38 AM

  Mình đang dùng Access 2010. nên những thứ bạn nói mình hok bít ^^. bạn hướng dẩn mình trên 2010 được không bạn? cám ơn bạn nhiều

• RE: Ẩn thanh Rebbon??

  changkhoonline77 > 30-07-13, 04:57 PM

  (30-07-13, 10:38 AM)stone18k Đã viết: Mình đang dùng Access 2010. nên những thứ bạn nói mình hok bít ^^. bạn hướng dẩn mình trên 2010 được không bạn? cám ơn bạn nhiều

  
  Mình sử dụng access 2013 cũng không khác gì nhiều so với 2010, bạn làm theo hình. Nhớ làm mẫu trước rồi hãy áp dụng.
  Cái này là cơ bản của access
  
  
  
  
  
  

• RE: Ẩn thanh Ribbon??

  trungn077 > 30-07-13, 11:23 PM

  Ẩn nút Office Button: (Xin được chia sẽ)
  

  Mã:

  DoCmd.ShowToolbar "Ribbon", acToolbarNo

  
  Hiện thì ngược lại:
  
  

  Mã:

  DoCmd.ShowToolbar "Ribbon", acToolbarYes

  
  Muốn trông đẹp hơn thì bỏ các dấu check : Office Button --> Access Options --> Current Database.
  Dùng code Hide (Forms,Reports,Queries,Table )
  Code dưới đây cũng lấy được từ trên Thủ Thuật Access nhưng ko nhớ tên mong tác giả bỏ qua sự thiếu sót lần sau rút kinh nghiệm:
  

  Mã:

  Sub hideTable(H As Boolean)
On Error Resume Next
     Dim db As Database
     Dim N As Byte
     Dim I As Byte
    Set db = DBEngine.Workspaces(0).Databases(0)
    N = db.TableDefs.Count
    'N = DB.QueryDefs.Count
    'N = Forms.Count
    'N = Reports.Count

    For I = 1 To N - 1
              Application.SetHiddenAttribute acTable, db.TableDefs(I).Name, H     ' will hide the table "MyTable"
              'Application.SetHiddenAttribute acQuery, DB.QueryDefs(i).Name, H
              'Application.SetHiddenAttribute acForm, Forms(i).Name, H
              'Application.SetHiddenAttribute acReport, Reports(i).Name, H
   Next

End Sub

  [/code]
  Đoạn trên đáp ứng cho Table, mấy cái khác tự thêm vào nhé!
  Cần gọi:
  

  Mã:

  'Ẩn
hideTable True
hideQuery True
HideForms
HideReports
'Hiện
hideTable False
hideQuery False
UnHideForms
UnHideReports

  Khóa thêm phím Shift + dịch sang ACCDE là OK rồi, khi sang ACCDE thì nếu bị phá thì cũng chỉ mấy cái Queries & Forms thôi, chứ code cũng phải khóc (nhớ đặt pass Tools Properties nhé).
• Bài trước Bài tiếp