hassan omara قام بنشر أبريل 20, 2018 مشاركة قام بنشر أبريل 20, 2018 ارجوا من الاخوة الكرام المساعدة بتغير اسم الازار حيث اني اعمل علي برنامج اكسس والتصميم يتطلب في احد الصفحات ان اعمل 800 زر امر وان يكون اسم الازرار يبدا بـ btn ويلجق كل اسم ترقيم مثل btn1- btn2 - btn3 ومطلوب ان اعمل تسمية 800 زر للصفحة الواحدة وعندي 10 صفحات يعني 8000 زر فهل يوجد طريقة لتسمية الازرار دفعة واحدة برجاء التكرم من كبار اساتذة الاكسس وشكرا .... رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر أبريل 21, 2018 مشاركة قام بنشر أبريل 21, 2018 اول مرة أمر بحالة تشبه طلبك 800 زر في شاشة واحدة .. .. غير معقول لماذا غير معقول ؟ لان فكرة البرمجة جاءت لاختصار مثل هذه الخطوات واختزالها في حركات يسيرة المطلوب منك اخي الكريم تشرح لنا طبيعة المشروع الذي تعمل عليه ولماذا ستدرج هذا الكم الهائل من الازرار ؟ فقد نجد سبيلا لمساعدتك في تحسين الفكرة 1 رابط هذا التعليق شارك More sharing options...
hassan omara قام بنشر أبريل 21, 2018 الكاتب مشاركة قام بنشر أبريل 21, 2018 (معدل) انا حليت المشكلة والبنسبة للمشروع هو برنامج اكسس متكامل من كاشير يضم 800 زر اومر للاصناف و 800 زر اخرين لصفحة الدليفري وصفحة بها 1000 زر اوامر للاصناف المخزن استيلام ومثلهم للصرف .... وجزء للمرتبات وجزء اخر لنظام الاقساط كل دا في برنامج واحد ... وشكرا لاهتمام حضرتك... والبنسبة لحل المشكلة وطريقتها لاستفادة باقي الاعضاء انا عملت الازرار كما هي مثال ( أمر12) وبالتالي فزر الامر التالي سيكون (أمر13) وبالتالي فالاسم كدة هيكون كل بتسلسل ورا بعض وبالنسبة لكود الزر فانا عملت كود لاول زر بس ثم سحبت الكود وحطيته في برنامج الاكسيل وسحبت للنسخ فكرر الكود كل الكمية اللي انا محتاجها مع تسلسل رقم الامر وباقي التفاصيل مثال علي ذالك .... Private Sub الامر1128_Click() SalesSubform.SetFocus DoCmd.GoToRecord , , acNewRec [Forms]![sales]![SalesSubform]![ItemID] = DLookup(" [Item] ", "btn2", "[btnID] = 113 ") [Forms]![sales]![SalesSubform]![Price] = DLookup(" [SPrice] ", "btn2", "[btnID] = 113 ") End Sub Private Sub الامر1129_Click() SalesSubform.SetFocus DoCmd.GoToRecord , , acNewRec [Forms]![sales]![SalesSubform]![ItemID] = DLookup(" [Item] ", "btn2", "[btnID] = 114 ") [Forms]![sales]![SalesSubform]![Price] = DLookup(" [SPrice] ", "btn2", "[btnID] = 114 ") End Sub Private Sub الامر1130_Click() SalesSubform.SetFocus DoCmd.GoToRecord , , acNewRec [Forms]![sales]![SalesSubform]![ItemID] = DLookup(" [Item] ", "btn2", "[btnID] = 115 ") [Forms]![sales]![SalesSubform]![Price] = DLookup(" [SPrice] ", "btn2", "[btnID] = 115 ") وبكدة قدرت اتغلب علي مشكلة الازرار ومشكلة التعب في كتابة الاوامر .... تم تعديل أبريل 21, 2018 بواسطه hassan omara رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.