02-09-21, 08:12 AM
(آخر تعديل لهذه المشاركة : 02-09-21, 08:13 AM {2} بواسطة Ahmed_Mansoor.)
وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم, قم بإستبدال كود الإجراء PHOTO بهذا :
وفي كود الحفظ عدل هذا السطر :
ليصبح هكذا :
بالتوفيق .
أهلا بك أخي الكريم, قم بإستبدال كود الإجراء 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