[Tasos]

Γεια χαρά σε όλους.

Για εκδόσεις Microsoft Access > 2007 μπορούμε να χρησιμοποιήσουμε τον παρακάτω κώδικα για την μεγιστοποίηση/ελαχιστοποίηση της κορδέλας:

Public Sub MinimizeRibbon()
    If CommandBars("Ribbon").Height > 100 Then
        CommandBars.ExecuteMso ("MinimizeRibbon")
    End If
End Sub

Public Sub MaximizeRibbon()
    If CommandBars("Ribbon").Height < 100 Then
    CommandBars.ExecuteMso ("MinimizeRibbon")
    End If
End Sub

Με εκτίμηση

Τάσος