عمر ضاحى

عظمه على عظمه بارك الله فيك جعله فى ميزان حسناتك

الغرض منها اضافة الرواتب المتأخره ضمن التصفيه لاكن عرفت اعملها انى نسخهة الكود الخاص بالكمبوبوكس وعدلت فيه البيانات لكل كمبو بوكس خاص به وطلبي للشرح ليس الاقسام فى الكود فدي فهمتها لكن قصدي للشرح الكود نفسه مثل ما هي الداله هذه وما هي فائدتها وايه استخدماتها المتعدده اذا كان هناك اكثر من استخدام مثل هذا السطر Asc(Mid(T, i, 1)) ليه دي وايه الية عملها انا عارف ان ممكن طلبي هذا يكون مرهق لحضراتكم لكن دائما ابحث عن اكبر قدر من الاستفادة وايضا اتاحة الفرصه لغيري من المبتدئين لفهم شئ ممتاذ مثل هذا الكود

طيب هو انا ممكن استأذنك تشرحلى عملتها ازاى اريد شرح للكود اذا تكرمت علي وايضا فى حال اريد ان اكررها فى نفس الفورم هل اكرر الحدث فقط ام اطر لتكرار الحدث وكود Function Seperate_Digits(T) معا

اولا اشكرك على تعبك لكن ليس قصدي فصل الرقم ف لفصل الرقم ممكن استخدم هذه المعادلة وتنتهي القصه Me.txt777 = Trim(Replace([cbList1], "شهر", "")) لكن الغرض هو مثلا كيف احول الرقم الذى سوف يخرج لى ولو نفترض انه رقم 3 رقم 3 هذا يرمز لشهر 3 مارس اريد عدد ايام هذا الشهر فى هذه السنه الحاليه (المفترض ان النتيجه هي 31 يوم ) ولو اخترت شهر 2 فبراير فهو فى هذه السنه قيمته 28 يوم وانا رابطه بالسنه لان قد ياتى 29 يوم فى سنه من السنين اولا باشكر حضرتك على المداخله لكن انا لم افهم النموذج المفترض لما اختار الشهر ايه ال بيظهر لانه كان بيجبلى اخطأ فى الكود

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

اشكرك كثيرا على ردك لكن ليس هذا ما اريد هو قريب منه لكن ما اريد بالظبط هو كما فى النموذج المرفق فى الموضوع فعندي حقل مكتوب فيه شهر 1 عاوز الداله تاخد هذه النص وتقص الزوائد وتترك فقط الرقم وده بيتعمل بدالتين هم Trim Replace حيث Trim تلغي الفرغات و Replace تستبدل النصوص بفراغ ويبقى فقط الرقم 1 وهو يدل على شهر يناير ومن ثم اريد ان حول الرقم هذا لايام 31 يوم وبعدها اخذ خذا الرقم وادخله فى دالة الحساب الاصليه ^_^ انا عارف انها لفه طويله بس محتاجها

عندي حقل سوف اضع به عدد الايام وليكن اسمه txtDays وعندي قائمة اختار منها الشهر وهو هيكون بتنسيق اسم ورقم مثل شهر 1 شهر 2 شهر 3 وليكن اسمه cbList1 وعندي حقل اخر به الراتب ولكين اسمه txtSalary انا اريد ان لما اكتب فى حقل الايام قيمة واختار الشهر يحسب ليى المبلغ مثل عدد ايام 14 يوم شهر 3 الراتب 1900 لما يحسب يشوف رقم الشهر عدد ايامه كام شهر 3 يعنى شهر مارس عدد الايام 31 يوم =1900/31*14=858 ازاى احولها معادلة انا اعرف انى تقريبا هحتاج دالة Trim Replace DateDiff وممكن اشياء اخرى بس ازاى اعملها مش عارف pro.accdb

اذا كانو ليس بهم بيانات مهمه لا بأس ارفعهم الاثنين علشان احاول اعدل لك على الملف

ممكن ترفع نسخه غير كامله او نسخه تحتوي على بيانات غير مهمه علشان احاول اشرحلك عليها

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

