ms-office.gr > Forum > Microsoft Access > Access - Ερωτήσεις / Απαντήσεις > [ Συναρτήσεις ] Επιλογή μέσου αποθήκευσης της βάσης

Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια!

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 08-11-19, 18:43
Όνομα: Δημήτρης
Έκδοση λογισμικού Office: Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 20-07-2014
Περιοχή: Πάτρα
Μηνύματα: 385
Προεπιλογή Επιλογή μέσου αποθήκευσης της βάσης

Γειά σας

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

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


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

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



Σας ευχαριστώ εκ των προτέρων
Συνημμένα Αρχεία
Τύπος Αρχείου: accdb ExternalDisk Option.accdb (380,0 KB, 7 εμφανίσεις)
__________________
Φιλικά/Δημήτρης
Απάντηση με παράθεση
  #2  
Παλιά 09-11-19, 18:11
Το avatar του χρήστη Meteora
Συντονιστής
Όνομα: Νίκος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 28-12-2008
Περιοχή: Θεσσαλονίκη
Μηνύματα: 1.085
Προεπιλογή

Καλησπέρα,
...μια σύντομη πρόταση από εμένα, με την ελπίδα ότι θα βοηθηθείς σε ό,τι θες να κάνεις.
Καλή συνέχεια. Νίκος
Συνημμένα Αρχεία
Τύπος Αρχείου: zip find_memory.zip (22,7 KB, 11 εμφανίσεις)
Απάντηση με παράθεση
  #3  
Παλιά 09-11-19, 22:33
Όνομα: Δημήτρης
Έκδοση λογισμικού Office: Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 20-07-2014
Περιοχή: Πάτρα
Μηνύματα: 385
Προεπιλογή

Καλησπέρα σε όλους

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

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

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


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

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

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


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

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

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

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



*Παρακάτω η νέα τροποποιημένη βάση όπως περιγράφηκε παραπάνω...
Συνημμένα Αρχεία
Τύπος Αρχείου: accdb ExternalDisk Option2.accdb (392,0 KB, 6 εμφανίσεις)
__________________
Φιλικά/Δημήτρης
Απάντηση με παράθεση
  #4  
Παλιά 10-11-19, 10:00
Το avatar του χρήστη Meteora
Συντονιστής
Όνομα: Νίκος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 28-12-2008
Περιοχή: Θεσσαλονίκη
Μηνύματα: 1.085
Προεπιλογή

Καλημέρα
Δοκίμασε την τροποποίηση που έκανα στην ...τροποποιημένη ανάρτηση σου. Έτσι, για την τιμή των όπλων, δες την εικόνα που επισυνάπτω και σε παρακαλώ απάντησε στις ερωτήσεις που θέτω -εκεί στην εικόνα.
Να είσαι καλά / Νίκος
Συνημμένα Thumbnails
Επιλογή μέσου αποθήκευσης της βάσης-photo_1.jpg  
Συνημμένα Αρχεία
Τύπος Αρχείου: zip ExternalDisk Option_test.zip (24,2 KB, 16 εμφανίσεις)
Απάντηση με παράθεση
  #5  
Παλιά 10-11-19, 10:45
Όνομα: Δημήτρης
Έκδοση λογισμικού Office: Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 20-07-2014
Περιοχή: Πάτρα
Μηνύματα: 385
Προεπιλογή

Καλημέρα

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

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

Σε υπερευχαριστώ.
Νάσαι καλά και καλή συνέχεια...
__________________
Φιλικά/Δημήτρης
Απάντηση με παράθεση
  #6  
Παλιά 10-11-19, 11:05
Το avatar του χρήστη Meteora
Συντονιστής
Όνομα: Νίκος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 28-12-2008
Περιοχή: Θεσσαλονίκη
Μηνύματα: 1.085
Προεπιλογή

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

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[Συναρτήσεις] Ερώτηση για συνάρτηση μέσου όρου Σπύρος23 Excel - Ερωτήσεις / Απαντήσεις 3 08-04-23 20:21
[VBA] Υπολογισμός μέσου όρου απο διαφορετικά φύλλα με φόρμα αναζήτησης redzone Excel - Ερωτήσεις / Απαντήσεις 2 24-07-19 09:49
[Excel07] Συνάρτηση αποθήκευσης αν darkaccess Excel - Ερωτήσεις / Απαντήσεις 3 20-05-15 23:33
[Γενικά] Μήνυμα αδυναμίας αποθήκευσης Βίκυ Excel - Ερωτήσεις / Απαντήσεις 1 10-08-12 02:13
Κουμπιά αποθήκευσης και επαναφοράς anestaki Excel - Ερωτήσεις / Απαντήσεις 4 05-04-12 18:16


Η ώρα είναι 07:32.