مساعده في ارفاق ملفات

[goldposition]

في الملف المرفق المطلوب عمل فولدر باسم الاي دي وارفاق اكثر من ملف بجميع الصيغ بداخله وليس ملف واحد وشكرا 

Database1.accdb

تم تعديل أكتوبر 1, 2020 بواسطه goldposition

[محمد أبوعبدالله]

لانشاء مجلد برقم ID نستخدم الكود التالي

            Dim fs, cf, strFolder
            strFolder = CurrentProject.Path & "\" & Me.ID.Value
            Set fs = CreateObject("Scripting.FileSystemObject")
            If fs.FolderExists(strFolder) = False Then
            Set cf = fs.CreateFolder(strFolder)
            If fs.FolderExists(strFolder) = True Then
            Else
               MsgBox "تحذير لم يتم انشاء مجلد المرفقات ", vbExclamation
            End If
            End If

ولنسخ الملف بنفس الصيغة الى مجلد ID الي تم انشاءه نستخدم الكود التالي

        Dim Fpathz As Variant

    With Application.FileDialog(3)
        .Title = "Choose File"
        .Filters.Clear
        .Filters.Add "All Files", "*.*"
        .AllowMultiSelect = False
        .InitialFileName = ""
        
         If .Show = -1 Then
            Fpathz = .SelectedItems(1)
            Dim DBwithEXT, DBwithoutEXT As String
            DBwithEXT = Dir(Fpathz)
            DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4)
            
            FileCopy Fpathz, Application.CurrentProject.Path & "\" & Me.ID.Value & "\" & DBwithoutEXT & [ID] & Right(DBwithEXT, 4)
            Me.txtFile = Application.CurrentProject.Path & "\" & Me.ID.Value & "\" & DBwithoutEXT & [ID] & Right(DBwithEXT, 4)
         End If
         End With

واذا اردت ارفق اكثر من ملف فضع اولا اكثر من حقل لارفاق الملف به مثال ( صورة البطاقة - صورة جواز السفر ... وهكذا )

بالمناسبة قمت بتعديل اسماء الحقول فلديك مثلا حقل باسم name وهذه التسمية خطأ فيجب تغيره لانه محجوز من access

Database1.rar

تحياتي

[goldposition]

متشكر جدا هذا هو المطلوب بس لو امكن ينفع اختار اكثر من ملف في المره الواحده بدل ما اختار ملف واحد وارجع اختار ملف اخر

[محمد أبوعبدالله]

1 دقيقه مضت, goldposition said:

لو امكن ينفع اختار اكثر من ملف في المره الواحده بدل ما اختار ملف واحد وارجع اختار ملف اخر

 

10 دقائق مضت, محمد أبوعبدالله said:

واذا اردت ارفق اكثر من ملف فضع اولا اكثر من حقل لارفاق الملف به مثال ( صورة البطاقة - صورة جواز السفر ... وهكذا )

تحياتي

[goldposition]

للاسف جربتها مانفعتش ممكن مثال فيه اتنين مثلا انا اسف هتعبك معايا

[محمد أبوعبدالله]

1 دقيقه مضت, goldposition said:

للاسف جربتها مانفعتش ممكن مثال فيه اتنين مثلا انا اسف هتعبك معايا

تفضل اخي الكريم

تحياتي

[goldposition]

المطلوب اللي في الصوره يعني بعد الضغط على الزر بيظهرلي صفحة اختيار الملف محتاج اختار اكتر من واحده  واسف مره اخرى

[محمد أبوعبدالله]

اخي الكريم

يمكنك ان تختار اكثر من ملف بتغيير القيمة

.AllowMultiSelect = False

الى

.AllowMultiSelect = True

ولكن المشكلة ليس في ذلك

المشكلة في تخزين القيمة في txtFile ونسخ هذه الملفات الى مجلد ال ID

فانت امامك خيارين اما ان تضع اكثر من حقل كما اخبرتك في الطريقة السابقة

او ان تنشىئ جدول جديد للمرفقات وتضع كل اختيار في سجل ثم نسخ هذه الملفات الى مجلد ID

واعتقد ان هذه الطريقة بها شغل كثير

ويمكنك الاستفادة من هذه المشاركة ستفيدك جدا ان شاء الله

تحياتي

[goldposition]

تمام شكرا جدا ليك

[محمد أبوعبدالله]

11 دقائق مضت, goldposition said:

تمام شكرا جدا ليك

بالتوفيق اخي الكريم

تحياتي

[goldposition]

عملتها في المرفق بس في مشكله بيحفظ الملفات بدون امتداد هل في حل

mmm.rar

[محمد أبوعبدالله]

استبدل

'    FileCopy SourceFile, DestinationFile

بهذا الكود

            Dim Fpathz As Variant
            Fpathz = .SelectedItems(1)
            Dim DBwithEXT, DBwithoutEXT As String
            DBwithEXT = Dir(Fpathz)
            DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4)
            FileCopy Fpathz, Application.CurrentProject.Path & "\photo\" & DBwithoutEXT & [imgNo] & Right(DBwithEXT, 4)

mmm.rar

ملاحظة : انت استبدلت الكود كلياً ولم تستخدم الطلبات التي ذكرتها في المشاركة الاولى

7 ساعات مضت, goldposition said:

المطلوب عمل فولدر باسم الاي دي وارفاق اكثر من ملف بجميع الصيغ بداخله وليس ملف واحد

تحياتي

[goldposition]

 متشكر جدا جدا انا لسه هاخد الكود واجمعه علشان يعملي فولدر بس لسه بجمع الاكواد اللي ناقصه واعتقد كده هي كملت ان شاء الله هضيف عليه كود الفولدر انا متشكر جدا 

[goldposition]

للاسف في مشكله في الطريقه دي انه لو اخدت اكتر من ملف بياخدهم بس لما بفتح الملفات بيطلعو كلهم ملف واحد يعني بفتحهم بلاقيهم نفس الملف لاكن القديمه بياخد الملفات كلها بس بدون امتداد

تم تعديل أكتوبر 2, 2020 بواسطه goldposition