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/5381-epilogi-mesoy-apothikeysis-tis-basis.html)

dimitrisp 08-11-19 17:43

Επιλογή μέσου αποθήκευσης της βάσης
 
1 Συνημμένο(α)
Γειά σας

Στη δειγματική Βάση που ανέβασα, υπάρχει η Φόρμα [frm1].
Σ`αυτή, αν κάνουμε κλικ στο κουμπί "Επιλογή δίσκου αποθήκευσης"
αναδύεται παράθυρο, με τίτλο "Αναζήτηση φακέλου", όπου μας δίνεται η δυνατότητα
να επιλέξουμε θέση αποθήκευσης (της βάσης μας).

Αν, κατά τη στιγμή της παραπάνω ενέργειας, δεν έχουμε συνδεδεμένη
εξωτερική συσκευή αποθήκευσης(USB) στο PC, είναι δυνατον στο αναδυόμενο παράθυρο
να μας δίνεται υποχρεωτικά επιλογή δίσκου αποθήκευσης
μόνο σε εξωτερική συσκευή αποθήκευσης(USB) και αν δεν υπάρχει να
ενημερώνεται ο χρήστης με MsgBox ότι "δεν υπάρχει εξωτερικό μέσο αποθήκευσης",


ή, εναλλακτικά,

οι επιλογές στο αναδυόμενο παράθυρο να παραμείνουν ως έχουν αλλά, εφόσον
δεν έχουμε συνδεδεμένη εξωτερική συσκευή αποθήκευσης(USB) στο PC, να
ενημερώνεται ο χρήστης με MsgBox ότι "δεν υπάρχει εξωτερικό μέσο αποθήκευσης".



Σας ευχαριστώ εκ των προτέρων

Meteora 09-11-19 17:11

1 Συνημμένο(α)
Καλησπέρα,
...μια σύντομη πρόταση από εμένα, με την ελπίδα ότι θα βοηθηθείς σε ό,τι θες να κάνεις.
Καλή συνέχεια. Νίκος

dimitrisp 09-11-19 21:33

1 Συνημμένο(α)
Καλησπέρα σε όλους

Νίκο σ`ευχαριστώ για την απάντησή σου. Όμως,το παράδειγμα που ανέβασες δε λειτουργεί.
Απλώς με το πάτημα του κουμπιού βγάζει το ίδιο μήνυμα είτε έχω συνδεδεμένη
εξωτερική μονάδα αποθήκευσης είτε όχι.

Ωστόσο, για να γίνω πιο σαφής θα σας περιγράψω ακολούθως ποιος είναι ο τελικός σκοπός μου:

α) Όταν ο χρήστης ανοίξει το παράθυρο διαλόγου για αναζήτηση φακέλου και επιλέξει
να αποθηκεύσει αντίγραφο ασφαλείας σε οποιονδήποτε φάκελο του "C:\" τότε
να ενημερώνεται με μήνυμα: MsgBox "Δεν μπορείτε να αποθηκεύσετε αντίγραφο ασφαλείας στο φάκελο
"C:\" όπου βρίσκεται η εφαρμογή!


β) Όταν ο χρήστης ανοίξει το παράθυρο διαλόγου γιά αναζήτηση φακέλου και επιλέξει να αποθηκεύσει
το αντίγραφο ασφαλείας σε ήδη συνδεδεμένη εξωτερική μονάδα αποθήκευσης (εξωτερικό σκληρό δίσκο, φλασάκι κλπ)
να προχωρά η κανονικά διαδικασία αποθήκευσης (όπως αυτή έχει οριστεί με άλλον κώδικα)

γ) Τέλος, όταν ο χρήστης ανοίξει το παράθυρο διαλόγου γιά αναζήτηση φακέλου και δεν υπάρχει
συνδεδεμένη εξωτερική μονάδα αποθήκευσης
(εξωτερικός σκληρός δίσκος, φλασάκι usb κλπ) τότε
να ενημερώνεται με μήνυμα: MsgBox "Δε βρέθηκε συνδεδεμένη εξωτερική μονάδα αποθήκευσης".

