اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

 

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

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
   

 

جعفر

  • Like 1
رابط هذا التعليق
شارك

  • 3 months later...
في ٢٧‏/٤‏/٢٠١٧ at 13:09, jjafferr said:

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

 

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


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 انا جربت المرفق بالتعديل ده 
عند الضغط على الزر إدراج مرفقات من الكمبيوتر  
Untitled.jpg.761ed00b66b7db61dd5502afe8337ff4.jpg
وعند ارجاع الكود بالطريقة السابقة عند اختيار cancel بعد الضغط على الزر إدراج مرفقات من الكمبيوتر  
تظهر نفس الرسالة

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

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

رابط هذا التعليق
شارك

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

 

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

 

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


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

رابط هذا التعليق
شارك

  • 3 years later...

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

تحياتي 🌹

  • Like 1
رابط هذا التعليق
شارك

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

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

  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

  • 2 weeks later...

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

207.4.m.rar

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information