عمر ضاحى

دي انا عارفها لكن لو فرضا انا عاوز صنف معين الاسم فى منتصف اسم صنف مثلا مونادا كوكاكولا كانيطة عاوز اكتب كلمة "كو" فيجبلى كل ال فيهم كلمة (كو)

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

جربت ان اضع فى الاستعلام معيار Like "*" & [Forms]![Frm_sales2]![name_of_product] & "*" لكنه لم ينجح معي وايضا اظهر لى خطأ عاوزني اكتب له معلمات

فى الخدمه

اتفضل استاذ الحلبى جر ب هذا اختيار.accdb

السلام عليكم اساتذتى مرفق نموذج لفاتورة فى الفاتورة يوجد نموذج فرعي فى النموذج الفرعي يوجد كمبوبوكس الحقل هذا هو قائمة من جدول هذا الحقل هو حقل الاصناف اريد لما اكتب اى حرف يجبلى هذه الصنف سواء كان هذه الحرف فى الوسط او فى الاخر ولكم جزيل الشكر 123456.accdb

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

الغرض منها اضافة الرواتب المتأخره ضمن التصفيه لاكن عرفت اعملها انى نسخهة الكود الخاص بالكمبوبوكس وعدلت فيه البيانات لكل كمبو بوكس خاص به وطلبي للشرح ليس الاقسام فى الكود فدي فهمتها لكن قصدي للشرح الكود نفسه مثل ما هي الداله هذه وما هي فائدتها وايه استخدماتها المتعدده اذا كان هناك اكثر من استخدام مثل هذا السطر 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

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