Δημιουργία φακέλου με επιλογή της διαδρομής στο δίσκο"C" από τον χρήστη.

[dimitrisp]

Γιώργο

Σε ευχαριστώ γιά το χρόνο και τον κόπο που διέθεσες, προκειμένου να μου δώσεις μιά πλήρη και εμπεριστατωμένη απάντηση σχετικά με το ζητούμενο.

Θα μελετήσω την πρότασή σου και θα επανέλθω ...

[dimitrisp]

Γιώργο (Kapetang)

Κατόπιν ενδελεχούς μελέτης της πρότασής σου, κατέληξα στο συμπέρασμα
να αφήσω την προεπιλεγμένη διαδρομή γιά τη δημιουργία φακέλου,
όπως άλλωστε το σχεδίασα απ` την αρχή.

Απλώς ξεκίνησα να σκέφτομαι το όλο θέμα όταν, λειτουργώντας τη βάση
σε άλλο PC, προκειμένου να δημιουργήσω νέο φάκελο έπρεπε να αλλάξω
τη βασική διαδρομή, με συνέπεια να ανοίγω τη βάση σε προβολή σχεδίασης
γιά διόρθωση του Κώδικα κλπ.

Αυτό ακριβώς προσπαθούσα να πετύχω: Όταν δουλεύει πάνω στη βάση
οποιοσδήποτε χρήστης σε οποιοδήποτε PC να μπορεί να δημιουργεί νέο
φάκελο χωρίς να επεμβαίνει άμεσα στον κώδικα.

Δηλαδή, με άλλα λόγια, να μπορεί να παραμετροποιεί ο χρήστης τη διαδρομή
δημιουργίας του φακέλου στο δικό του PC.

[kapetang]

Καλησπέρα

Δημήτρη, το συνημμένο αποτελεί προσομοίωση του ζητούμενου.

Ο πατρικός φάκελος στον οποίο θα δημιουργούνται (και θα αναζητούνται) οι φάκελοι επιλέγεται μία φορά και αποθηκεύεται στο μητρώο (Regsestry) των windows.

Έτσι όταν ανοίξουμε την εφαρμογή σε νέο υπολογιστή:

1) Επειδή δεν υπάρχει στο μητρώο καταχώρηση για τον πατρικό φάκελο, ανοίγει το σχετικό πλαίσιο διαλόγου για να τον επιλέξουμε.

2) Η επιλογή που κάνουμε, αποθηκεύεται στο μητρώο.

3) Στη συνέχεια, επειδή υπάρχει καταχώρηση στο μητρώο, δεν ξαναεμφανίζεται το πλαίσιο διαλόγου και η δημιουργία και η αναζήτηση του φακέλου γίνεται στον αποθηκευμένο στο μητρώο πατρικό.

Κάνε δοκιμές, μήπως κάτι μου διέφυγε.

Φιλικά/Γιώργος

[dimitrisp]

Kαλησπέρα

Γιώργο, σ` ευχαριστώ γιά μιά ακόμη φορά γιά τη βοήθειά σου.

Έκανα τις δοκιμές μου και διαπίστωσα ότι η μέθοδος αυτή λειτουργεί άψογα.

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

1) Μπορούμε να δημιουργήσουμε σε μία άλλη φόρμα της ίδιας βάσης
παρόμοια περίπτωση αλλά με διαφορετική διαδρομή (διαφορετικός πατρικός φάκελος);
Και τούτο διότι, με την παλιά μέθοδο που χρησιμοποιούσα, δημιουργούσα δυο διαφορετικούς φακέλους στο "C" όπου αποθήκευα στον καθένα ομοειδή έγγραφα.

2) Υπάρχει δυνατότητα (τρόπος) ο χρήστης κάποια στιγμή να μπορεί
να αλλάξει τον πατρικό φάκελο που αρχικά δημιούργησε (Χωρίς να παρέμβει άμεσα στο μητρώο);

[kapetang]

