مساعدة فى AllowMultiSelect = True

[walid7799]

السلام عليكم ورحمة الله

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

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

[ازهر عبد العزيز]

وغليكم السلام

استخدم اسنعلام التحديث ولن تحتاج الى كود

[Moosak]

2 ساعات مضت, walid7799 said:

السلام عليكم ورحمة الله

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

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

وعليكم السلام ورحمة الله وبركاته ..

الكود  موجود ولكن نحتاج مرفق للتطبيق عليه .. 🙂

تم تعديل فبراير 26, 2022 بواسطه Moosak

[walid7799]

8 ساعات مضت, ازهر عبد العزيز said:

استخدم اسنعلام التحديث ولن تحتاج الى كود

البيانات المطلوب اضافتها مسارات الصور استعلام التحدبث ؟؟ 

ازاى استعمله فى كتابة المسارات فى جدول داخل قاعدة البيانات

ارجو الشرح

[walid7799]

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

الكود  موجود ولكن نحتاج مرفق للتطبيق عليه .. 🙂

ممكن حضرتك ترسلة وانا اجربة على قاعدة البيانات عندى مش لازم مرفق

[Moosak]

51 دقائق مضت, walid7799 said:

ممكن حضرتك ترسلة وانا اجربة على قاعدة البيانات عندى مش لازم مرفق

هل هذا هو الكود الذي تريد التعديل عليه؟

 

[Moosak]

تفضل هذا هو الكود 🙂  :

Sub GetFiles()
Dim fdialog As Office.FileDialog
Dim filepath As String
Dim Item As Variant

Set fdialog = Application.FileDialog(msoFileDialogFilePicker)

With fdialog
            .Title = "Select image"
            .AllowMultiSelect = True
            .Filters.Clear
            .Filters.Add "Image file", "*.jpg ; *.bmp ; *.png"
            
            If .Show Then
                For Each Item In .SelectedItems
                    DoCmd.GoToRecord , , acNewRec
                    filepath = .SelectedItems(1)
                    [PthIn1] = filepath
                Next
            Else
                Exit Sub
            End If
End With
MsgBox "تم إضافة الملفات بنجاح"
End Sub

 

تم تعديل فبراير 27, 2022 بواسطه Moosak

[walid7799]

شكرأ على الاهتمام

أخى الكريم السلام عليكم ورحمة الله وبركاته ...

هذا الكود لكى يعمل لا بد من مديزل داعم وألا أصبح يأخذ مسار واحد وأنا شغال بالكود هذا من زمان وحفظه

وشكرأ

[Moosak]

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

شكرأ على الاهتمام

أخى الكريم السلام عليكم ورحمة الله وبركاته ...

هذا الكود لكى يعمل لا بد من مديزل داعم وألا أصبح يأخذ مسار واحد وأنا شغال بالكود هذا من زمان وحفظه

وشكرأ

عدلت لك الكود ليقبل أكثر من ملف ويحفظ كل مسار في سجل جديد ..

[أبو عبدالله الحلوانى]

في 4‏/3‏/2022 at 02:42, walid7799 said:

هذا الكود لكى يعمل لا بد من مديزل داعم وألا أصبح يأخذ مسار واحد

حقيقة لم افهم قصدك 

ولكن هذا اكود بحاجة لاضافة مكتبة الأوقيس الخاصة بالاصدار الذي تعمل عليه من الــ refrences 

مثل هذه الصور

ملاحظة: يختلف رقم الاصدار حسب الاصدار الذي تعمل عليه 

فأوفيس 2003  تقريبا اصدار الخاص به 0.11

فأوفيس 2007  تقريبا اصدار الخاص به 0.12

وهكذا 

وعلي كلا ان لم يكن هذا مرادك فرجاءا زيادة توضيح عن ما المشكلة التي تواجهها