طلب استخلاص كود .Allow Multi Select = true فى File Dialog

[walid7799]

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

أخوانى الكرام كثيرا ما نحتاج أضافة مرفقات متعددة عند استدعاء دالة File Dialog 

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

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

ويدعم جميع الصيغ للملفات

وقابلنى مشكلة أننى لا أجد حلاً لأستخلاص الكود منفصلاً لوضعه بأحد النماذج بالقاعدة النى أعمل عليها

رجياً من الله ثم من اساتذتنا بالمنتدى الكريم (أوفيسنا) فتح باب نقاش للموضوع والاستفادة من خبرات معلمينا بمنتدى أوفيسنا وكيفية استخلاص الكود

والمديول به نفس الطريقة للأرفاق من الاسكانر والفيدر

أذا كان يمكن المساعدة ووضع كود استخلاص مسارات الملفات (متعدد) عند طريق الاسكانر ، الفيدر ، المربع الحوارى للويندوز

الأضافة أخوانى أن الكود الموجود فى زر أضافة المرفقات

SetPathOfFiles1
'On Error Resume Next
   Dim fdialog As Office.FileDialog
   Dim File_PathM As Variant
   Dim File_Path As String
   Set fdialog = Application.FileDialog(msoFileDialogFilePicker)
        If Len(Dir(PathOfFile1 & Forms![Form1]![IDD], vbDirectory)) = 0 Then
            MkDir PathOfFile1 & Forms![Form1]![IDD]
        End If
   With fdialog
    .Title = "حدد الملفات التى تريد ارفاقها"
    .Filters.Clear
    .Filters.Add "All Files", "*.*"
    .AllowMultiSelect = True
    If .Show = True Then
 For Each File_PathM In .SelectedItems
 
 File_Path = File_PathM
 Copy_file File_Path
 
 Next
      
    Else
       MsgBox "لم تختر اى ملفات"
    Exit Sub
    End If
  End With
Forms![Form1]![ImagesSubform].Requery

Forms![Form1].SetFocus
Forms![Form1]![ImagesSubform].SetFocus
DoCmd.GoToRecord , , acLast
On Error Resume Next
Forms![Form1]![PicView].Picture = Forms![Form1]![ImagesSubform]![Path]
 

 

ويعتمد على دالة GetFilenameFromPath وهذا داخل الفورم

أما المديول به دالة لعمل مسار الملف وعمل ملف على الهارد يسك بأسم ID للسجل الأصلى ووضع المرفق به MKDIR

 

[Moosak]

ما هو المطلوب أخي وليد ؟

وحبذا إرفاق البرنامج أيضاً 🙂 

[walid7799]

المطلوب استخلاص كود سحب أكثر من ملف فى المرة الواحدة ووضعه فى الجدول الخاص بالمرفقات

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

 

الصادر الجديد3 - Copy.rar

[walid7799]

المديول 1 ، 2 ، 3 بهم نفس الأكواد وكل مديول خاص بالنموذج الخاص به

أما باقى الأكواد موجودة فى كل نموذج ويمكن أرفاق أكثر من ملف بالاعتماد على هذه الأكواد وأرفاق أكثر من ملف فى المرة الواحدة بغض النظر عن نوع الملف وعرضه بالنموذج والنموذج الذى به الأكواد الأصلية المنسوخة للموديولات الأخرى هو form1

وباعتبار ما سيكون أن يصبح form1 صب فورم بكل النماذج الموجودة بداخله داخل النموذج الأول والذي سيكون projects المشروعات وبها اختيار المحافظة والمركز وأسم المشروع لتفرع منه الخطابات الخاصة به ويكون مرتبط علاقة 1 إلى متعدد

[walid7799]

السلام عليكم .... هل من مجيب

أرجو الاهتمام والرد للأفادة والاستفادة ووضع هذا الكود المميز داخل قسم الأكسس بالموقع المميز جدا جداً جداً (أوفيسنا)

 

[walid7799]

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

اتمنى ميكنش الموضوع صعب للدرجة

اولاً الأكواد كلها موجودة وشغالة تمام

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

ووضع كود الاسكانر لوحده 

والفيدر الخاص بالاسكانر ،، وهكذا

الموضوع محتاج شخص يكون له باع مع الأكواد علشان أنا بقالى فترة بحاول ولكن كل مرة يحصل حاجة ويبوظ الموضوع

[walid7799]

أتمنى التفاعل مع الموضوع أن كان صعب

ولا سهل ألا ما جعله الله سهلاً

اللهم سهل لنا حالنا وأحوالنا وسخر من عبادك من يقضى لنا حوائجنا

اللهم أمين

[walid7799]

