[ Συναρτήσεις ] Drag and Drop αρχείου σε φόρμα

[dimitrisp]

Καλημέρα!

Στο συνημμένο που ανέβασα υπάρχει η φόρμα frmA.
Θα ήθελα να πραγματοποιήσω το εξής:

Κάνοντας drag and drop ένα αρχείο (pdf, word, txt κλπ) από την επιφάνεια
εργασίας στο πεδίο κειμένου ή, εναλλακτικά, στη Φόρμα, να ενεργοποιείται
άμεσα η εντολή cmdTest!

Επισημαίνεται ότι, δεν με ενδιαφέρει η απόθεση του αρχείου κάπου, απλώς με το που "σύρεται" το αρχείο
στην επιφάνεια τής φόρμας, θα ήθελα, να ενεργοποιείται άμεσα η εντολή!

Κάθε βοήθειά σας θα ήταν πολύτιμη, δεδομένου ότι προσπαθώ να δημιουργήσω ένα
project, ιδιαίτερης σημασίας για μένα.

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

[Tasos]

Καλημέρα Δημήτρη!

Το ζητούμενο μπορεί να επιτευχθεί με τη χρήση του αντικειμένου "Microsoft Webbrowser"

Επισυνάπτω παράδειγμα.

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

Με εκτίμηση

Τάσος

[dimitrisp]

Καλησπέρα και Χρόνια πολλά, με υγεία, στους Γιώργηδες!

Τάσο σε υπερευχαριστώ για την πολύτιμη βοήθεια που μου έδωσες.
Έκανα προσαρμογή στη βάση μου, με άριστα αποτελέσματα!

Θα ήθελα μια βοήθεια ακόμη, αν είναι δυνατόν:
Ανεβάζω εκ νέου την παραδειγματική βάση τροποποιημένη, συμφωνα με την πρότασή σου.
Στή φόρμα [frmB] πρόσθεσα κώδικα ο οποίος σχετίζεται με τη δημιουργία φακέλου,
προς αποθήκευση εγγράφων, σε επιλεγμένη διαδρομή του δίσκου C:\.

Έτσι, όταν σύρουμε και εναποθέτουμε ένα αρχείο στη φόρμα drag drop:
Ενεργοποιείται η εντολή [cmd1] και ανοίγει ο ήδη αποθηκευμένος φάκελος στον C:\ ή,
(εφόσον δεν υπάρχει) μάς ζητεί να δημιουργήσουμε νέο φάκελο.

Ε ρ ώ τ η σ η:
Μπορούμε να τροποποιήσουμε τον κώδικα της εντολής [cmd1] έτσι ώστε να (μην) ανοίγει ο
αποθηκευμένος φάκελος και το αρχείο (πχ pdf) το οποίο σύρουμε και εναποθέτουμε
να αποθηκεύται αυτομάτως στο ίδιο φάκελο(εφόσον ήδη υπάρχει)?

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

Σημαντική σημείωση: Οι φίλοι του Forum να λάβουν υπόψη ότι, για να λειτουργήσει ο κώδικας για τη δημιουργία φακέλων κλπ, θα πρέπει να
να προστεθεί η αναφορά (Editor VBA, Tools, References), Microsoft Office 16.0 Obiect Library ή Microsoft Office 14.0 Obiect Library
Σχετκά δείτε το θέμα: http://www.ms-office.gr/forum/access...on-xristi.html

[Tasos]

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

Δημήτρη απ΄ ότι αντιλαμβάνομαι θέλεις να αποθηκεύεις, να ανοίγεις και γενικότερα να διαχειρίζεσαι αρχεία πελατών.

Δημιούργησα ένα παραδειγματικό αρχείο που νομίζω ότι καλύπτει το ζητούμενο μας.

Δες εδώ:
http://www.ms-office.gr/forum/access...html#post30939

Δοκίμασε και τα λέμε πάλι.

Με εκτίμηση

Τάσος

[dimitrisp]

Καλημέρα!

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

Ωστόσο, ελπίζοντας να μην κάνω κατάχρηση, θα ήθελα να κάνω μια ακόμη ερώτηση:
Στη βάση μου, κάθε αρχείο .pdf αποθηκεύεται με ένα μοναδικό αριθμό (πεδίο [KODIKOS])
στον πίνακα [tblB] στη βάση που ανέβασα). Για παράδειγμα αν ο KODIKOS είναι [156],
το αρχείο αποθκεύεται ως [156.pdf] κλπ.

Για πρόσθετη ευκολία, είναι δυνατόν κάνοντας κλικ στο πεδίο [KODIKOS = 156],
το αποθηκευμένο αρχείο [156.pdf] που υπάρχει στη λίστα του WebBrowser:
•να επιλέγεται (χρωματίζεται) ή (ακόμη καλύτερα),
•να ανοίγει

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

Σε κάθε περίπτωση είμαι υπόχρεος για τη βοήθεια σας.