[ Ασφάλεια] Μενού - κρύψιμο κορδέλας απο χρήστες

[Dafnh0106]

καλησπερα στο Forum :)

Θα ηθελα να ρωτήσω αν γίνεται να κρυψουμε το μενου της access 2007 - 2010 , ή την κορεδλα απο τους χρήστες μονιμα ......

κρυβω την κορδελλα αλλα επανερχεται , δεν ξερω τι πρεπει να κανω για να γινει μονιμο στους
χρηστες ...

Σας ευχαριστω πολυ και παλι για τη βοηθεια σας εκ των προτερων :)

[Meteora]

Καλησπέρα

Κάνε ένα αντίγραφο της εφαρμογής σου. Στο αντίγραφο και στο συμβάν "με τη φόρτωση" της κεντρικής φόρμας γράψε:

CurrentDb.Properties("StartUpShowDBWindow") = False
 DoCmd.ShowToolbar "Ribbon", acToolbarNo

Θα δεις αλλαγές...

Με εκτίμηση
Νίκος Δ.

[Dafnh0106]

Κ;αλημερα στο forum :)

Niko να σ αευχαριστησω πολυ που ασχοληθηκες με το προβλημα μου , δοκιμασα αυτο που ειπες
Private Sub Form_Load()
CurrentDb.Properties("StartUpShowDBWindow") = False
DoCmd.ShowToolbar "Ribbon", acToolbarNo
End Sub

αλλα δυστυχως μου χτυπαει sto debug στο

CurrentDb.Properties("StartUpShowDBWindow") = False

με εκτιμηση Δαφνη

[Meteora]

Καλησπέρα

Ακύρωσε την εντολή αυτή που 'χτυπάει' και άφησε να τρέξει μόνη της η άλλη.
Η γραμμή που "χτυπάει΄", έχει ως ρόλο το κρύψιμο του παράθυρου περιήγησης , το οποίο -ως γνωστόν- δείχνει τους πίνακες, τα ερωτήματα, τις φόρμες,... Το κρύψιμο αυτό γίνεται και μέσω επιλογής. Αν χρειαστεί κάτι τέτοιο τα ξαναλέμε.


Νίκος Δ.

[Dafnh0106]

Καλημερα στο forum :)

Σ ευχαριστω παρα πολυ Νικο για τη βοηθεια, εκανα αυτο που μου προτεινες και δουλευει μια χαρα...
Αν γινεται και δεν σε κουραζω θα ηθελα να μπορουσα να κρυψω και τιs forms , queries, reports, απο τους χρηστες ..θα ηταν ιδανικο να μποορουσα να εχχω την επιλογή αυτη.....

Ευχαριστω και παλι για τη βοηθεια :)

με εκτιμηση

Δαφνη Μ.

[editolis]

Ο Παρακατω κωδικας σου δινει την δυνατοτητα να "κρυβεις" φορμες, εκθεσεις κλπ.

Για τις φορμες:

Public Function DoHideForms()
Dim frm
For Each frm In CurrentProject.AllForms
SetHiddenAttribute acForm, frm.Name, True
Next
End Function

Για να τις ξαναεμφανισεις:

Public Function DoUnHideForms()
Dim frm
For Each frm In CurrentProject.AllForms
SetHiddenAttribute acForm, frm.Name, false
Next
End Function

Καλη συνεχεια...

[Dafnh0106]

Καλησπερα στο forum
Σ ευχαριστω παρα πολυ Τόλη για τη βοηθεια σου :)

δουλεψε πολυ ωραια..

με εκτιμηση

Δάφνη Μ.

[kouk]

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

Καλησπέρα

Κάνε ένα αντίγραφο της εφαρμογής σου. Στο αντίγραφο και στο συμβάν "με τη φόρτωση" της κεντρικής φόρμας γράψε:

CurrentDb.Properties("StartUpShowDBWindow") = False
 DoCmd.ShowToolbar "Ribbon", acToolbarNo

Θα δεις αλλαγές...

Με εκτίμηση
Νίκος Δ.

Νίκο πολύ καλή δουλειά αλλά πως ξαναεμφανίζεται το menu???

[Meteora]

Καλημέρα
Δοκίμασε τις επιλογές

CurrentDb.Properties("StartUpShowDBWindow") = True
 DoCmd.ShowToolbar "Ribbon", acToolbarYes  

Η δεύτερη -μάλλον- σε αφορά, αλλά οι δοκιμές δεν ...βλάπτουν.

με εκτίμηση / Νίκος