اريد عند اختيار مسار الصورة يتم نسخ الصورة إلى مجلد

[Hamtoooo]

السلام عليكم 

لدي نموذج فيه التالي :

اريد عند ارفاق مسار الصورة يتم نسخ الصورة وحفظها في مجلد IMAGE  الموجود بجانب القاعدة ..

إليكم المرفق ..

 

123456.rar

شكرا لكم 
 

[ابوخليل]

تفضل

Dim SourceFile, DestinationFile
Dim ons As String
ons = [id_Flightpermits_lab]
SourceFile = filepath_att
DestinationFile = CurrentProject.Path & "\image\" & ons & ".jpg"
FileCopy SourceFile, DestinationFile
[link_file] = DestinationFile

 

 

Downloads.rar

[Hamtoooo]

احسن الله إليك ابو خليل اجابه كافيه ووافيه 
ماذا لو اردت ان اجعل المرفق يقبل تنسيق الصور وال PDF معا
الكود يعمل على الصور فقط

[ابوخليل]

يصبح الكود هكذا

Dim ons As String
Dim typefld As String
ons = [id_Flightpermits_lab]
SourceFile = filepath_att
typefld = Right(SourceFile, Len(SourceFile) - InStrRev(SourceFile, "."))
DestinationFile = CurrentProject.Path & "\image\" & ons & "." & typefld
FileCopy SourceFile, DestinationFile
[link_file] = DestinationFile
MsgBox "تم النسخ بنجاح"

 

قاعدة2.rar