طير البحر

جزاكم الله خيرا الحل الاوسط ل barna يعمل جيدا ولكنى ساقوم بتحميل المكتبات ايضا كم انتم رائعون

احتاج هذا المثال بشدة ولكن كلما استخدمت الكود تظهر هذه الرسالة

اخواني هذا الكود كان يعمل جيدا على قاعدة بيانات قديمة وعندما قمت بتحويلها من mdb الى accdb وعلى اوفيس حديث 2021 توقف الكود عن العمل رغم اني قمت بتحويل مايلزم من نظام 32 بت الى نظام 64 بت هل من نصيحة او تعديل او ارشادي لكود مماثل حديث

وهل يمكن وضع خصائص التحقق من الصحة بحيث لايقبل حقل الكمية المنصرفة رقم اكبر من الكمية المتاحة؟ وكيف يمكن ضمان ذلك ؟

ارغب فى ان يكون الحقل الثالث يجمع الحقل الاول والحقل الثاني والحقل الرابع يطرح الحقل الثاني من الاول والحقل الثاني يجب ان يكون اقل من الاول او يساويه بدون نموذج اى ارغب ان يكون ذلك فى خصائص الحقول بالجدول نفسه فهل ذلك ممكن

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

الاخوة الافاضل اعتمادا على دروسكم قمت بتطوير قاعدة بيانات مؤسستنا الخيرية وقمت باضافة الصور للنموذج والتقرير خارج قاعدة البيانات وبدون حتى رابط فى الجدول اعتمادا على الكود فقط اعتمادا على مثال الاخ ابوجودي فى هذا الموضوع وقد نجح الامر فى النموذج والتقرير وفى التقرير تظهر الصور فى الصفحات مطابقة لارقام السجلات بشكل جيد pdf الا انه عند طباعة التقرير او تصديره الى ملف اجد ان صورة اخر سجل هي المكررة فى كل صفحات التقرير ارجوكم الحل وقد وضعت هذا الكود عند الصفحة وفى الحالي للتقرير On Error GoTo err_Report_Current If Dir(CurrentProject.Path & "\images_waad\case_Photo\" & [fileno] & ".jpg") <> "" Then Image.Picture = CurrentProject.Path & "\images_waad\case_Photo\" & [fileno] & ".jpg" Else Image.Picture = CurrentProject.Path & "\images_waad\case_Photo\" & "pic_emp.png" End If err_Report_Current: If Err.Number = 2220 Then 'image not found Image.Picture = CurrentProject.Path & "\images_waad\case_Photo\" & "pic_emp.png" Resume Next End If اتمنى مساعدتكم فقد بحثت جيدا ولم اجد حل

هل وجدت حلا لهذه المشكلة

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