Δηλαδή, με άλλα λόγια, δε θέλουμε σε καμιά περίπτωση ο χρήστης να αποθηκεύει το αντίγραφο ασφαλείας στο φάκελο "C:\",
αλλά σε εξωτερικό σκληρό δίσκο, φλασάκι κλπ.


Ερευνώντας το Forum βρήκα μια ανάρτηση του Τάσου Φιλοξενίδη "http://www.ms-office.gr/forum/access...ss-backup.html"

Βάσει αυτής, τροποποίησα την αρχική βάση* που ανέβασα. Όμως, ισχύει μόνον όταν η βάση βρίσκεται
στον ίδιο φάκελο του "C:\".
Για παράδειγμα, ας υποθέσουμε ότι έχουμε τη βάση μας στην επιφάνεια εργασίας.
Τώρα, αν στο παράθυρο διαλόγου επιλέξουμε το φάκελο "Επιφάνεια εργασίας" έχουμε το μήνυμα
MsgBox "Δεν μπορείτε να αποθηκεύσετε αντίγραφο ασφαλείας στον φάκελο που βρίσκεται η εφαρμογή!" & vbLf & _
"Επιλέξτε άλλη διαδρομή ή δημιουργήστε νέο φάκελο."

Αν, αντίστοιχα, επιλέξουμε το φάκελο "Έγγραφα" ή οποιονδήποτε άλλο φάκελο του "C:\", μάς επιτρέπει κανονικά
την αποθήκευση, πράγμα που δεν είναι επιθυμητό!

Με αυτά τα δεδομένα ευελπιστώ στην πολύτιμη βοήθειά σας.



*Παρακάτω η νέα τροποποιημένη βάση όπως περιγράφηκε παραπάνω...

Meteora 10-11-19 09:00

2 Συνημμένο(α)
Καλημέρα
Δοκίμασε την τροποποίηση που έκανα στην ...τροποποιημένη ανάρτηση σου. Έτσι, για την τιμή των όπλων, δες την εικόνα που επισυνάπτω και σε παρακαλώ απάντησε στις ερωτήσεις που θέτω -εκεί στην εικόνα.
Να είσαι καλά / Νίκος

dimitrisp 10-11-19 09:45

Καλημέρα

Νίκο, είσαι... αρχηγός! Μου έδωσες ακριβώς αυτό που ήθελα...
Θα το προσαρμόσω στη Βάση μου και αν έχω πρόβλημα θα μου επιτρέψεις να επανέλθω.

Επιπροσθέτως θα ήθελα να σου δηλώσω και τα ακόλουθα:
Δουλεύω με τα Windows 10. Για να είμαι απολύτως ειλικρινής μαζί σου
το πρώτο παράδειγμα που μου έδωσες λειτουργούσε κανονικά με τη διαφορά ότι
το είδα εντελώς επιφανειακά και πρόχειρα, χωρίς να προσέξω τη φράση του κώδικα
"Set Drive = FSO.GetDrive("D:")".
Όταν αντικατέστησα το "D:" με το "F:", (όπου ήταν το τοποθετημένο το δικό μου USB) τότε είδα το αποτέλεσμα.

Σε υπερευχαριστώ.
Νάσαι καλά και καλή συνέχεια...

Meteora 10-11-19 10:05

Η δουλειά -και αυτήν τη φορά, είναι του Τάσου. Μια τεράστια προσφορά προς όλους εμάς -χιλιάδες σήμερα- που φτιάχνουμε μικρές, χρήσιμες και ωραίες εφαρμογές που μας γεμίζουν ικανοποίηση και τονώνουν την αυτοπεποίθησή μας...
Δεν θα γράψω κάτι παραπάνω, ελπίζω όμως κάποια στιγμή να βρω τις λέξεις και να φτιάξω ένα κείμενο, για να πω το δικό μου ευχαριστώ σε αυτό το παιδί από την Κρήτη.
Καλημέρα σε όλους / Νίκος


Η ώρα είναι 05:33.

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


Search Engine Optimization by vBSEO 3.3.2