Forum - Σχετικα με Ribbon

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - Σχετικα με Ribbon (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/6296-sxetika-me-ribbon.html)

Σχετικα με Ribbon

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

Εχω την παρακατω 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
-------------------------------------------------------------------------------

συνεχεια

καλησπερα

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

προσθεσα ενα πεδιο στην φορμα π.χ. 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

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

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

συνεχεια

Παράθεση:

Αρχική Δημοσίευση από pctechdr (Μήνυμα 34875)

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

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

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

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

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

Για εκδόσεις 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

Με εκτίμηση

Τάσος

συνεχεια

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

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

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

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

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

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

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

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

συνεχεια

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