احضار محتويات فولدر خارجى الى البرنامج

[jjafferr]

السلام عليكم ابا جودي

 

انا اعتذر منك ، فالكود الذي اعطيتك اياه ، خلق خطأ آخر:

If Len(strFileNames & "") = 0

 

والحل في هذا الكود ان شاء الله (السطر الاول من الكود ادناه) ، وبقية الكود موجود عندك اصلا:

   strFileNames = ""
   strFileNames = apiBrowseFiles("Select a File, OR Multiple Files", sFolder, , strFilter)

    ' user didn't select any file, s/he proceed cancel
    
    If UBound(strFileNames) = 0 Then
        'No Path,
        Exit Sub
    End If
   

 

جعفر

[عبق الرياحيين]

في ٢٧‏/٤‏/٢٠١٧ at 13:09, jjafferr said:

السلام عليكم ابا جودي

 

انا اعتذر منك ، فالكود الذي اعطيتك اياه ، خلق خطأ آخر:

If Len(strFileNames & "") = 0

 

والحل في هذا الكود ان شاء الله (السطر الاول من الكود ادناه) ، وبقية الكود موجود عندك اصلا:

   strFileNames = ""
   strFileNames = apiBrowseFiles("Select a File, OR Multiple Files", sFolder, , strFilter)

    ' user didn't select any file, s/he proceed cancel
    
    If UBound(strFileNames) = 0 Then
        'No Path,
        Exit Sub
    End If
   

 

جعفر

استاذ @jjafferr انا جربت المرفق بالتعديل ده 
عند الضغط على الزر إدراج مرفقات من الكمبيوتر  

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

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

محتويات فولدر خارجى.rar

[jjafferr]

وعليكم السلام

 

يجب ان نصطاد رسالة الخطأ ، ونضيفها الى بقية القائمة ، ليصبح آخر الكود هكذا:

Exit_cmd_Open_desktob_Click:
Exit Sub
err_cmd_Open_desktob_Click:

    If Err.Number = 3021 Then
        RC = 0
        Resume Next
    ElseIf Err.Number = 13 Then
        Resume Exit_cmd_Open_desktob_Click
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If

End Sub

.

جعفر

713.محتويات فولدر خارجى.accdb.zip

[عبق الرياحيين]

13 دقائق مضت, jjafferr said:

وعليكم السلام

 

يجب ان نصطاد رسالة الخطأ ، ونضيفها الى بقية القائمة ، ليصبح آخر الكود هكذا:

Exit_cmd_Open_desktob_Click:
Exit Sub
err_cmd_Open_desktob_Click:

    If Err.Number = 3021 Then
        RC = 0
        Resume Next
    ElseIf Err.Number = 13 Then
        Resume Exit_cmd_Open_desktob_Click
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If

End Sub

.

جعفر

713.محتويات فولدر خارجى.accdb.zip

ميرسى كتير استاذ @jjafferr

[ابو نزار]

ارجوا المساعدة من الاساتذة الكرام ..عند العودة الي السجل السابق في مثال الاخ محمد سلامة  نجد ان البرنامج يحضر جميع  المرفقات الموجودة في مجلد الحفظ المطلوب عرض المرفقات المرتبطة بالسجل دون ادراج المرفقات الاخري ..وشكرا لكم جميعا 

[محمد سلامة]

15 ساعات مضت, alxx said:

ارجوا المساعدة من الاساتذة الكرام ..عند العودة الي السجل السابق في مثال الاخ محمد سلامة  نجد ان البرنامج يحضر جميع  المرفقات الموجودة في مجلد الحفظ المطلوب عرض المرفقات المرتبطة بالسجل دون ادراج المرفقات الاخري ..وشكرا لكم جميعا 

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

حدد مسار الحفظ اولا ثم ادرج المرفقات

تحياتي 🌹

[ابو نزار]

شكرا لك استاذنا القدير محمد سلامة ..هذا ما تضح .اسئل الله ان يفتح عليك ابواب الرزق ويعطيك ما تتمناه ...والشكر موصول لجميع القائمين علي المنتدي من اعضاء ومشرفين...حقيقة لا نستطيع رد الجميل لكم  علي تعاونكم ومحبتكم لنشر العلم والفائدة الا بدعاء لكم بظهر الغيب..

دمت رائع محبوب الخصال

[محمد سلامة]

6 ساعات مضت, alxx said:

شكرا لك استاذنا القدير محمد سلامة ..هذا ما تضح .اسئل الله ان يفتح عليك ابواب الرزق ويعطيك ما تتمناه ...والشكر موصول لجميع القائمين علي المنتدي من اعضاء ومشرفين...حقيقة لا نستطيع رد الجميل لكم  علي تعاونكم ومحبتكم لنشر العلم والفائدة الا بدعاء لكم بظهر الغيب..

دمت رائع محبوب الخصال

اللهم امين جزاك الله خيراً علي طيب كلماتك 🌹

[ابو نزار]

ارجوا التكرم بمساعدتي قمت بوضع جدول tbl_wared في النموذج الرئيسي الذي يرتبط به ايضا النموذج الفرعي للمرفقات واريد عرض المرفقات بناء علي التحديد او النقر في سجلات الجدول .... ما اريده موضح بالمرفق.. ارجوا المساعدة.. ولكم مني الدعاء والشكر الجزيل 

207.4.m.rar