Merhaba

Yaptığım araştırmalarda ribbon menünün kapatılması ile ilgili çok basit bit yöntem olduğunu gördüm. Bu işlem aynen CTRL+F1 kombinasyonunun yaptığını yapıyor. Bunu kullanmak için form load'a

DisplayRibbon False

yazmak yeterli. Tersi için de

 

DisplayRibbon true 

yazılacak. Bunun için bir fonksiyon önerilir:

Public Sub DisplayRibbon(yShowIT)

'8/2/09 DLT

On Error Resume Next

    

    If Application.Version >= 12 Then

        If yShowIT Then

            DoCmd.ShowToolbar "Ribbon", acToolbarYes

            Else

            DoCmd.ShowToolbar "Ribbon", acToolbarNo

        End If

        

    End If

    

End Sub

Fakat tabii ki bu tek başına yeterli değil. Böylece kullanılan versiyona göre işlev gerçekleşir.

Gelelim asıl nesnelerin olduğu bölümün gizlenmesine. Bu kısma sanırım Nave Panel diyorlar.

Public Sub DisplayNavPane(Optional IsVisible As Boolean = True)



    Dim strTableName As String

   

    On Error GoTo DisplayNavPaneError



    DoCmd.Echo False

    DoCmd.NavigateTo "acNavigationCategoryObjectType"

    DoCmd.SelectObject acTable, , True



    If IsVisible = False Then

        DoCmd.RunCommand acCmdWindowHide

    End If

   

DisplayNavPaneExit:

    DoCmd.Echo True

    Exit Sub



DisplayNavPaneError:



    If Err.Number = 2544 Then

        'Get the name of the first table in the mSysObjects table

        strTableName = Dlookup ("Name", "mSysObjects", "[Type] = 1 AND [Flags] = 0")

        Resume

    Else

        DisplayError ("Error encountered in DisplayNavPane subroutine!")

        Resume DisplayNavPaneExit

    End If



End Sub

artık bu sub'ın da eklenmesinden sonra form load'a bir satır daha eklenmeli.

DisplayNavPane False

Buraya kadar herşey tamam ama ben bunu 2010 ile denediğimde şu satır işletiliyor

DisplayError ("Error encountered in DisplayNavPane subroutine!")

ve "Error encountered in DisplayNavPane subroutine!" yazan bir mesajbox açılıyor. Siz bunu 2007'de bir deneyin bakalım. Ya bir yeri atlıyorum ya da bu 2010 ile uyumlu değil... Bulacağız bakalım çözümü.