[Tasos]

Καλημέρα σε όλους!
Αγαπητέ Θοδωρή,
Χαιρέτα μας και... μη μας αγαπάς!

Στη μια λειτουργική μονάδα δηλώνεις τις (δημόσιες) μεταβλητές σου καθώς και τις σταθερές όπως φαίνεται παρακάτω:

Option Compare Database
Option Explicit
Public Const PathPrefix As String = "C:"
Public Const PS As String = "\" 'PathSeparator
Public pvafm As String
Public pvetos As String

Στο συμβάν Click ενός κουμπιού ή σε κάποιο άλλο συμβάν στη φόρμα σου
μπορείς να χρησιμοποιήσεις το παρακάτω παράδειγμα:

Private Sub cmdMyButton_Click()
    Dim strPath As String
    pvafm = "343545646"    'ή την τιμή από κάποιο πλαίσιο κειμένου
    pvetos = "2010"        'ή την τιμή από κάποιο πλαίσιο κειμένου
    strPath = Replace( _
              PathPrefix & _
              PS & _
              pvafm & _
              PS & _
              pvetos & _
              PS, _
              PS & PS, PS)
    MakeSureDirectoryPathExists strPath
    ' ή
    SecurePath strPath
End Sub

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

Φιλικά

Τάσος