مهند عبادي

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

يمكنك أن تعمل زر أمر وتضع له الاختصار الذي تريد (اختصار لوحة المفاتيح) ثم تضع هذا الزر بشكل مخفي(خارج مساحة اانموذج مثلاً مع إلغاء خاصية توقف المؤشر) وهكذا لاستدعاء هذا الزر تقوم بضغط أزرار الاختصار له ولكني أفهم من كلامك أنك تريد أن اعمل النموذج بحيث أنت فقط …

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

أخوتي الكرام في هذا المنتدى بسرني إبلاغكم أني أعمل على إنهاء برنامج الدوري (SOCCER) ولم يتبقى على إنهائه سوى القليل جداً طبعاً أكمله لوحدي بسبب انعدام مشاركة الأعضاء معي ولكني أريد منكم بكل الحاح أن تدعموني فقط بالصور الصغيرة أو الأيقونات التي تدل على أقسام ال…

تفضل أخي الكريم هذا حل مشكلتك بشكل نهائي وآسف على التأخر بالرد fadak.rar

في حالة العكس اعمل الاستعلام ترتيب تصاعدي .. وابقي الـ TOP 10

Dim counter As Integer Dim db As Database Dim rst As Recordset Set db = CurrentDb() Set rst = db.OpenRecordset("SELECT * FROM CustomerStock WHERE Executed =" & True) counter = 0 Do While counter < 5 counter = counter + 1 rst.Edit rst!ChickedFree = True rst.Upd…

انظر هذا الرابط : /index.ph...%C8%ED%C7%E4%ED

هل هذا ما تريده أخي ؟ fadak.rar

أخي الكريم ابحث في المنتدى فستجد أمثلة عن ما تريده

أخي الكريم بفرض عدد السجلات A والرقم الذي تريد مضاعفاته هو B استخدم هذه المعادلة N = (A\B) * B

أخي الكريم أرفق الملف حتى تتم معالجة المشكلة بشكل صحيح

ضع زر ثم ضع الكود التالي في حدذ عند النقر DoCmd.RunCommand acCmdFind

تفضل أخي سعد هذا ما تريده db21.rar

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

الاستعلام يبدو لي يعمل بشكل صحيح !

بالنسبة للحل سأتفحص الملف وأرفقه لك

ؤسالة الخطأ التي تظهر هي المرفقة :

أرفق الملف عسى أن نتمكن من مساعدتك أخي

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