Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια! |
| Εργαλεία Θεμάτων | Τρόποι εμφάνισης |
#1
| |||
| |||
Επιλογή μέσου αποθήκευσης της βάσης
Γειά σας Στη δειγματική Βάση που ανέβασα, υπάρχει η Φόρμα [frm1]. Σ`αυτή, αν κάνουμε κλικ στο κουμπί "Επιλογή δίσκου αποθήκευσης" αναδύεται παράθυρο, με τίτλο "Αναζήτηση φακέλου", όπου μας δίνεται η δυνατότητα να επιλέξουμε θέση αποθήκευσης (της βάσης μας). Αν, κατά τη στιγμή της παραπάνω ενέργειας, δεν έχουμε συνδεδεμένη εξωτερική συσκευή αποθήκευσης(USB) στο PC, είναι δυνατον στο αναδυόμενο παράθυρο να μας δίνεται υποχρεωτικά επιλογή δίσκου αποθήκευσης μόνο σε εξωτερική συσκευή αποθήκευσης(USB) και αν δεν υπάρχει να ενημερώνεται ο χρήστης με MsgBox ότι "δεν υπάρχει εξωτερικό μέσο αποθήκευσης", ή, εναλλακτικά, οι επιλογές στο αναδυόμενο παράθυρο να παραμείνουν ως έχουν αλλά, εφόσον δεν έχουμε συνδεδεμένη εξωτερική συσκευή αποθήκευσης(USB) στο PC, να ενημερώνεται ο χρήστης με MsgBox ότι "δεν υπάρχει εξωτερικό μέσο αποθήκευσης". Σας ευχαριστώ εκ των προτέρων
__________________ Φιλικά/Δημήτρης |
#2
| ||||
| ||||
Καλησπέρα, ...μια σύντομη πρόταση από εμένα, με την ελπίδα ότι θα βοηθηθείς σε ό,τι θες να κάνεις. Καλή συνέχεια. Νίκος |
#3
| |||
| |||
Καλησπέρα σε όλους Νίκο σ`ευχαριστώ για την απάντησή σου. Όμως,το παράδειγμα που ανέβασες δε λειτουργεί. Απλώς με το πάτημα του κουμπιού βγάζει το ίδιο μήνυμα είτε έχω συνδεδεμένη εξωτερική μονάδα αποθήκευσης είτε όχι. Ωστόσο, για να γίνω πιο σαφής θα σας περιγράψω ακολούθως ποιος είναι ο τελικός σκοπός μου: α) Όταν ο χρήστης ανοίξει το παράθυρο διαλόγου για αναζήτηση φακέλου και επιλέξει να αποθηκεύσει αντίγραφο ασφαλείας σε οποιονδήποτε φάκελο του "C:\" τότε να ενημερώνεται με μήνυμα: MsgBox "Δεν μπορείτε να αποθηκεύσετε αντίγραφο ασφαλείας στο φάκελο "C:\" όπου βρίσκεται η εφαρμογή! β) Όταν ο χρήστης ανοίξει το παράθυρο διαλόγου γιά αναζήτηση φακέλου και επιλέξει να αποθηκεύσει το αντίγραφο ασφαλείας σε ήδη συνδεδεμένη εξωτερική μονάδα αποθήκευσης (εξωτερικό σκληρό δίσκο, φλασάκι κλπ) να προχωρά η κανονικά διαδικασία αποθήκευσης (όπως αυτή έχει οριστεί με άλλον κώδικα) γ) Τέλος, όταν ο χρήστης ανοίξει το παράθυρο διαλόγου γιά αναζήτηση φακέλου και δεν υπάρχει συνδεδεμένη εξωτερική μονάδα αποθήκευσης (εξωτερικός σκληρός δίσκος, φλασάκι usb κλπ) τότε να ενημερώνεται με μήνυμα: MsgBox "Δε βρέθηκε συνδεδεμένη εξωτερική μονάδα αποθήκευσης". Δηλαδή, με άλλα λόγια, δε θέλουμε σε καμιά περίπτωση ο χρήστης να αποθηκεύει το αντίγραφο ασφαλείας στο φάκελο "C:\", αλλά σε εξωτερικό σκληρό δίσκο, φλασάκι κλπ. Ερευνώντας το Forum βρήκα μια ανάρτηση του Τάσου Φιλοξενίδη "http://www.ms-office.gr/forum/access...ss-backup.html" Βάσει αυτής, τροποποίησα την αρχική βάση* που ανέβασα. Όμως, ισχύει μόνον όταν η βάση βρίσκεται στον ίδιο φάκελο του "C:\". Για παράδειγμα, ας υποθέσουμε ότι έχουμε τη βάση μας στην επιφάνεια εργασίας. Τώρα, αν στο παράθυρο διαλόγου επιλέξουμε το φάκελο "Επιφάνεια εργασίας" έχουμε το μήνυμα MsgBox "Δεν μπορείτε να αποθηκεύσετε αντίγραφο ασφαλείας στον φάκελο που βρίσκεται η εφαρμογή!" & vbLf & _ "Επιλέξτε άλλη διαδρομή ή δημιουργήστε νέο φάκελο." Αν, αντίστοιχα, επιλέξουμε το φάκελο "Έγγραφα" ή οποιονδήποτε άλλο φάκελο του "C:\", μάς επιτρέπει κανονικά την αποθήκευση, πράγμα που δεν είναι επιθυμητό! Με αυτά τα δεδομένα ευελπιστώ στην πολύτιμη βοήθειά σας. *Παρακάτω η νέα τροποποιημένη βάση όπως περιγράφηκε παραπάνω...
__________________ Φιλικά/Δημήτρης |
#4
| ||||
| ||||
Καλημέρα Δοκίμασε την τροποποίηση που έκανα στην ...τροποποιημένη ανάρτηση σου. Έτσι, για την τιμή των όπλων, δες την εικόνα που επισυνάπτω και σε παρακαλώ απάντησε στις ερωτήσεις που θέτω -εκεί στην εικόνα. Να είσαι καλά / Νίκος |
#5
| |||
| |||
Καλημέρα Νίκο, είσαι... αρχηγός! Μου έδωσες ακριβώς αυτό που ήθελα... Θα το προσαρμόσω στη Βάση μου και αν έχω πρόβλημα θα μου επιτρέψεις να επανέλθω. Επιπροσθέτως θα ήθελα να σου δηλώσω και τα ακόλουθα: Δουλεύω με τα Windows 10. Για να είμαι απολύτως ειλικρινής μαζί σου το πρώτο παράδειγμα που μου έδωσες λειτουργούσε κανονικά με τη διαφορά ότι το είδα εντελώς επιφανειακά και πρόχειρα, χωρίς να προσέξω τη φράση του κώδικα "Set Drive = FSO.GetDrive("D:")". Όταν αντικατέστησα το "D:" με το "F:", (όπου ήταν το τοποθετημένο το δικό μου USB) τότε είδα το αποτέλεσμα. Σε υπερευχαριστώ. Νάσαι καλά και καλή συνέχεια...
__________________ Φιλικά/Δημήτρης |
#6
| ||||
| ||||
Η δουλειά -και αυτήν τη φορά, είναι του Τάσου. Μια τεράστια προσφορά προς όλους εμάς -χιλιάδες σήμερα- που φτιάχνουμε μικρές, χρήσιμες και ωραίες εφαρμογές που μας γεμίζουν ικανοποίηση και τονώνουν την αυτοπεποίθησή μας... Δεν θα γράψω κάτι παραπάνω, ελπίζω όμως κάποια στιγμή να βρω τις λέξεις και να φτιάξω ένα κείμενο, για να πω το δικό μου ευχαριστώ σε αυτό το παιδί από την Κρήτη. Καλημέρα σε όλους / Νίκος |
« Προηγούμενο Θέμα
|
Επόμενο Θέμα »
Εργαλεία Θεμάτων | |
Τρόποι εμφάνισης | |
| |
Παρόμοια Θέματα | ||||
Θέμα | Δημιουργός | 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.