عذاب الزمان

جزاك الله خير اخي اخ Kanory اتمنى المساعدة .... مواد.accdb

السلام عليكم ورحمة الله وبركاته ... عندي جدول ونموذج ( ادخال المواد للمخزن ) ، وجدول ونموذج ( اخراج المواد من المخزن ) ماذا اعمل لاستعراض ( المواد المتبقية بعد اخراج اي مادة من المخزن ) . ولكم جزيل الشكر والامتنان .

الاخ خالد .... نعم يعمل ... صح ... لكن ... عند تغيير لون الخلية لا يتاثر العدد او الجمع تلقائيا الا بعد النقر على خلية اللون ثم انتر او باستخدام نسخ التنسيق .... ما طلبته هو ان يتغيير العدد والمجموع بمجرد اعطاء لون للخلية ... تحياتي وشكرا للاهتمام ....

الاخ سليم المحترم لم يتغير شيء نفس النتيجة السابقة تجربة.xlsm

الاخ ALI MOHAMED ALI الاخ سليم حاصبيا الطريقتان عملتا بنفس الكيفية ولكما جزيل الشكر والامتنان ... لكن عندما الون اي خلية جديدة او ارفع تلوين خلية حمراء سابقه فان ( العدد) و(الجمع) لايتغيران الا بالنقر على خلية دالة العدد او الجمع ثم انتر ليقوم باحتسابها ؟ المفروض عند تغيير اللون او تلوين جديد يقوم تلقائيا بحساب العدد والمجموع ..... وانتظر اجابتكم مع جزيل الشكر ...

الاخوة الكرام مازلت منتظرا اجاباتكم جزاكم الله خير

السلام عليكم ورحمة الله وبركاته ارجو من الاساتذة الكرام بيان كيفية 1- جمع محتويات الخلايا ذات لون واحد فقط وليكن الاحمر فقط . 2- عدد الخلايا ذات لون واحد فقط وليكن الاحمر فقط . وذلك باستخدام الكود رجاءا . مع الشكر للجميع مقدما ......... تجربة.xlsx

الاخ ابو آمنة المحترم لم يحصل شيء لا حذف ولا ظهور اي مسج . مع احترامي وشكري

الاستاذ عبد اللطيف سلوم المحترم اشكر لحضرتكم الاجابة ... يظهر لي مباشرة مسج run-time error 2465 تعذر على البرنامج العثور على الحقل المشار اليه في التعبير الذي استخدمته زر end زر debug زر help

لسلام عليكم ورحمة الله وبركاته السؤال : عدة نماذج مرتبطة بعلاقات بين سجلاتها ... فيها زر حذف ماكرو ... اولا : عند حذف سجل من النموذج الرئيسي يظهر مسج ( لايمكن حذه لارتباطه بالنموذج الفلاني) ... ثانيا : عند حذف سجل غير مرتبط يظهر لي رسالة بانه سيقوم بحذف هذا السجل نهائيا اما موافق او الغاء. المطلوب : هو استبدال الرسالتين باخرى اقوم بكتابتها بحيث يفهم البرنامج ان السجل اذا كان مرتبط لايمكن حذفه وان السجل الغير مرتبط يتم حذفه . كيف يتم كتابة هذا الكود باستخدام IF مع MSGBOX وتعطيل رسائل البرنامج او كيف يتم تعديل ماكرو الحذف بهذا الشكل . مع خالص شكري وتقديري لكم .

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

اخي جزاك الله خير على الاهتمام ما عامل مشاركة تحياتي ....

سلام عليكم عندي مشكلة في اكسل هو ظهور عبارة project unviewable في واجهة المطور لافتح فورم سابق . تحياتي للجميع

السلام عليكم الاستاذ الكبير جعفر المحترم ... اولا : استخدمت الكود form_load ونجح بشكل رائع ، ولكنه استلزم ادخال المسارات يدويا . ثانيا : اما كود الداله (الموجود بالمرفق ) عن طريق الوحدة النمطيه لم يعمل بشكل صحيح ويظهر مسج ( يحتوي التعبير الذي ادخلته على اسم داله تعذر على برنامجك العثور عليها ) . علما اني عملت نفس الخطوات وعملت ماكرو كما ذكرت وعملت وحدة نمطيه كما تفضلت ولم يعمل . تحياتي استاذي العزيز .

الاستاذ جعفر ... ظروف خاصة ابعدتني عن المواصلة ... شكرا جزيلاً استاذي الفاضل وان كانت متأخرة جدا لكن الشكر موصول لك على الكود الاخير والمرفق هو ما اردته من الاول مع تعديل على السطر الاخير يكون Me!Seq = xNext لقد جربته وكان كما اردته انا .... دعائي وامنياتي لك بالتوفيق دائماً

السلام عليكم استاذي المحترم اريد اما s2017/0001 ولا يتكرر رقم السجل ، ويبدا برقم جديد بداية كل سنة . او يظهر لي الترقيم بشكل 1 للسجل الاول و 2 للسجل الثاني وهكذا ولا يتكرر ، ويبدأ برقم جديد عند بداية سنة جديدة . اي لا اريده بالصيغ 171 او 1701 او غيرها جزاكم الله خيرا .

استاذ جعفر سلام عليكم ورجمة الله وبركاته الي اريده هو : ان لايظهر رقم السنة 17 او 18 في الحقل seq مع رقم السجل ، هو الان يظهر بهذا الشكل 171 او 172 او 17101 لكن اريده ان يظهر لي فقط 1 ، 2 ، وهكذا ، او ان يظهر لي السنة كاملة وليس نصفها فبدلا من 171 يظهر لي 2017/01 وهكذا لكل السجلات . مع الاحتفاظ بكون الترقيم يتجدد مع بداية كل سنة وان لايتكرر الترقيم اي لكل سجل صادر رقم خاص به .

السلام عليكم ورحمة الله وبركاته الكود بهذا الشكل يخرج لي نتيجة s17/00001 وهكذا صعودا ... هل يمكن اظهاره بالشكل s2017/00001 وهكذا صعودا ؟؟؟ علما اني غيرت في السطر الرابع prtyr الرقم 2 الى 4 وظهر لي ما اردت لكنه يبقى ثابتا بتسلسل 1 لجميع السجلات . مع التحية والتقدير . On Error Resume Next Dim xLast, xNext As Integer Dim prtyr, prtTxt As Integer prtyr = Right(DatePart("yyyy", Date), 2) prtTxt = CLng(Mid(DMax("seq", "tb1"), 2, 2)) xLast = CLng(Right(DMax("seq", "tb1", prtTxt = prtyr), 5)) If IsNull(xLast) Then xNext = 1 Else xNext = xLast + 1 End If Me!Seq = "S" & prtyr & "/" & Format(xNext, "00000")

استاذي العزيز أعجزت عن الرد أم انك من المنشغلين انتظر الرد وانا من المنتظرين .

استاذ جعفر ممكن سؤال : هل بالامكان ان يكون الرقم بشكل تسلسلي 1 ، 2 ، 3 وهكذا بدون ذكر السنة ام لا . تحياتي

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

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

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

استاذي العزيز عند نقطة رقم 2 اضغط زر الامر لاينقلني الي اي شيء ( صافن ) ولايجدث شيء .