• Trang chủ click to expand contents 

  • 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