nguyenluyentkt > 21-04-16, 03:16 PM
maidinhdan > 30-04-16, 09:07 PM
(21-04-16, 03:16 PM)nguyenluyentkt Đã viết: Các bạn cho mình hỏi cách làm menu điều khiển trong access 2010 mà không dùng đến marcro, trên 2003 mình làm được mà 2010 chưa làm được vì không tìm thấy hộp thoại customize trong đó có thẻ toolbar.
thanhtruong > 28-06-17, 12:06 PM
(30-04-16, 09:07 PM)maidinhdan Đã viết:(21-04-16, 03:16 PM)nguyenluyentkt Đã viết: Các bạn cho mình hỏi cách làm menu điều khiển trong access 2010 mà không dùng đến marcro, trên 2003 mình làm được mà 2010 chưa làm được vì không tìm thấy hộp thoại customize trong đó có thẻ toolbar.
Xem bài viết này: Cách tạo menu trong access 2007 ( cũng áp dụng cho Access 2010)
Demo thì tại bài này: Hiện Ribbon theo User đã phân quyền, phân quyền theo Danh sách lựa chọn. (Ribbon Access 2010)
Đây là file làm ví dụ về cho ẩn hoặc hiện Menu con: "Trợ Giúp": Demo Menu 2010_2.rar ( Tác giả: MatTroiNguQuen)
Ghi chú:
Từ Access 2007 trở lên người ta không gọi là Menu bar nửa là thay vào đó là thanh Ribbon Access 2007 hoặc 2010.
Thân mến![/b]
maidinhdan > 28-06-17, 09:57 PM
(28-06-17, 12:06 PM)thanhtruong Đã viết: u(30-04-16, 09:07 PM)maidinhdan Đã viết:(21-04-16, 03:16 PM)nguyenluyentkt Đã viết: Các bạn cho mình hỏi cách làm menu điều khiển trong access 2010 mà không dùng đến marcro, trên 2003 mình làm được mà 2010 chưa làm được vì không tìm thấy hộp thoại customize trong đó có thẻ toolbar.
Xem bài viết này: Cách tạo menu trong access 2007 ( cũng áp dụng cho Access 2010)
Demo thì tại bài này: Hiện Ribbon theo User đã phân quyền, phân quyền theo Danh sách lựa chọn. (Ribbon Access 2010)
Đây là file làm ví dụ về cho ẩn hoặc hiện Menu con: "Trợ Giúp": Demo Menu 2010_2.rar ( Tác giả: MatTroiNguQuen)
Ghi chú:
Từ Access 2007 trở lên người ta không gọi là Menu bar nửa là thay vào đó là thanh Ribbon Access 2007 hoặc 2010.
Thân mến![/b]
Cho mình hỏi, Mình tải Cái menu này trên mạng về, nó rất hay và đúng ý của mình, nhưng không biết làm sao để chỉnh sửa thanh menu cho phù hợp. Mọi người có thể phân tích chút ít file này được không?
Cái này không có Macro, không biết nó ẩn hay sao, mình đã cho hện ra hết mà sao cũng không thấy, Không biết vào đâu để tạo menu. chứ cái menu này hay lắm.
Khi mở chương trình thì mọi người không thể xem được Ribbon, còn các thanh menu khác thì vẫn bấm chuột phải và chọn Customize the ribbon thì có thể cho hện ra hết được
file tải
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="OnRibbonLoad">
<ribbon startFromScratch="true">
<officeMenu>
<button idMso="FileOpenDatabase" visible="false"/>
<button idMso="FileNewDatabase" visible="false"/>
<splitButton idMso="FileSaveAsMenuAccess" visible="false"/>
</officeMenu>
<tabs>
<tab id="tab1" getLabel="GetLabel" getVisible="GetVisible">
<group id="grp1_1" getLabel="GetLabel">
<button id="btn1_1_1" size="large" getLabel="GetLabel" getScreentip="GetScreentip" imageMso="DatabasePermissionsMenu" onAction="OnActionButton" />
<button id="btn1_1_2" size="large" getLabel="GetLabel" getScreentip="GetScreentip" imageMso="PrintPreviewClose" onAction="OnActionButton" />
</group>
</tab>
<tab id="tab2" getLabel="GetLabel" getVisible="GetVisible">
<group id="grp2_1" getLabel="GetLabel" getVisible="GetVisible">
<labelControl id="lbl2_1_3" getLabel="GetLabel" />
</group>
<group id="grp2_2" getLabel="GetLabel" getVisible="GetVisible">
</group>
<group id="grp2_3" getLabel="GetLabel" >
<button id="btn1_1_3" size="large" getLabel="GetLabel" getScreentip="GetScreentip" imageMso="PrintPreviewClose" onAction="OnActionButton" />
</group>
</tab>
<tab id="tab3" getLabel="GetLabel" getVisible="GetVisible">
<group id="grp3_1" getLabel="GetLabel" getVisible="GetVisible">
<labelControl id="lbl3_1_4" getLabel="GetLabel" />
</group>
<group id="grp3_2" getLabel="GetLabel" getVisible="GetVisible">
</group>
<group id="grp3_3" getLabel="GetLabel" getVisible="GetVisible">
</group>
<group id="grp3_4" getLabel="GetLabel" getVisible="GetVisible">
<button id="btn1_1_4" size="large" getLabel="GetLabel" getScreentip="GetScreentip" imageMso="PrintPreviewClose" onAction="OnActionButton" />
</group>
</tab>
</tabs>
</ribbon>
</customUI>
thanhtruong > 05-07-17, 06:34 PM
ongke0711 > 05-07-17, 09:15 PM
Public Sub CloseFormReport()
Dim intState As Integer
Dim intCurrentType As Integer
Dim strCurrentName As String
intCurrentType = Application.CurrentObjectType
strCurrentName = Application.CurrentObjectName
DoCmd.Close intCurrentType, strCurrentName, acSaveYes
End Sub
DoCmd.SelectObject intCurrentType, strCurrentName
DoCmd.RunCommand acCmdPrintPreview
thanhtruong > 06-07-17, 11:48 AM
(05-07-17, 09:15 PM)ongke0711 Đã viết: Thông thường thì mình nên tạo cái menu liên quan đến Print (gồm nhiều menu con trong đó) riêng, chỉ gọi menu này lên khi Report được Open.
Nếu để sẳn trên menu chính luôn thì nó choáng chỗ không cần thiết.
- Đối với nút [Đóng] nếu chỉ dùng lệnh Docmd.Close không chỉ định rõ đóng cái gì thì nó cứ đóng cái nào nó nghĩ là đang active.
Tôi sẽ dùng cái hàm sau để xác định Object nào đang On Screen Active rồi đóng nó.
Mã PHP:Public Sub CloseFormReport()
Dim intState As Integer
Dim intCurrentType As Integer
Dim strCurrentName As String
intCurrentType = Application.CurrentObjectType
strCurrentName = Application.CurrentObjectName
DoCmd.Close intCurrentType, strCurrentName, acSaveYes
End Sub
- Từ 2 cái biến này bạn áp dụng cho nút Print Preview luôn.
Vd:
Mã PHP:DoCmd.SelectObject intCurrentType, strCurrentName
DoCmd.RunCommand acCmdPrintPreview
ongke0711 > 06-07-17, 02:29 PM
Option Explicit
[/font][/font]
Public gobjRibbon As IRibbonUI
Public Sub OnRibbonLoad(ribbon As IRibbonUI)
Set gobjRibbon = ribbon
End Sub
Public Sub OnActionButton(control As IRibbonControl)
On Error Resume Next
Select Case control.ID
Case "btn1_1_2" 'Nút [Đóng]'
Call CloseFormReport
Case "btn1_1_4"
...
Case "myButton3"
...
Case "myInfoBtn"
..
End Select
[font=Tahoma][font=Tahoma]End Sub
thanhtruong > 06-07-17, 04:02 PM