kha9009lid

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

😃 كلام جميل هي القيمة التي تظهر في الحقل بشكل افتراضي لسجلات معينة وعند الحاجة يمكن تغييرها على العموم اتفق معك ولكن هذه رغبة الاستاذ @ازهر عبد العزيز

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

نرجع للموضوع انت ترغب في تعديل القيمة الافتراضية للحقل typ في الجدول برمجيا عن طريق زر امر لتكون القيمة الافتراضية y وتبقى القيمة ثابتة ممكن عمل ذلك ولكن اذا كان زر الامر في نفس النموذج راح تظهر لك رسالة ان الجدول مفتوح وتفشل العملية فيه اكثر من حل ومن اسهل الحلول عند تنفيذ الامر نجعل مصدر السجلات غير محدد ثم نعدل القيمة ونعيد المصدر الملف في المرفقات xy.accdb

جرب الان مع ان راسي انقلب xy (3).accdb

حتى نفهم المطلوب انت لديك مربع تحرير يحتوي على قيمتان x و y وترغب عند الضغط على زر الامر ان تكون القيمة الافتراضية للمربع y بصراحة حسب الي فهمت ما نحتاج نستخدام دالة case ولا اي دالة شرطية اخري فقط الامر typ.DefaultValue = "'y'"

بصراحة اخي @أحمد الفلاحجى حبيت الحل هذا لانه جميل جدا بارامتر 6 OpenArgs DoCmd.Close DoCmd.OpenForm "fxy", , , , , , "y" ثم في القيمة الافتراضية للحقل المستهدف =[Forms]![fxy].[OpenArgs] ويحقق المطلوب حسب طلب الاستاذ @ازهر عبد العزيز مع ذلك لو كان لدينا سجل محفوظ في الجدول لايعمل الكود وسوف يظهر لنا السجل الاول فقط بالقيمة المحفوظة للقائمة المنسدلة ويمكن التغلب على المشكله بتعديل بسيط DoCmd.OpenForm "fxy", , , , , , "x" DoCmd.GoToRecord , , acNewRec DoCmd.Close acForm, "finterto" وايضا هناك طريقة اخرى ليست بروعة طريقتك ولكن تحقق المطلوب ايضا وبدون الحاجة الى تعديل خصائص القيمة الافتراضية للقائمة وانما تعديل هذه القيمة بالكود عند تنفيذ الامر DoCmd.OpenForm "fxy" DoCmd.GoToRecord , , acNewRec Form_fxy.typ.DefaultValue = """" & Me.x.Caption & """" DoCmd.Close acForm, "finterto" وتفسير الكود افتح نموذج fxy انتقل الى سجل جديد اجعل القيمة الافتراضية للقائمة المنسدلة تساوي تسمية زر الامر اغلق نموذج finterto واكرر الحل المقدم منكم اجمل 🌹 الملف مرفق xy1.accdb

