منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مشكلة في حفظ عدة ملفات دفعة واحدة في الأرشفة الالكترونية - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : مشكلة في حفظ عدة ملفات دفعة واحدة في الأرشفة الالكترونية (/showthread.php?tid=39385)

مشكلة في حفظ عدة ملفات دفعة واحدة في الأرشفة الالكترونية - awidan76 - 25-08-21

السلام عليكم ورحمة الله
هذا البرنامج من تصميم الأخ أمير الزبيدي والأخ احمد منصور
قمت بتطوير ة ولكن واجهتني مشكلة عند الحفظ بحيث يقوم بعمل نسخ مستند واحد فقط الي مجلد المستندات 
كما في الصورة
[attachment=26941]
ملاحظة لادراج ملف اضغط F9

RE: مشكلة في حفظ عدة ملفات دفعة واحدة في الأرشفة الالكترونية - awidan76 - 27-08-21

هل من مساعدة??

RE: مشكلة في حفظ عدة ملفات دفعة واحدة في الأرشفة الالكترونية - awidan76 - 28-08-21

حاولت ومازالت المشكلة قائمة

RE: مشكلة في حفظ عدة ملفات دفعة واحدة في الأرشفة الالكترونية - awidan76 - 30-08-21

مازالت المشكلة

RE: مشكلة في حفظ عدة ملفات دفعة واحدة في الأرشفة الالكترونية - Ahmed_Mansoor - 02-09-21

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

أهلا بك أخي الكريم, قم بإستبدال كود الإجراء PHOTO بهذا :

PHP كود :
Public Sub PHOTO(RowNumber As Integer)
'On Error Resume Next: Err.Clear

                 '  [Directory]نسخ الصورة في المجلد الجديد
          FileCopy fox.TextMatrix(RowNumber, 5), App.Path & "\awidanPC" & "\" & fox.TextMatrix(RowNumber, 2)
          DoEvents
                 'لوضع المسار الجديد للصورة داخل قاعدة البيانات
          fox.TextMatrix(RowNumber, 5) = App.Path & "\awidanPC\" & fox.TextMatrix(RowNumber, 2)

End Sub 

وفي كود الحفظ عدل هذا السطر :

PHP كود :
Call PHOTO 

ليصبح هكذا :

PHP كود :
Call PHOTO(i) 

بالتوفيق .

RE: مشكلة في حفظ عدة ملفات دفعة واحدة في الأرشفة الالكترونية - awidan76 - 02-09-21

تسلم اخي بجرب وبرد لك خبر شكرا لمرورك الكريم

RE: مشكلة في حفظ عدة ملفات دفعة واحدة في الأرشفة الالكترونية - awidan76 - 02-09-21

اهلا استاذي الغالي احمد منصور
الشرح تم بنجاح
تسلم ياغالي
مشكور جدا جدا جدا