25-08-21, 10:34 AM (آخر تعديل لهذه المشاركة : 25-08-21, 10:35 AM {2} بواسطة awidan76.)
السلام عليكم ورحمة الله
هذا البرنامج من تصميم الأخ أمير الزبيدي والأخ احمد منصور
قمت بتطوير ة ولكن واجهتني مشكلة عند الحفظ بحيث يقوم بعمل نسخ مستند واحد فقط الي مجلد المستندات
كما في الصورة
02-09-21, 08:12 AM (آخر تعديل لهذه المشاركة : 02-09-21, 08:13 AM {2} بواسطة Ahmed_Mansoor.)
وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم, قم بإستبدال كود الإجراء 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)
بالتوفيق .
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next