😌 لم اتذكرها او حتى افكر فيها الف شكر لحضرتك

اعقد ان ملف به خطأ او ان اصدار البرنامج عندي غير قادرعلى التعامل مع ملفك انت شغال باصدار كام

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

السلام عليكم معايا مشكلة فى استعلام الحاقى الغرض من البرنامج هو لما احذف اى سجل يتم نقله الى جدول اخر ويحذفه علشان اقدراستعيد البيانات فى حال اردت استعادتها بعد الحذف فقمت بعمل جدول الحاقى ياخذ هذا السجل ويقوم بنقله الى جدول اخر ومن ثم يقوم بحذف السجل المشكله انه ينقل رقم ال ID خطأ يعنى مثلا يوجد عندي 10 سجلات من 1 الى 10 وعند حذف سجل رقم 8 مثلا ينقله الى الجدول الجديد حامل رقم 1 وهكذا مع جميع السجلات يعطي نفس الرقم وهو 1 فهل من توضيح للمشكله ؟ test.accdb

طريقه جميله وفعاله والله تسلم ايدك وبارك الله فيك طريقه جميله وفعاله ايضا هههههههههه ابدا والله انا بس بحاول الم باكثر قدر ممكن من المعلومات لغرضين اولا افتح باب لعرض الافكار الابداعيه والتى من دورها تساعد المبتدئين على الفهم وتطوير طريقة الفكر ثانيا علشان انا ايضا اتعلم فن كيف اركب كود على كود وافهم اكثر استخدمات الاكواد والفائده تعم الجميع والهدف البعيد عاوز اعمل برنامج مجاني يساعد الناس فى اعمالهم لوجه الله يكون غني بالادوات والمميزات والخدمات (شئون موظفين وادارة مخازن وحسابات) ده الهدف بس بسبب انشغالى ببعض الامور الاخري فاحيانا باتوقف عن التقدم يوم او يومين دون تحديث او اضافه لشئ معين ^_^

انا ايضا انتظر رأيهم طيب فى حال الوضع هكذا كيف اضيف قيد لعدد السجلات حتى لا يتخطى ال 49 سجل ولا يظهر هذا الخطأ ويجبر المستخدم على حذف سجل لكي يستطيع اضافة سجل جديد

اضافة اخرى لما خففت عدد الالوان الى 49 لون اشتغل تمام 50 لا ^_^ حالف هما 49 لون هل ده يعني قدرات الاكسيس كده ؟ ولا هناك شئ اجهله

فى مشكله ظهرت معايا فى الكود بعد ان اضفت مكتبة كاملة للالوان على اساس اجربها ظهر لى هذا الخطأ وحدد لى الخطأ هنا فما هو السبب ؟ وهذا الكود الخاص بالاستاذ @husamwahab Dim rs As DAO.Recordset Set rs = Me.RecordsetClone rs.MoveFirst Do While Not rs.EOF With [bxColorSub].FormatConditions .Delete End With rs.MoveNext Loop rs.MoveFirst Do While Not rs.EOF With [bxColorSub].FormatConditions With .Add(acExpression, acEqual, "(([ID_Color])=" & rs!ID_Color & ")") .BackColor = rs!CodeColor.Value End With End With rs.MoveNext Loop

الف شكر لحضرتك وهذه ايضا احدى المكتبات بها اكود الالوان جاهزه للمبتدئين امثالى حابب افيد بها غيري رابط المكتبه

بسم الله ما شاء الله هذا هو الف شكر

السلام عليكم مرفق اليكم نموج لعرض الالون من جدول كل كود فى الجدول يرمز للون المشكله انه يعرضلى كل الاكواد بلون واحد انا اريد ان يعرض لى كل لون حسب الكود الذى معه فى نفس السطر وشكرا جزيلا Color.accdb

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

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

الحين انا بالخارج عند عودتي سوف اجرب واخبرك بالنتيجه اشكرك الف شكر ويعطيك العافيه ويجازيك عنا كل خير

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