خطأ عند اضافة سجل جديد

[محمد احمد لطفى]

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

فى هذا النموذج يحدث خطأ عند اضافة سجل جديد مرفق صورة الخطأ

وجزاكم الله خيرااً

 

Worker (4).rar

تم تعديل أغسطس 7, 2019 بواسطه محمد احمد لطفى

[محمد احمد لطفى]

للرفع

[عبد اللطيف سلوم]

بدل الدخول في متاهات وتعقيدات

انا استخدم الصورة بشكل مرفق

وبالنسبة لحجم البرنامج معاك مساحة 2 جيجا  يعني تستوعب شعب الصين مع صورهم 

 

مجرد اقتراح 

[محمد احمد لطفى]

الموضوع هنا يختلف أستاذى @عبد اللطيف سلوم
حيث اقوم بتجميع الصور فى ملف واحد و اقوم بواسطة برنامج اكسيس ان ينقل الصور كل حرف فى فايل مخصص و البرنامج يعمل بشكل آلى 
جزاك الله خيراً
 

تم تعديل أغسطس 7, 2019 بواسطه محمد احمد لطفى

[ابو عارف]

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

15 ساعات مضت, محمد احمد لطفى said:

فى هذا النموذج يحدث خطأ عند اضافة سجل جديد مرفق صورة الخطأ

و السبب سجل جديد ليس لديه قيمة سابقة  و الحل:

استثناء سجل جديد في بداية الكود و عرض رسالة تفيد  بان سجل اللي قمت باضافته ليس له صورة هل تريد اضافة صورة؟ ، ثم خيارين  اذا اخترت  لا سيضيف الاسم الجديد بلا خطاء و اذا اخترت نعم  سيفتح نافذة لتختار لصورة و عند اختار الصورة  البرنامج ينشئ مسار في مجلد صور ثم ينسخ الصورة باسم العامل.  والمثال في المرفق

Worker (4) (2).rar

 

[محمد احمد لطفى]

منذ ساعه, ابو عارف said:

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

و السبب سجل جديد ليس لديه قيمة سابقة  و الحل:

استثناء سجل جديد في بداية الكود و عرض رسالة تفيد  بان سجل اللي قمت باضافته ليس له صورة هل تريد اضافة صورة؟ ، ثم خيارين  اذا اخترت  لا سيضيف الاسم الجديد بلا خطاء و اذا اخترت نعم  سيفتح نافذة لتختار لصورة و عند اختار الصورة  البرنامج ينشئ مسار في مجلد صور ثم ينسخ الصورة باسم العامل.  والمثال في المرفق

Worker (4) (2).rar 36.81 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 2 downloads

 

أستاذى @ابو عارف

أولا جزاك الله خيراً
لا أريد عند اضافة سجل جديد  ان يظهر لى اختيار الصورة أريد اضافة السجل الجديد فقط 
وكما ترى فان برنامجى له نظام خاص بالصور كل مجموعة حرف فى ملف   
حيث اقوم بتجميع الصور فى ملف واحد و هناك برنامج اكسيس ينقل الصور كل بداية حرف فى ملفه
يعنى مثلا عند اضافة سجل جديد لا يعمل الكود

[ابو عارف]

طيب غير سطر :

OldImage = Me.imgWorker.OldValue

الى :

OldImage = Nz(Me.imgWorker.OldValue, FileName(Worker))

في الملف الاول قبل تعديل طبعا

تم تعديل أغسطس 7, 2019 بواسطه ابو عارف

[محمد احمد لطفى]

شكراً أستاذى @ابو عارف