• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Hỏi_Xác định phiên bản Access đang dùng

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thư viện thủ thuật
  • [Thủ Thuật] Hỏi_Xác định phiên bản Access đang dùng
• Hỏi_Xác định phiên bản Access đang dùng

• Hỏi_Xác định phiên bản Access đang dùng

  maidinhdan > 17-12-15, 11:54 PM

  Trích dẫn:to: maidinhdan@gmail.com
  
  from: nguyenvu1994@gmail.com

  
  
  Câu 1.
  Hỏi: Có câu lệnh nào để khi bật file Access lên nó sẽ hiện cho ta biết là ta đang dùng bản Access nào không?
  
  Ví dụ: tôi có file ứng dụng là Access 2003...Tôi mở bằng Access 2003,2007,2010,2013,2016. Thì nó hiện thông báo là tôi đang dùng Access 2003,2007,2010,2013,2016
  
  
  Câu 2.
  Hỏi: Nếu đã hiện thông báo rồi, có đoạn code nào để tắt menuBar, Ribbon, Nagative...của bản Access đó
  
  
  Rất mong các Anh/Chị nào có nghiên cứu xin cho ý kiến.
  Trân trọng cảm ơn!

• RE: Hỏi_Xác định phiên bản Access đang dùng

  ongke0711 > 18-12-15, 08:43 AM

  Mình đang sử dụng Access 2007 nên biết code để tắt thanh Ribbon, Navigate.. Còn Access 2003 thì chưa biết.
  
  1. Hiện version của Access, dùng hàm SysCmd(acSysCmdAccessver)
  
  

  Mã PHP:

  Public Function AccessVersionID() As String
  Select Case SysCmd(acSysCmdAccessVer)
        Case 7: AccessVersionID = "95"
        Case 8: AccessVersionID = "97"
        Case 9: AccessVersionID = "2000"
        Case 10: AccessVersionID = "2002"
        Case 11: AccessVersionID = "2003"
        Case 12: AccessVersionID = "2007"
        Case 14: AccessVersionID = "2010"
        Case 15: AccessVersionID = "2013"
        Case Else: AccessVersionID = "Unknown"
  End Select
End Function 


  
  2. Dấu thanh Ribbon, Navigation panel, Status bar
  
  

  Mã PHP:

  Private Sub Form_Open(Cancel As Integer)
   DoCmd.ShowToolbar "Ribbon", acToolbarNo
   DoCmd.ShowToolbar "Status Bar", acToolbarNo
   'Hide khung navigate panel'
   DoCmd.NavigateTo ("acNavigationCategoryObjectType")
   DoCmd.RunCommand (acCmdWindowHide)
End Sub

Private Sub Form_Close()
   DoCmd.ShowToolbar "Ribbon", acToolbarYes
   DoCmd.ShowToolbar "Status Bar", acToolbarYes
   'Hien lai khung Navigate pannel'
   Call DoCmd.SelectObject(acTable, , True)
End Sub 


• Tìm phiên bản Access đang sử dụng

  vulhu06 > 10-03-17, 10:11 AM

  Chào ACE!
  Lang thang trên mạng mình thấy được đoạn code dùng để kiểm tra phiên bản Access đang sử dụng và kèm theo là thu nhỏ Ribbon trong Access 2013, không biết có giúp ích gì được mọi người không, xin phép được chia sẻ
  
  Public Function AccessVersionID() As String
      Select Case SysCmd(acSysCmdAccessVer)
       Case 7: AccessVersionID = "95"
       Case 8: AccessVersionID = "97"
       Case 9: AccessVersionID = "2000"
       Case 10: AccessVersionID = "2002"
       Case 11: AccessVersionID = "2003"
       Case 12: AccessVersionID = "2007"
       Case 13: AccessVersionID = "Pirated!"
       Case 14: AccessVersionID = "2010"
       Case 15: AccessVersionID = "2013"
       Case Else: AccessVersionID = "Unknown"
   End Select
   RibbonState = (CommandBars("Ribbon").Controls(1).Height < 100)
  
  Select Case RibbonState
     Case True
         'Do nothing, already minimized
     Case False
         If accVer > 13 Then
             CommandBars.ExecuteMso "MinimizeRibbon"
         Else
             SendKeys "^{F1}", False
         End If
  End Select
  End Function            'AccessVersionID() ' gọi hàm
• Bài trước Bài tiếp