Hamtoooo قام بنشر أغسطس 27, 2023 قام بنشر أغسطس 27, 2023 السلام عليكم لدي نموذج فيه التالي : اريد عند ارفاق مسار الصورة يتم نسخ الصورة وحفظها في مجلد IMAGE الموجود بجانب القاعدة .. إليكم المرفق .. 123456.rar شكرا لكم
ابوخليل قام بنشر أغسطس 27, 2023 قام بنشر أغسطس 27, 2023 تفضل 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 1
Hamtoooo قام بنشر أغسطس 27, 2023 الكاتب قام بنشر أغسطس 27, 2023 احسن الله إليك ابو خليل اجابه كافيه ووافيه ماذا لو اردت ان اجعل المرفق يقبل تنسيق الصور وال PDF معا الكود يعمل على الصور فقط
أفضل إجابة ابوخليل قام بنشر أغسطس 27, 2023 أفضل إجابة قام بنشر أغسطس 27, 2023 يصبح الكود هكذا 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 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.