Forum

Forum (https://www.ms-office.gr/forum/)
-   Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)
-   -   [ Ασφάλεια] Μενού - κρύψιμο κορδέλας απο χρήστες (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/2303-menoi-kripsimo-kordelas-apo-xristes.html)

Dafnh0106 22-01-13 17:47

Μενού - κρύψιμο κορδέλας απο χρήστες
 
καλησπερα στο Forum :)

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

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

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

Meteora 23-01-13 17:50

Καλησπέρα

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

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

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

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

Dafnh0106 24-01-13 08:00

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

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

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

CurrentDb.Properties("StartUpShowDBWindow") = False

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

Meteora 24-01-13 22:00

Καλησπέρα

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


Νίκος Δ.

Dafnh0106 25-01-13 09:34

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

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

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

με εκτιμηση

Δαφνη Μ.

editolis 25-01-13 11:45

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

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

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 25-01-13 20:08

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

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

με εκτιμηση

Δάφνη Μ.

kouk 06-03-17 20:34

Παράθεση:

Αρχική Δημοσίευση από Meteora (Μήνυμα 13596)
Καλησπέρα

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

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

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

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

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

Meteora 07-03-17 04:33

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

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

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

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


Η ώρα είναι 21:53.

Ms-Office.gr - ©2000 - 2024, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2