Tùy chọn
Thủ Thuật Access
-
Trang chủ
|
Viết bởi: maidinhdan 1 Giờ trước Chuyên mục: Thủ thuật VBA - Không có hồi đáp |
Mục đích Demo:
- Nạp toàn bộ Icon của Office vào một chổ trên thanh công cụ để ta tái sử dụng
- Lấy FaceID của Icon để viết code tạo menu có chèn biểu tượng hay
- Thay đổi Icon tự tạo của bản thân bằng Code: trong file có hàm [Thayicon] --> nhập Tên Menu --> nhập FaceID mới để thay (Hàm sẽ quét tất cả Icon trong Menu của bạn và ta chỉ việc nhập từng số FaceID mới vào)
==Để lấy FaceID rê chuột vào Icon cần lấy nhé
Khả năng ứng dụng:
Tạo menu có sử dụng Icon, nhất là việc dùng hàm để tạo menu như
Mã PHP:
Set MenuItem = NewMenu.Controls.Add(Type:=msoControlButton)
With MenuItem
.Caption = "Tiêu đề Menu"
.FaceId = 21 ' Không biết số 21 là Icon gì. ??? Khó Nam Cường....
.OnAction = ""
End With
Hoặc bạn Immport Demo này vào ứng dụng của bạn, sau đó cho chạy Form trên rồi Copy Icon dán vào thanh menu tự tạo của bạn cũng được
Hình minh họa.
![[Hình: Hinh_HienThiIconlayFaceID0.png]](https://sites.google.com/site/thuthuataccessdemoanh/home/demo-anh-access/Hinh_HienThiIconlayFaceID0.png)
![[Hình: Hinh_HienThiIconlayFaceID1.png]](https://sites.google.com/site/thuthuataccessdemoanh/home/demo-anh-access/Hinh_HienThiIconlayFaceID1.png)
![[Hình: Hinh_HienThiIconlayFaceID2.png]](https://sites.google.com/site/thuthuataccessdemoanh/home/demo-anh-access/Hinh_HienThiIconlayFaceID2.png)
Ai có nhu cầu xin để lại Email.
|
|
Viết bởi: maidinhdan 24-02-20, 05:44 PM Chuyên mục: Thủ thuật VBA - Bài trả lời (8) |
Tác giả : paulsteigel
Chức năng:
- Tắt hết menu hệ thống, chỉ chừa lại menu do code viết
- Phân nhóm menu Ẩn hiện theo chức năng
Hình minh họa
![[Hình: Demo_TaoMenuBarBangCode%20(1).png]](https://sites.google.com/site/thuthuataccessdemoanh/home/demo-anh-access/Demo_TaoMenuBarBangCode%20(1).png)
![[Hình: Demo_TaoMenuBarBangCode%20(2).png]](https://sites.google.com/site/thuthuataccessdemoanh/home/demo-anh-access/Demo_TaoMenuBarBangCode%20(2).png)
Bài khá hay xin Trích dẫn nguyên văn:
Tạo menubar trong access là một công việc khá thú vị. Hiện tại theo tôi biết thì có 2 cách cơ bản để tạo ra menubar trong access.
+ Dùng Macro với Addmenuitem (tôi không dùng nữa vì cũng không thích cách này lắm)
+ Dùng Code. Tôi sẽ giới thiệu cách này, (các bạn nên xem ví dụ trong file access kèm theo nhé).
Bắt đầu:
+ Tạo ra bảng có chứa các menu mà ta định chế tác.
+ Thực thi đoạn mã tạo menu.
(Để có thêm chi tiết về bảng dữ liệu, các bạn download ví dụ về nhé)
Mã PHP:
Sub CreateMenubar()
' Tạo Toolbar
CreateMenubar "VDPToolBar", 0
' Tạo Menubar
CreateMenubar "VDP Man", , False
' Tạo PopMenu
CreateMenubar "VDPPop", 2
End sub
Mã PHP:
Private Sub CreateMenubar(mnuBar As String, Optional iType As Long = 1, Optional DontCreate As Boolean = True)
Dim i As Long
' Create menubar
Dim mnuRcs As Recordset
Dim iCmb As CommandBar
Dim cbCtrPar As Object
Dim cbCtrChild As CommandBarControl
' Start creating the menu
If Not DontCreate Then
Set iCmb = CommandBars.Add(Name:=mnuBar, Position:=IIf(iType = 2, msoBarPopup, msoBarTop), MenuBar:=IIf(iType = 0 Or iType = 2, False, True), Temporary:=False)
Else
Set iCmb = CommandBars(mnuBar)
End If
' Initialized recordset
Set mnuRcs = CurrentDb.OpenRecordset("Select * from SysMenu where MenubarName='" & mnuBar & "' And [Tag] is null Order by [Order];")
With mnuRcs
While Not .EOF
If IsNull(.Fields("BaseIndex")) Then
Set cbCtrPar = iCmb.Controls.Add(msoControlPopup, , , , False)
cbCtrPar.Caption = .Fields("MnuCaptionV")
cbCtrPar.Tag = .Fields("AccessLevel")
Else
If iType <> 1 Then Set cbCtrPar = CommandBars(mnuBar)
If .Fields("Action") = "import" Then
Set cbCtrChild = cbCtrPar.Controls.Add(msoControlButton, .Fields("SysMenuID"), , , False)
Else
Set cbCtrChild = cbCtrPar.Controls.Add(msoControlButton, , , , False)
If .Fields("Action") <> "" Then cbCtrChild.OnAction = .Fields("Action")
End If
cbCtrChild.Caption = .Fields("MnuCaptionV")
cbCtrChild.Tag = .Fields("AccessLevel")
cbCtrChild.BeginGroup = .Fields("Group")
' depend on type of bar, we can set the button face here
If iType = 0 Then
If Not IsNull(.Fields("SysMenuID")) Then
CommandBars(CStr(.Fields("SysMenu"))).Controls(.Fi elds("SysMenuID")).CopyFace
cbCtrChild.PasteFace
End If
cbCtrChild.Style = 3
End If
End If
.MoveNext
Wend
.Close
End With
If iType <> 2 Then
iCmb.Position = msoBarTop
iCmb.Protection = msoBarNoChangeVisible + msoBarNoCustomize + msoBarNoResize + msoBarNoChangeDock
iCmb.Visible = True
End If
Set iCmb = Nothing
Set cbCtrPar = Nothing
Set cbCtrChild = Nothing
End Sub
Mã PHP:
Function MenuBarExist(mnuBarName As String) As Boolean
' Cái này để xác định xem menubar có tồn tại không
Dim mnuBar As Object
' Check for wherether toolbar M is installed
For Each mnuBar In Application.CommandBars
If mnuBar.Name = mnuBarName Then
MenuBarExist = True
Exit Function
End If
Next
End Function
Mã PHP:
Sub SetAccesslevel(mnuBarName As String, iLevel As Integer)
Dim mnuBar As CommandBar
Set mnuBar = CommandBars(mnuBarName)
SetAccess mnuBar, iLevel
Set mnuBar = Nothing
End Sub
Mã PHP:
Private Sub SetAccess(Mnb As Object, iLevel As Integer)
' Cái này để hiển thị các menubar tại các mức truy cập khác nhau
Dim obj As Object
For Each obj In Mnb.Controls
If HasSubControl(obj) Then SetAccess obj, iLevel
If InStr(obj.Tag, CStr(iLevel)) <> 0 Then obj.Visible = True Else obj.Visible = False
Next
End Sub
' Nếu các bạn có yêu cầu gì thêm thì gửi thư cho tôi nhé. ngocdd@itprog.gov.vn
Để nhân Demo không khóa: để lại Email bên dưới
Thân mến.
|
Viết bởi: thuyyeu99 21-02-20, 04:14 PM Chuyên mục: Ms Excel - Bài trả lời (4) |
Hướng dẫn sử dụng xin vui lòng xem video.
Link Dowload
Download 2 (Nếu link 1 die)
|
|
Viết bởi: KheNgot 17-02-20, 09:08 PM Chuyên mục: Forms - Không có hồi đáp |
Em đang tạo 1 form tìm kiếm theo giá trị nhập vào text và hiểm thị kết quả luôn trên subform?
Câu hỏi cụ thể trong file đính kèm
Link: https://drive.google.com/open?id=1A7y0Bk...OEJpdOWTVn
Cám ơn A/C nhiều!
|
|
Viết bởi: toidjtjmtoi 17-02-20, 05:10 PM Chuyên mục: Forms - Bài trả lời (3) |
Mình đang gặp chút vấn đề về form pop upNó nhảy form và giãn form không theo quy củ gì cả . Cũng không khóa nó lại được
Có cách nào để cố định form này và vị trí hiển thị của nó không?
Thanks
| Chủ đề Mới nhất |
| [Demo]Lấy tất cả Icon hệ ... -Chuyên mục: Thủ thuật VBA-Đăng bởi lần cuối: maidinhdan-1 Giờ trước- » Bài trả lời: 0- » Lượt xem: 3 |
| [Demo] Tạo và phân nhóm m... -Chuyên mục: Thủ thuật VBA-Đăng bởi lần cuối: maidinhdan-3 Giờ trước- » Bài trả lời: 8- » Lượt xem: 133 |
| Chương trình Copy dữ liệu... -Chuyên mục: Ms Excel-Đăng bởi lần cuối: thuyyeu99-6 Giờ trước- » Bài trả lời: 4- » Lượt xem: 101 |
| Xin hỗ trợ file demo xuất... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: dotrung-8 Giờ trước- » Bài trả lời: 3- » Lượt xem: 52 |
| [SQL] Đếm ký tự giống nha... -Chuyên mục: MS SQL Server-Đăng bởi lần cuối: dotrung-24-02-20, 01:14 PM- » Bài trả lời: 40- » Lượt xem: 570 |
| Tạo phím tắt -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: tranthanhan1962-23-02-20, 03:35 PM- » Bài trả lời: 9- » Lượt xem: 163 |
| Ứng dụng quản lý phòn khá... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: tt1212-22-02-20, 11:50 PM- » Bài trả lời: 13- » Lượt xem: 973 |
| [Góc thơ] THAO THỨC -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-22-02-20, 09:06 PM- » Bài trả lời: 1,029- » Lượt xem: 133,978 |
| TRUY VẤN LIÊN QUAN TỚI GI... -Chuyên mục: Query-Đăng bởi lần cuối: kubip486-22-02-20, 11:42 AM- » Bài trả lời: 13- » Lượt xem: 431 |
| Chọn nhiều record trong l... -Chuyên mục: Forms-Đăng bởi lần cuối: tranthanhan1962-21-02-20, 10:42 PM- » Bài trả lời: 7- » Lượt xem: 2,448 |
| Diễn đàn Thống kê |
|
» Thành viên: 3,313 » Thành viên mới nhất: phongnguyen84 » Các chủ đề diễn đàn: 8,984 » Các bài viết diễn: 40,917 Thống kê đầy đủ |