في الطريقة التي اشار اليها الاستاذ @أحمد الفلاحجى اعتمدت الاستاذة زهرة على وضع حقل غير منظم بالنموذج الفرعي وقيمته تساوي =Nz(Sum([total]);0) وفي حقل الاجمالي للنموذج =Forms![إجمالى فاتورة البيع(مبيعات الأسمنت]![تفصيل فاتورة البيع]!TOT ومكن اختصار الطريقة بدون الحاجة للحقل غير المنظم في الفرعي باستخدام دالة dsum =Nz(DSum("[total]";"تفصيل فاتورة البيع";"[im_id]='" & [im_ID] & "'");0) المثال في المرفق TOTAL.accdb

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

اخي واستاذنا الفاضل @Khalf لا مشكله اخي جميعنا نعمل لهدف واحد بارك الله فيك ولك وسوف اقوم بعون الله بتحميل المثال وتجربته عندما يتوفر لدي جهاز يدعم تطبيقات ميكروسوفت فائق التقدير والاحترام 🌹 تحية اجلال واحترام لاخينا واستاذنا ابو بسمله الجميل في اخلاقة والجميل في تفانيه في خدمة الجميع 🌹

مرحبا سياسة الموقع تمنع كسر الحماية لاي برنامج حفظ للحقوق الفكرية لذا اتصل بالمبرمج واشرح لك طلبك مع تمنياتي لك بالتوفيق

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

يا هلا باساتذتنا الفضلاء @jjafferr و @أحمد الفلاحجى و @Hawiii لما قريت الجملة السابقة حسيت بالجوع ضغط العمل اضاع علينا الغداء والاجر عند الله سبحانه ما قصدته في ردي ان كل الطرق تؤدي الى روما ولكني لا احب الامثلة الاجنبية لذا اقول كما قال الشاعر علي بن سودون اليشبغاوي كأنّنا والماءُ مِن حَولِنا -- قَومٌ جُلوسٌ حَولهم ماءُ الأرضُ أرضٌ والسَّماءُ سماءٌ -- والماءُ ماءٌ و الهَواءُ هواءُ كُلُّ الرجالِ على العُمومِ مُذَكَّرٌ -- أما النِساءُ فُكُلّهن نِساءُ الميمُ غَيرُ الجيمِ جاءَ مُصَحَفّا -- وإذا كَتَبتَ الحاءَ فهي الحاءُ تحياتي وتقديري لكم اساتذتنا الاكارم

احسنت يا ابا اشرف

الله يعطيك العافية يا ابا اشرف

لفتت نظري هذه الطريقة واردت التأكد من فاعليتها قمت بعمل حلقة تكرارية لتوليد 50000 سجل تاريخ لعدد اربعة حقول كل منها بتنسيق مختلف ومن ثم عملت مقارنة في قيمة الحقول الاربعة بعد تحويل التاريخ الى رقم وكانت النتيجة ممتازة مع ذلك النتيجة هنا قد لا تكون حاسمة لكون التاريخ يتأثر بصيغة التاريخ في نظام التشغيل لذك قمت بنقل المثال على الشبكة وقمت بتغيير صيغة التاريخ في الاجهزة المتصلة وكانت النتيجة ايضا ممتازة في المقارنة وفي البحث وفي معايير دوال التجميع مع ذلك الطريقة التي استخدمها Format([da_te];"\#mm\/dd\/yyyy\#") تعطي نفس النتيجة وكذلك الوحدة الخاصة بالاستاذ @jjafferr تعطي نفس النتيجة وتمتاز من وجهه نظري بالسهولة DateFormat([d_date]) في الحقيقة من اجمل المواضيع التي شدت انتباهي

اخي @أحمد الفلاحجى انت رائع جدا ومتواضع لاخوانك قال رسولنا الكريم عليه افضل الصلاة واتم التسليم (ما نقصت صدقةٌ من مال، وما زاد الله عبداً بعفوٍ إلَّا عزَّاً، وما تواضع أحدٌ لله إلَّا رفعه الله) بشان التعديل جميل واستخدام الدوال بشكل رائع طبعا يمكن الاستغناء عن الاستعلام ووضع الحقلين المحسوبة بشكل مباشر في النموذج ويمكن الاستغناء عن الحقلين باستخدام الكود متغيرات وتنسيق ولكن عملك الجميل يغني عن كل ذلك تقبل مني كل الود والاحترام

هل هذا هو المطلوب التقيم.accdb

وايضا ممكن ترك الجدول بدون اي تعديلات وتعديل بسيط على الكود Dim strSQL As String, X As Integer X = MsgBox("المعلم غير موجود .. هل ترغب في إضافته؟", vbYesNo + vbDefaultButton1) If X = vbYes Then strSQL = "Insert Into Teacher (Teacher,Email) values ('" & NewData & "','الايميل مطلوب')" CurrentDb.Execute strSQL Response = acDataErrAdded Else Response = acDataErrContinue End If او اي عبارة تبين ان هذا المعلم لم يتم تسجيل ايميله

انت الاروع اخي صالح بارك الله فيك ولك

من باب تعدد الحلول في طريقة بدون الحاجة الى تغيير قيمة الحقل من مطلوب الى غير مطلوب عن طريق وضع القيمة الافتراضية للحقل الايميل =""

Database1072.accdb

غير ترتيب التسمية التوضيحية الى يمين او يسار او عام او اسفل او اعلى حسب رغبتك

Database1071.accdb

استاذ @jo_2010 بعد اختيار الصورة وكتابة التسمية غير ترتيب التسمية التوضيحية الى يمين او يسار او عام او اسفل او اعلى حسب رغبتك