[gianniskar]

ok Τασο θα το κοιταξω.Ναι ειχα καταλαβει οτι θελει ορισματα αλλα δεν ηξερα τι να βαλω.πχ τωρα εβαλα
strNewFolder =MakeNameFolder("Epitheto","onoma")

Aπλα δεν καταλαβα πως θα λειτουργησει ολο αυτο οπως μου απαντησες και στο αλλο ποστ


Τον παρακάτω κώδικα (Function) μπορείς να τον βάλεις στο ίδιο Module:

Public Function MakeNameFolder(ByVal sEpitheto As String, ByVal sOnoma As String) As String
Const strParentFolder As String = "C:\test"
Dim strname As String
If Dir(strParentFolder, vbDirectory) = "" Then
MkDir strParentFolder
End If
If Len(sOnoma) * Len(sEpitheto) Then
strname = Replace(sOnoma, " ", "_") & "_" & _
Replace(sEpitheto, " ", "_")
End If
MakeNameFolder = strParentFolder & strname
End Function

Αντικατέστησε των κώδικα που έχεις στην αναφορά με:"θα το βαλω σε event load_form"

str=MakeNameFolder(Me.ΕΠΙΘΕΤΟ, Me.ΟΝΟΜΑ)

Σε ευχαριστω