السلام عليكم أخوانى بمنتدى أوفيسنا الكرام والمنتدى الجامع بيننا فى الخير دائما

الليل جاء ولم يقوم أحد من الاساتذة بالرد على طلبى هل مطلوب توضيح أو شىء

!!!!!!!!!

[jjafferr]

وعليكم السلام اخي وليد 🙂

 

من تجربتي في المنتدى ، اذا يبقى السؤال بدون جواب لعدة ايام ، معناه ان هناك مشكلة في السؤال !!

قرأت الموضوع ، ثم انزلت المرفق ، ثم اصبحت 

 

في 16‏/3‏/2022 at 15:00, walid7799 said:

المطلوب استخلاص كود سحب أكثر من ملف فى المرة الواحدة ووضعه فى الجدول الخاص بالمرفقات

.

في 16‏/3‏/2022 at 15:12, walid7799 said:

والنموذج الذى به الأكواد الأصلية المنسوخة للموديولات الأخرى هو form1

وباعتبار ما سيكون أن يصبح form1 صب فورم بكل النماذج

.

في 16‏/3‏/2022 at 15:12, walid7799 said:

والذي سيكون projects المشروعات

.

في 16‏/3‏/2022 at 20:21, walid7799 said:

1. بس هو الطلب أن نجعل أرفاق الملفات فى مديول لوحده بحيث يمكن الاستفادة منه منفرد 

2. ووضع كود الاسكانر لوحده 

3. والفيدر الخاص بالاسكانر ،، وهكذا

.

قلت الحمدلله ، لقينا طرف الخيط ، النموذج Form1 ، واذا به من كثرة الكائنات التي به وكثرة النماذج الفرعية 

ملاحظاتي على الموضوع:

اتمنى انك عرفت الآن سبب وجود قانون في المنتدى:

8.    يجب ذكر كافة المعلومات التي من الممكن أن تُسأل عنها، مع الشرح الوافي للمشكلة لأن الشخص الذي تكتب له ليس ملما بالمشكلة مثلك. ويحبذ وضع مثال للنتيجة التي تريدها (سواء كملف مرفق باستخدام البرنامج المطلوب كالاكسيل او الأكسيس مثلا، او صورة توضيحية، أو تفصيل المطلوب بشرح وافي)، ويجب ان تكون بيانات المثال نابعة من نفس بيانات المرفق كي بمكن الربط و الفهم بسهولة.

11. ممنوع طرح أكثر من سؤال في موضوع واحد

 

واليك شرح المشكلة:

1. قرأت جميع مشاركاتك ، قلت الحمدلله ، لقينا طرف الخيط ، النموذج Form1 ، واذا به كم هائل من الكائنات النماذج الفرعية ، وهذا معناه انه يجب عليك اعادة النظر في التصميم ، وخصوصا انك قلت انك ستستخدمه كنموذج فرعي !!

15 زر

5 كمبوبوكس

4 نماذج فرعية ، و النماذج الفرعية فيها: 

1. 10 كومبوبوكس
2. 4 نماذج فرعية

هذا معناه ان النموذج يأخذ بياناته (يزور الجداول) = 5 + 4 + 10 + 4 = 23 مرة ، فالسؤال الذي يدور في بالي هو: لو كان هذا برنامجك على الشبكة ، فهل هذا النموذج سيفتح اصلا ، او الاكسس سيتوقف عن العمل ويصير له Hang !!

 

2. بغض النظر عن ما قلته في النقطة 1 اعلاه ، صرت انظر يمين وشمال في النموذج ، طيب اي زر من الـ 15 زر اللي فيه المشكلة؟

3. وبسبب انه عندك اكثر من سؤال في المشاركة ، فصعب تحصل على العضو الذي يوجد لديه الوقت الكافي للإجابة عليها !!

4. ملاحظاتي اعلاه هي فقط عن النموذج Form1 ، ولم يكن لدي الجرأة النظر في اي نموذج آخر 

 

اقتراحي:

1. الحق على نفسك قبل فوات الاوان ، وقم بتبسيط هذا النموذج الى الحد الادنى من الكائنات ،

2. اعمل موضوع جديد ، وضع فيه سؤال واحد فقط ، وتخبرنا فيه اين المشكلة ، في اي نموذج ، واسم الكائن الذي به حدث كود ، وكيف تريد ان تكون النتيجة ، وبالتفصيل .

 

هذا الموضوع مخالف ، فرجاء من الاعضاء عدم اضافة اجابة هنا ، وسأتركه مفتوحا حتى اتناقش فيه مع الاخ وليد ، حتى يتهيأ لعمل موضوع جديد  

 

جعفر

 

للذي سيسأل عن هذه الاشكال ، اخذتها من هنا : https://emojis.wiki/telegram/