Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Ẩn thanh Ribbon??
#11
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
Chữ ký của changkhoonline77 Xin chào, mình là changkhoonline77, Tham gia http://thuthuataccess.com/forum từ ngày 25-06 -12.
Reply
Những người đã cảm ơn
#12
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
Chữ ký của stone18k Xin chào, mình là stone18k, Tham gia http://thuthuataccess.com/forum từ ngày 28-05 -13.
Reply
Những người đã cảm ơn
#13
(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

[Hình: 1_zps53fae9be.png]

[Hình: 2_zps25dfec3c.png]

[Hình: 3_zps4ee832f4.png]
Chữ ký của changkhoonline77 Xin chào, mình là changkhoonline77, Tham gia http://thuthuataccess.com/forum từ ngày 25-06 -12.
Reply
Những người đã cảm ơn stone18k , TruongVanTruong
#14
Ẩ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é).
Chữ ký của trungn077 Xin chào, mình là trungn077, Tham gia http://thuthuataccess.com/forum từ ngày 09-07 -12.
ღღღღღTài sản của trungn077 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn changkhoonline77 , stone18k , TruongVanTruong


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Ẩn thanh record của form pmtandhqn 3 1,635 10-05-16, 11:27 PM
Bài mới nhất: tieuho828
Wink Hướng Dẫn Tạo form đăng ký thành viên trong access quan_pc 11 934 14-04-16, 11:25 PM
Bài mới nhất: quan_pc
  [Help] Chuyển đổi Chuỗi thành NUMBER caytregiavn77 2 196 21-02-16, 07:45 PM
Bài mới nhất: caytregiavn77
  [Hỏi] Gộp nhiều ô khác nhau thành 1 ô thanhtruong 3 264 02-01-16, 12:09 AM
Bài mới nhất: duykhanhqb12
  [Lỗi] Viết hoa bị chuyển thành viết thường thanhtruong 2 323 24-09-15, 12:35 PM
Bài mới nhất: tranthanhan1962

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ơ