ลองใช้ดูครับว่าได้ผลมั้ย แทนที่
DoCmd.ShowToolbar "Ribbon", acToolbarNo ด้วย Call MinRibbon


เขียนที่ module
Public Sub MinRibbon()
dim RibbonState as Boolean

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 Sub

ใส่ code นี้ หลัง Dim RibbonState As Boolean

Select Case SysCmd(acSysCmdAccessVer)
    Case 7: accVer = "95"
    Case 8: accVer = "97"
    Case 9: accVer = "2000"
    Case 10: accVer = "2002"
    Case 11: accVer = "2003"
    Case 12: accVer = "2007"
    Case 13: accVer = "Pirated!"
    Case 14: accVer = "2010"
    Case 15: accVer = "2013"
    Case Else: accVer = "Unknown"
End Select

ได้แล้วครับ ขอบพระคุณครับอาจารย์ ^^