Καλησπέρα
1)
Δημήτρη, με τη βοήθεια των συναρτήσεων SaveSetting και GetSettings, μπορούμε να καταχωρήσουμε στο μητρώο (και να διαβάσουμε) πολλούς πατρικούς φακέλους (διαδρομές Path), όπως φαίνεται και στη συνημμένη εικόνα.

Στη συνημμένη ΒΔ έχω προσθέσει και τη φόρμα, Πίνακας2.

Η φόρμα Πίνακας2 είναι όμοια με την Πίνακας1 και διαφέρει μόνο ως προς τον πατρικό φάκελο.

Στη φόρα Πίνακας1 πατρικός είναι αυτός που αντιστοιχεί στην τιμή Path του μητρώου, ενώ στη φόρμα Πίνακας2 αυτός που αντιστοιχεί στην τιμή Path2.

2)
Στις φόρμες έχω προσθέσει και ένα κουμπί για την αλλαγή των αντίστοιχων πατρικών φακέλων.

3)
Αν καταχωρηθεί στο μητρώο κάποιος πατρικός φάκελος και μετά τον διαγράψουμε από το σύστημα αρχείων του PC, όταν θα πάμε να δημιουργήσουμε σ' αυτόν κάποιο φάκελο, θα προκληθεί λάθος.

Φιλικά/Γιώργος

[dimitrisp]

Kαλημέρα

Γιώργο, σ` ευχαριστώ πάρα πολύ γιά την πολλαπλή ενασχόλησή σου με το θέμα μου.
Η πρότασή σου αποτελεί υποδειγματική επίλυση του ζητούμενου και λειτουργεί άψογα.


Όμως, δεν μπορώ να την προσαρμόσω στη φόρμα μου, παρά τις διάφορες δοκιμές που έκανα και μου είναι ανεξήγητο το γιατί συμβαίνει αυτό.
Μου βγάζει "Compile error" (Δες την παρακάτω εικόνα)

Τι δοκιμές έκανα:

α) Μετέφερα όλα τα δεδομένα της βάσης μου στη βάση "MakeOpenFolder4" ,που ανέβασες τελευταία, και διαπιστωσα ότι, παραδόξως, όλα λειτουργούσαν χωρίς πρόβλημα!

β) Δημιούργησα νέα κενή ΒΔ και εισήγαγα όλα τα δεδομένα της βάσης "MakeOpenFolder4" που ανέβασες τελευταία.
Αποτέλεσμα: "Compile error"

γ) Μετέφερα τη νέα βάση τροποποιημένη με το παράδειγμά σου σε άλλον υπολογιστή τροποποιημένη με το παράδειγμά σου.
Αποτέλεσμα: "Compile error"

δ) Δημιούργησα νέα κενή ΒΔ, με νέο πίνακα κλπ. και προσάρμοσα τον κώδικα σε αυτή.
Αποτέλεσμα: "Compile error"
Ανεβάζω αυτή τη ΒΔ να δείς μήπως κάνω λάθος σε κάτι.

Συμπερασματικά, ενώ η δική σου ΒΔ (MakeOpenFolder4) λειτουργεί κανονικότατα σε οποιοδήποτε PC, εγώ ότι ότι και να κάνω (παραπάνω περ. β,γ,δ) έχω πρόβλημα.

[kapetang]

Καλησπέρα

Δημήτρη, απουσιάζει η αναφορά στη βιβλιοθήκη: Microsoft Office 14.0 Object Library.

Δες τη συνημμένη εικόνα.

Μπορείς:

1) Να προσθέσεις την αναφορά (Editor VBA, Tools, References).

2) Ή να αντικαταστήσεις τη σταθερά msoFileDialogFolderPicker, με το 4.

Φιλικά/Γιώργος

[dimitrisp]

Καλησπέρα.

Γιώργο, σε υπερευχαριστώ. Τέλειο !!!

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

Με όλον τον σεβασμό στο Forum που μας φιλοξενεί, ας μου επιτραπεί από το διαχειριστή, να προτείνω να αναρτηθεί το παράδειγμά σου στην ενότητα "Access samples - Χρήσιμα αρχεία & παραδείγματα ".

Καλή συνέχεια...