lehongduc > 21-11-17, 10:37 AM
Function DisSecurityAlert()
On Error Resume Next
'msoAutomationSecurityByUI = 2
'msoAutomationSecurityForceDisable = 3
'msoAutomationSecurityLow = 1
If Application.Version >= 10 Then
Application.AutomationSecurity = 1 'msoAutomationSecurityLow
End If
End Function
Function RibbonAndNavigationOff()
With DoCmd
.NavigateTo "acNavigationCategoryObjectType"
.RunCommand acCmdWindowHide
.ShowToolbar "Ribbon", acToolbarNo
End With
End Function
Function RibbonAndNavigationOn()
With DoCmd
.SelectObject acTable, , True
.ShowToolbar "Ribbon", acToolbarYes
End With
End Function
ongke0711 > 21-11-17, 12:05 PM
lehongduc > 21-11-17, 02:56 PM
(21-11-17, 12:05 PM)ongke0711 Đã viết: - Giao diện thoáng đãng để nhìn, dễ tập trung, màu sắc dịu mắt đó anh.
- Thích cái font "CHI CỤC THUẾ....". Font Vni Helve Condense hả anh?