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/4096-dimioyrgia-fakeloy.html)

mgeorge 12-03-16 14:06
Δημιουργία Φακέλου
 
1 Συνημμένο(α)
Καλησπέρα σας,
Θα ήθελα για μια ακόμη φορά την βοήθειά σας αν είναι εφικτό.
Όπως θα δείτε στο δείγμα που ανεβάζω έχω ένα κουμπί (Δημιουργία Φακέλου),θα ήθελα πατώντας το να μου δημιουργεί ένα φάκελο πχ στην επιφάνεια εργασίας με όνομα φακέλου τα (ΟΝΟΜΑΤΕΠΩΝΥΜΟ,ΕΤΑΙΡΙΑ,ΑΦΜ) .

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

kapetang 12-03-16 18:52
Καλησπέρα

Γιώργο, θα μπορούσες να χρησιμοποιήσεις τον παρακάτω κώδικα:

Κώδικας:
Private Sub cmdCreateFolder_Click()
    Dim strBasicFolder As String
    Dim strNewFolder As String

    On Error GoTo err_Hander
   
    'Εδώ ορίζεται ο βασικός φάκελος, όπου θα δημιουργούνται οι νέοι
    strBasicFolder = "C:\Users\Admin\Desktop\"
   
    strNewFolder = Replace(Me.ΟΝΟΜΑΤΕΠΩΝΥΜΟ, " ", "_") & "_" & _
                  Replace(Me.ΕΤΑΙΡΙΑ, " ", "_") & "_" & Me.ΑΦΜ

    strNewFolder = strBasicFolder + strNewFolder
    If Dir(strNewFolder, vbDirectory) = "" Then
        MkDir strNewFolder
        MsgBox "Ο φάκελος Δημιουργήθηκε"
    Else
        MsgBox "Ο φάκελος Υπάρχει"
    End If
    Exit Sub
err_Hander:
    MsgBox "Error #" & Err.Number & vbCrLf & Err.Description
End Sub
Ο κώδικας δεν ελέγχει, αν στα πεδία, που θα αποτελέσουν το όνομα του νέου φακέλου, υπάρχουν μη έγκυροι χαρακτήρες (πχ #, %, &, *, \ ?, |, :, “).

Αν υπάρχουν, θα προκληθεί λάθος και θα εμφανιστεί σχετικό μήνυμα.

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

dimitrisp 13-03-16 01:01
Καλημέρα

Γιώργο (kapetang),



Είναι δυνατόν αντί για το πεδίο ΑΦΜ να χρησιμοποιήσουμε ένα άλλο πεδίο που να περιέχει κάποια ημερομηνία?

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

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

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

mgeorge 13-03-16 10:19
Γιώργο Καλημέρα,
Παίζει άψογα,σε ευχαριστώ πάρα πολύ.
Μια ερώτηση ακόμη,θα ήθελα να προσθέσω άλλο ένα κουμπί με το οποίο να μπορώ να ανοίγω τον συγκεκριμένο φάκελο,πως μπορεί να γίνει αυτό;

kapetang 13-03-16 10:41
Καλημέρα

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

Θα πρέπει να αντικατασταθούν ή να αφαιρεθούν.

Αν υποθέσουμε ότι το πεδίο ημερομηνίας είναι το fDate, στον κώδικα αντί για & Me.ΑΦΜ μπορούμε να έχουμε:

& Format(Me.fDate, "yyyy_mm_dd")

ή & Format(Me.fDate, "yyyymmdd")

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

dimitrisp 13-03-16 10:51
Καλημέρα

Γιώργο (kapetang),

Εφάρμοσα την πρότασή σου στη Φόρμα μου και λειτουργεί τέλεια.
Όπως ακριβώς ήθελα...

Σε ευχαριστώ πολύ.

dimitrisp 14-03-16 01:46
1 Συνημμένο(α)
Καλημέρα.

Σε συνέχεια των παραπάνω, ανεβάζω εκ νέου τη συνημμένη βάση του Γιώργου (mgeorge) με μιά μικρή τροποποίηση:

Πρόσθεσα ένα κουμπί εντολής " Εύρεση φακέλου... " το οποίο, με κατάλληλο κώδικα, εντοπίζει το φάκελο μέσα στον οποίο βρίσκονται όλοι οι φάκελοι που δημιουργήθηκαν με το κουμπί εντολής "Δημιουργία φακέλου"
Σημείωση: Γιά τη "Δημιουργία φακέλου" χρησιμοποιήθηκε με επιτυχία ο παραπάνω κώδικας που προτάθηκε από το Γιώργο (kapetang).

Θα ήθελα, κάνοντας κλικ στο κουμπί εντολής " Εύρεση φακέλου... " να ανοίγει ο αποκλειστικά ο φάκελος που δημιουργήθηκε με τα στοιχεία της τρέχουσας εγγραφής (ΟΝΟΜΑΤΕΠΩΝΥΜΟ, ΕΤΑΙΡΙΑ, ΑΦΜ) και, βεβαίως, να φαίνεται το περιεχόμενό του.

Ελπίζω να παράθεσα με σαφήνεια το ζητούμενο.

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

kapetang 14-03-16 10:27
1 Συνημμένο(α)
Καλημέρα

Δημήτρη, δες μια απλή πρόταση στο συνημμένο.

Μη ξεχάσεις να ορίσεις σωστά τον πατρικό φάκελο των δημιουργούμενων φακέλων (strParentFolder).

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

dimitrisp 14-03-16 10:58
Καλημέρα

Γιώργο, σε ευχαριστώ για την άμεση απάντησή σου.
Κάνω τις δοκιμές μου και επανέρχομαι...

ΥΓ.: Επίιτρεψέ μου να κάνω έναν σχολιασμό:
Δεν γνωρίζω αν το πρόσεξες,αλλά με την απάντησή σου αυτή έφτασες τη συμμετοχή σου στο Forum στα 2000 μηνύματα!!!
Νομίζω, πως τέτοιες συμμετοχές (στο αδιαμφισβήτητα αξιόλογο Forum που μας φιλοξενεί) έχουν την αξία τους... (όποια κι αν είναι αυτή...)

kapetang 14-03-16 11:14
Φίλε, Δημήτρη δεν το είχα προσέξει. Σ' ευχαριστώ.

dimitrisp 14-03-16 11:19
Φίλε Γιώργο,

Δ ι δ ά σ κ ε ι ς !!!

Έκανα τις δοκιμές μου. Η πρότασή σου λειτουργεί τέλεια...

Θερμές ευχαριστίες.

mgeorge 14-03-16 16:41
Καλησπέρα,
Γιώργο να σε ευχαριστήσω κι εγώ με την σειρά μου,η βοήθειά σου ήταν απίστευτα σημαντική.

Σε ευχαριστώ πάρα πάρα πολύ!!!


Η ώρα είναι 15:44.

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


Search Engine Optimization by vBSEO 3.3.2