Σχετικα με Ribbon

[pakos]

Καλησπερα στα μέλη

Εχω την παρακατω Function

Public Function ShowRibbon()
DoCmd.ShowToolbar "RIBBON", acToolbarYes
DoCmd.SelectObject acTable, , True
End Function

και θα ηθελα οταν η συγκεκριμενη ειναι σε λειτουργία να μην ξαναλειτουργει σε συμβαν

δηλαδη κατι τετοιο
.................................................. ..............................................
if ShowRibbon is true then <----- εδω εχω το προβλημα
exit sub
else
DoCmd.ShowToolbar "RIBBON", acToolbarYes
DoCmd.SelectObject acTable, , True
end if
-------------------------------------------------------------------------------

[pakos]

καλησπερα

για οσους τυχον χρειαστουν την παραπανω εντολη
εκανα μια μεσοβεζικη λυση

προσθεσα ενα πεδιο στην φορμα π.χ. to rib

και επαιξα λιγο με τους κωδικες

το αποτελεσμα ειναι το ιδιο


================================================== ==
Public Function HideRibbon()
DoCmd.ShowToolbar "RIBBON", acToolbarNo
DoCmd.SelectObject acTable, , True
DoCmd.RunCommand acCmdWindowHide
End Function
================================================== ===

Public Function HideRibbon5()
If Form_MainMenu.rib = 1 Then
Exit Function
Else
DoCmd.ShowToolbar "RIBBON", acToolbarNo
DoCmd.SelectObject acTable, , True
DoCmd.RunCommand acCmdWindowHide
End If
Form_MainMenu.rib = 1
End Function
================================================== ====

Public Function ShowRibbon()
DoCmd.ShowToolbar "RIBBON", acToolbarYes
DoCmd.SelectObject acTable, , True
Form_MainMenu.rib = 0
End Function

[tsgiannis]

Νομίζω ότι η λύση είναι το Invalidate.

[pctechdr]

Που ακριβώς αυτή συνάρτηση Public Function ShowRibbon() σου επίστρέφει true / false?

[pakos]

Αρχική Δημοσίευση από pctechdr

Που ακριβώς αυτή συνάρτηση Public Function ShowRibbon() σου επίστρέφει true / false?

if ShowRibbon is true then <----- εδω εχω το προβλημα
exit sub
else
DoCmd.ShowToolbar "RIBBON", acToolbarYes
DoCmd.SelectObject acTable, , True
end if

πως να γινει η συνταξη του κωδικα

[pctechdr]

Για δοκίμασε αυτό Public Function ShowRibbon() As Boolean Έτσι θα σου επιστρέφει true or False

[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

Με εκτίμηση

Τάσος

[pakos]

Τάσο ευχαριστώ για την λύση

γηράσκω αει διδασκόμενος

πληροφοριακα

η CommandBars.ExecuteMso ("MinimizeRibbon") κανει τη ribbon ελαχιστοποιηση (ειναι ορατο το μενου) ενω

η DoCmd.ShowToolbar "RIBBON", acToolbarNo κανει τη ribbon αποκρυψη (δεν ειναι ορατο το μενου)

ο συνδιασμος στο if εχει το αποτελεσμα που επιδιωκα



και με μικρη αλλαγη

If CommandBars("Ribbon").visible=true Then
exit sub
else
end if

[pakos]

εκλεισε το θεμα