lehongduc > 21-11-17, 10:37 AM
![[Hình: nnbmfa919hejzrr4g.jpg]](https://www.mediafire.com/convkey/b1ef/nnbmfa919hejzrr4g.jpg)
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 Functionongke0711 > 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?