Σχετικα με 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
-------------------------------------------------------------------------------