ابوخليل

جرب اضف مع الكود المذكور الجملة التالية : Or Is Null

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

شكرا لكم جميعا ولا يحتاج تاخذون رأي احد لانكم انتم اهل المنتدى واعرف بالفائدة والمصلحة العامة

If MsgBox("هل تريد حذف هذا السجل ؟", _ vbCritical + vbYesNo, _ "تحذير") = vbYes Then DoCmd.RunCommand acCmdDeleteRecord Else Exit Sub @Shivan Rekany

احتمال يكون الخلل من تفعيل بعض خصائص قاعدة البيانات الصورة في المرفقات هي لخيارات قاعدة بيانات mdb ابحث عن الخاصية المحاطة بالمربع الاحمر في الخيارات الخاصة بالاصدار الذي تعمل عليه ثم ازل العلامات من مربع الخيار ان وجدت ثم اغلق قاعدة البيانات وافتحها من جديد

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

السلام عليكم يتصور حدوث هذا في كود تحديث update يمر على الحقل ويقارن ويطبق التعديل ويمكن تضع هذا الكود في عنصر تحكم حقل غير منضم داخل النموذج =IIf([a]=[b];0;[a]) وكذلك يمكن تطبيقه عند ادخال القيمة في النموذج وفي حدث بعد التحديث لحقل a If a = b Then a = 0 اي لما ادخل قيمة في a تساوي قيمة b تتحول لصفر بمجرد خروجي من الحقل

شكرا استاذنا العلامة محمد صالح شرح ولا اروع درر ونفائس وعمل احترافي نادر جعله الله في موازين اعمالك

الاكواد واضحة ليست بحاجة لشرح اذا فيه حاجة خافية عليك خبرني

جزاك الله خير

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

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

السلام عليكم تفضل تم التعديل كما طلبت بالصورة عد نوع التعليم.rar

السلام عليكم استاذنا العزيز .. تمت التجربة الطريقة متقنة قدمت التاريخ ثلاثة ايام فطالبني برقم التسجيل استخدم في أعمالي طريقة مشابهة ولكن بدون فترة تجريبية

اخوي يربط كأي جدول افتح على الجداول واختر جديد/ ربط ثم اختر الملف واكمل المعالج الى الآخر قد لا يظهر ملف اكسل هنا يجب عليك اختيار النوع من مربع الحوار ثم حدد ملفات اكسل هذا مثالك بعد التعديل / لترى انه يعمل بشكل ممتاز ضع المجلد على قرص D ExclLink.rar

السلام عليكم هنا بعض الدروس مشابه لسؤالك هنا تمت مناقشة الموضوع وهنا تم التطبيق

السلام عليكم من الصباح وانا احاول تطويع المربع وخرجت بهذه النتيجة اتمنى تستطيع توظيفها في برنامجك Dim i As Integer Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) i = Me.lbl1.Height + Me.Detail.Height + Me.txt1.Height Me.txt1.Height = i Me.lbl1.Height = i End Sub fieldGrow.rar

تفضل تم التعديل مشكلتك تكمن في اختلاف مسمى الصف بين الجدولين فأنا اعتمدت اسم الصف في جدول أ وعدلت اسماء الصفوف في جدول ترحيل الناجحين3.rar

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

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

الحمد لله .. وشكرا لك على هذا الثناء وهذه الدعوات الطيبات

العمود expr1 تم فيه ضم جميع حقول النتائج وهو بيت القصيد وفي الكود اشترطنا تكون القيمة اكبر من 3 حروف حتى نضمن وجود قيمة حقيقية فيما لو كانت القيمة صفر مثلا وطبعا هي افضل من ان يكون الشرط عدم وجود : Null نأتي الى الكود البرمجي وهو كما ذكرت ثلاث خيارات : IIf([Status_code]=1 And [code_kind_edu]<>4 And Len([Expr1])>=3;"راسب وله حق الاعادة" اذا الحالة =1 والنوع لا يساوي 4 و حقل اكسبر فيه قيمة اكبر من 3 حروف فالنتيجة= راسب وله حق الاعادة IIf([Status_code]=2 And Len([Expr1])>=3;"راسب وليس له حق الاعادة" اذا الحالة =2 و حقل اكسبر فيه قيمة اكبر من 3 حروف فالنتيجة= راسب وليس له حق الاعادة IIf([Status_code]=1 And [code_kind_edu]=4 And Len([Expr1])>=3;"راسب" اذا الحالة =1 والنوع = 4 و حقل اكسبر فيه قيمة اكبر من 3 حروف فالنتيجة= راسب وان لم تتحقق هذه الشروط فهو ناجح دور ثاني بقي شيء لم اذكره وهو ان عمود Expr1 تم اخفاؤه ، ومع ذلك فهو ظاهر في التصميم لاظهاره افتح الاستعلام على العرض وبزر الفأرة الايمن انقر على الاطار العلوي للاستعلام ثم اختر اظهار اعمدة

اولا الصورة التالية ستحل 90% من الاشكال اللي عندك

ابشر ولكني الان بعيد واكتب من الجوال في الغد ان شاء الله ستجد شرح دقيق ووافي

تفضل تم التوصل الى النتيجة المطلوبة بفكرة سهلة جدا وفريدة ايضا نتيجة طالب2.rar