kanory

استبدل الكود لديك بهذا الكود واعلمني بالنتيجة ...... On Error GoTo HandleErr On Error Resume Next Dim rs As Object If Not IsNull([PicFile2]) Then [imgPicture].Picture = [PicFile2] SysCmd acSysCmdSetStatus, "Image: '" & [PicFile2] & "'." Else [imgPicture].Picture = "" SysCmd acSysCmdClearStatus End If Exit Sub HandleErr: If Err = 2220 Then [imgPicture].Picture = "" SysCmd acSysCmdSetStatus, "Can't open image: '" & [PicFile2] & "'" Else MsgBox Err.Description, vbExclamation End If

ربما هذا يفيدك ويؤدي الغرض .......... listbox.accdb

وعليكم السلام ...... لكن ماهو الهدف ( هل مجرد عرض أم اختيار من تلك البيانات ) ؟؟؟؟؟

حاولي ما قاله الاستاذ . عبدالله قد تصلي للحل .................. او يمكن عمل نسخة للبرنامج ومسح جميع البيانات التي بها ... واضافة بيانات وهمية اخرى للبرنامج ورفعه للمنتدى لمعرفة سبب الرسالة .....

جرب هذا ..... واعلمنا بالنتيجة والمحاولات ........ SendKeys "%+"

التقرير يعمل في برنامجك كما هو موضح في الصورة ....... ماذا تريد بالضبط ؟؟؟؟؟

هذا لتحويل القيمة السالبة الى موجبة ....... بارك الله فيك

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

تفضل ....... AA2003.mdb

يعمل البرنامج ولا يحتاج تحديث انظر الصورة من جهازي ..... هذا طبيعي لأن الجدول مفتوح .........

المرفق المرسل لك هل جربته ... يعمل المطلوب

انظر المرفق ......... المبيعات.accdb

مطلوبك غير مفهوم ............ اي الحقول المكررة ...... وماهو الهدف لربما نجد لك حلا ...... وضح المطلوب بالتفصيل ,,,,,

هل هذا ما تقصده .... Da.accdb

الحمد لله رب العالمين

تابع الصورة .... تفصيل التقرير .... لون بديل .. بلا لون

بالتوفيق .... الحمد لله رب العالمين

لم افهم ماذا تقصد .... هل تم حل مشكلتك ... ام لم تصل فكرتي اليك ...

لاحظ التقرير ....... سؤال لماذا تلك الازرة والبحث في التقرير وليس النموذج ؟؟؟؟؟ sc002.rar

لكن عموما عدل كما في الصورة ........

راجع هذا الموضوع تجد فيه طلبك ....

تأكد من ملفك .... لاننا لم نستطع التحميل ..... خفف الكائنات الموجودة في الملف وحمله في الموقع أفضل لتجد الردود

واياك ..... الحمد لله رب العالمين

بارك الله فيك تم ادراج الدائرة الحمراء في الحقل المطلوب .... ثم في تفصيل التقرير وتحت حدث عند التنسيق تم إدراج هذا الكود : ' اسم الدائرة الحمراء kan ' اذا كانت الدرجة أقل من 100 يتم اظهار الدارة الحمراء If Me.sum < 100 Then Me.kan.Visible = True ' غير ذلك ( أي اذا كانت الدرجة 100 أو اكبر يخفي الدائرة Else Me.kan.Visible = False End If

وضح اكثر ماهو التعديل وأين الخطأ ......