عمر ضاحى

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

للرفع رفع الله قدركم بمساعدة ChatGPT اعطاني الكود لكن فيه اخطأ مش عارف ايه هي هل يمكن احد يجرب الكود ويراجع ما الخطأ بعد اذن حضرتكم Option Compare Database Option Explicit Sub UpdateFIFO() Dim db As DAO.Database Dim rsInvHead As DAO.Recordset Dim rsInvDetails As DAO.Recordset Dim rsFIFOQty As DAO.Recordset Dim strSQL As String Dim InvID As Long Dim ItemID As Long Dim Qty As Double Dim PaPrice As Double Dim SaPrice As Double Dim FIFOQty As Double ' Open the database Set db = CurrentDb ' Clear the TblFIFIQty table strSQL = "DELETE FROM TblFIFIQty" db.Execute strSQL ' Open the recordsets Set rsInvHead = db.OpenRecordset("SELECT * FROM TblInvHead") Set rsInvDetails = db.OpenRecordset("SELECT * FROM TblInvDetails") Set rsFIFOQty = db.OpenRecordset("SELECT * FROM TblFIFIQty") ' Loop through the TblInvHead records rsInvHead.MoveFirst Do Until rsInvHead.EOF InvID = rsInvHead!InvID ' Loop through the TblInvDetails records for the current InvID rsInvDetails.MoveFirst rsInvDetails.FindFirst "LInvID = " & InvID If Not rsInvDetails.BOF Then Do Until rsInvDetails.EOF Or rsInvDetails!LInvID <> InvID ItemID = rsInvDetails!LItemID Qty = rsInvDetails!Qty PaPrice = rsInvDetails!PaPrice SaPrice = rsInvDetails!SaPrice ' Calculate the FIFO quantity FIFOQty = GetFIFOQty(db, ItemID, InvID) ' Update the TblFIFIQty table rsFIFOQty.AddNew rsFIFOQty!InvID = InvID rsFIFOQty!LItemID = ItemID rsFIFOQty!InvDate = rsInvHead!InvDate rsFIFOQty!QtyPay = Qty rsFIFOQty!QtyBackPay = 0 rsFIFOQty!QtySales = 0 rsFIFOQty!QtyBackSales = 0 rsFIFOQty!PayPrise = PaPrice rsFIFOQty!SalesPrise = SaPrice rsFIFOQty!done = IIf(Qty <= FIFOQty, True, False) rsFIFOQty.Update rsInvDetails.MoveNext Loop End If rsInvHead.MoveNext Loop ' Close the recordsets rsInvHead.Close rsInvDetails.Close rsFIFOQty.Close Set rsInvHead = Nothing Set rsInvDetails = Nothing Set rsFIFOQty = Nothing ' Close the database db.Close Set db = Nothing MsgBox "FIFO quantities calculated successfully!" End Sub 'يمكنك استخدام الكود التالي في VBA لحساب الأرصدة بنظام FIFO وتخزينها في جدول TblFIFIQty: Function GetFIFOQty(db As DAO.Database, ItemID As Long, InvID As Long) As Double Dim rsFIFOQty As DAO.Recordset Dim strSQL As String Dim FIFOQty As Double ' Open the TblFIFIQty recordset Set rsFIFOQty = db.OpenRecordset("SELECT * FROM TblFIFIQty WHERE LItemID = " & ItemID & " AND Done = False ORDER BY InvDate") ' Loop through the TblFIFIQty records and calculate the FIFO quantity If Not rsFIFOQty.EOF Then rsFIFOQty.MoveFirst End If Do Until rsFIFOQty.EOF FIFOQty = FIFOQty + rsFIFOQty!QtyPay - rsFIFOQty!QtySales If rsFIFOQty!InvID = InvID Then Exit Do End If rsFIFOQty.MoveNext Loop rsFIFOQty.Close Set rsFIFOQty = Nothing GetFIFOQty = FIFOQty End Function 'يرجى استبدال اسماء الجداول والحقول في الكود بالأسماء الصحيحة المستخدمة في قاعدة البيانات الخاصة بك.

الف الف مبروك للاستاذ @دروب مبرمج وربنا يوفقه وينفع الله به وينفعه بما يعلم

للرفع رفع الله قدركم

السلام عليكم اساتذتى الكرام اولا وقبل اى شئ كل عام وحضراتكم بخير ويتقبل الله منا ومنكم صالح الاعمال مرفق الى حضرتكم محاولتى فى تطبيق نظام FIFO (الوارد اولا يصرف اولا) وانا مش عارف اظبطه انا اريد ان يتم تحديث جدول الـ FifoStock فى كل مره افتح النموذج frmFifo بكل ما تم على المخزون من حركات مشكلتى الاكبر انى مش عارف اظهر المرتجعات فى جدول FifoStock اذا كان هناك احد يمكنه ان يساعدنى او حتى لو هناك طرق اخره اكثر تيسير من هذه الطريقه اكون شاكر له ولكم جزيل الشكر مقدما FIFO Access.rar

استاذ / @العبيدي رعد كل عام وانتم بخير باعتذر لحضرتك عن تأخري فى الرد بصراحه انا فتحت الملف طبعا لما بافتح النموذج والتقرير مفيش اى بيانات تظهر لى ولما حبيت اشوف مصدر البيانات لقيت هذا الجدول فهنا رقم 1 فى (رقم المعرف) تمام هو الايرادات لكن رقم 2 فى (رقم المعرف) مش النفقات ولو اعتمدة على رقم القسم مش هيعطينى نتيجة مظبوطه لان الرقم مشترك مع اكثر من سجل الحل (هذا اقتراح) ان تضع عمود جديد يخص تسميات الاقسام ويكون فيها ارقام معرفة فقط لتمييز اقسام الحسابات عن باقى التسميات وهذا هو المرجع لاى استعلام هتحتاجه مستقبليا

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

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

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

ما شاء الله دائما مبدع اشكرك كثيرا على الهديه القيمه

دائما مبدع بارك الله فيك استاذي @Moosak

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

فالحل موجود فعلا في زاد المثابر 😅👌 .. جميع النماذج تظهر في القائمة ومن ضمنها النماذج الفرعية اختر النموذج الفرعي من القائمة وسيعطيك عناصره مباشرة 🙂 **************************************************************** استاذي الغالى موسي بارك الله فيك وجزاك الله عنا كل خير 🌷 انا شايف ان يمكنك عرض جميع النماذج سواء فرعيه او رئيسية 😊 لكن ما قصدته هو ان اجعل قائمه فرعيه تظهر اذا كان النموذج الذى اخترته به نموذج فرعي او اكثر ف باختياري احدهم ياتينى بالعناصر ال فى النموذج الفرعي وبعدها يعطينى عنوان العنصر كامل اى يشمل اسم النموذج الرئيسي والفرعي 😁 والف شكر على المجهود

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

وجدتهااااااااااااااا ^_^ Dim Sn As Integer Dim aD As Integer For Sn = 1 To 31 aD = Sn - 1 Me("txtD" & Format(Sn, "00")) = Format(txtTodyDate + aD, "dd - mm") Me("txtDN" & Format(Sn, "00")) = Format(txtTodyDate + aD, "ddd") Next Sn

تقريبا ال فهمته ان لما باستخدم دالة For داخل دالة For ده بيجعل النتائج تتضاعف بعدد الدورات يعنى فى مثالى ال عندي 30 دورة واخرى 31 دورة بتصل الى 930 دورة ايه الحل البديل

الحمد لله تقريبا قربت انتهي من انهاء هذا المشروع لكن وقف معي نقطه اريد ان اختصر هذا الكود (الطويييييل) txtD01 = Format(txtTodyDate + 0, "dd - mm") txtD02 = Format(txtTodyDate + 1, "dd - mm") txtD03 = Format(txtTodyDate + 2, "dd - mm") txtD04 = Format(txtTodyDate + 3, "dd - mm") txtD05 = Format(txtTodyDate + 4, "dd - mm") txtD06 = Format(txtTodyDate + 5, "dd - mm") txtD07 = Format(txtTodyDate + 6, "dd - mm") txtD08 = Format(txtTodyDate + 7, "dd - mm") txtD09 = Format(txtTodyDate + 8, "dd - mm") txtD10 = Format(txtTodyDate + 9, "dd - mm") txtD11 = Format(txtTodyDate + 10, "dd - mm") txtD12 = Format(txtTodyDate + 11, "dd - mm") txtD13 = Format(txtTodyDate + 12, "dd - mm") txtD14 = Format(txtTodyDate + 13, "dd - mm") txtD15 = Format(txtTodyDate + 14, "dd - mm") txtD16 = Format(txtTodyDate + 15, "dd - mm") txtD17 = Format(txtTodyDate + 16, "dd - mm") txtD18 = Format(txtTodyDate + 17, "dd - mm") txtD19 = Format(txtTodyDate + 18, "dd - mm") txtD20 = Format(txtTodyDate + 19, "dd - mm") txtD21 = Format(txtTodyDate + 20, "dd - mm") txtD22 = Format(txtTodyDate + 21, "dd - mm") txtD23 = Format(txtTodyDate + 22, "dd - mm") txtD24 = Format(txtTodyDate + 23, "dd - mm") txtD25 = Format(txtTodyDate + 24, "dd - mm") txtD26 = Format(txtTodyDate + 25, "dd - mm") txtD27 = Format(txtTodyDate + 26, "dd - mm") txtD28 = Format(txtTodyDate + 27, "dd - mm") txtD29 = Format(txtTodyDate + 28, "dd - mm") txtD30 = Format(txtTodyDate + 29, "dd - mm") txtD31 = Format(txtTodyDate + 30, "dd - mm") txtDN01 = Format(txtTodyDate + 0, "ddd") txtDN02 = Format(txtTodyDate + 1, "ddd") txtDN03 = Format(txtTodyDate + 2, "ddd") txtDN04 = Format(txtTodyDate + 3, "ddd") txtDN05 = Format(txtTodyDate + 4, "ddd") txtDN06 = Format(txtTodyDate + 5, "ddd") txtDN07 = Format(txtTodyDate + 6, "ddd") txtDN08 = Format(txtTodyDate + 7, "ddd") txtDN09 = Format(txtTodyDate + 8, "ddd") txtDN10 = Format(txtTodyDate + 9, "ddd") txtDN11 = Format(txtTodyDate + 10, "ddd") txtDN12 = Format(txtTodyDate + 11, "ddd") txtDN13 = Format(txtTodyDate + 12, "ddd") txtDN14 = Format(txtTodyDate + 13, "ddd") txtDN15 = Format(txtTodyDate + 14, "ddd") txtDN16 = Format(txtTodyDate + 15, "ddd") txtDN17 = Format(txtTodyDate + 16, "ddd") txtDN18 = Format(txtTodyDate + 17, "ddd") txtDN19 = Format(txtTodyDate + 18, "ddd") txtDN20 = Format(txtTodyDate + 19, "ddd") txtDN21 = Format(txtTodyDate + 20, "ddd") txtDN22 = Format(txtTodyDate + 21, "ddd") txtDN23 = Format(txtTodyDate + 22, "ddd") txtDN24 = Format(txtTodyDate + 23, "ddd") txtDN25 = Format(txtTodyDate + 24, "ddd") txtDN26 = Format(txtTodyDate + 25, "ddd") txtDN27 = Format(txtTodyDate + 26, "ddd") txtDN28 = Format(txtTodyDate + 27, "ddd") txtDN29 = Format(txtTodyDate + 28, "ddd") txtDN30 = Format(txtTodyDate + 29, "ddd") txtDN31 = Format(txtTodyDate + 30, "ddd") الى هذا الكود Dim Sn As Integer Dim aD As Integer For Sn = 1 To 31 For aD = 0 To 30 Me("txtD" & Format(Sn, "00")) = Format(txtTodyDate + aD, "dd - mm") Me("txtDN" & Format(Sn, "00")) = Format(txtTodyDate + aD, "ddd") Next aD Next Sn لكن المشكله تظهر معي بهذا الشكل كله اصبح نفس التاريخ 🤕 مش عارف فين الخطأ بصراحه

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

للرفع

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

المشكله استاذى المهندس / قاسم ان عندي فى الشركه (اجهزتهم) ليس بها هذه البرامج وعلشان كده اطريت ان افكر فى استخدام الاكسيس انا شفت فيديو لناس مقدمه اعمال مثل هذا لكن دون شرح لفكرة الاكواد او حتى نشر الكود فقط الملف التنفيذى فانا عاوز اتعلم كيف فعلها سوف ارفق ملف التنفيذى للفيديو ال شفته وال حاولت ان اقلده Project-Manager-FREE.zip

مش عارف اكمل اكثر من كده حاسس اني تايه ومش عارف اجمعها TimeLine.rar

انا عرفت اوصل لهذه الافكار لكن وقفت على كيف اطبق هذا (الالوان حسب رقم اللون ) عرفت عن طريق استخدام دالة if مع التنسيق لكن مش عارف اكملها بطريقة اسهل غير ان اخترهم مربع نص مربع نص كلا على حد ولو حبيت اطور واضيف الوان اكثر هتكون العمليه مرهقه TimeLine.rar

السلام عليكم ورحمة الله وبركاته اساتذتى الكرام حفظكم الله كما هو موضح من العنوان اريد ان اصمم خط زمني للمهام للمشاريع مثل هذه الصوره انا عندي فى جدول ال TblTask بسجل فيها المهام للمشاريع (الموظف والمهمه والتاريخ من والى ) وايضا لون للمهمه علشان التمييز فى العرض المطلوب :- 1- كيف يمكنني ان احول النموذج FormTimeLine للشكل كما هو موضح فى الصورة ؟ على ان يتم التحكم فى الوان الخط مثل ما انا مختار لكل موظف او مهمه 2- تصميم تقرير يعرض فيها الموجود فى النموذج FormTimeLine اذا كان هناك طريقة اخرى لتنفيذ هذا العمل بشكل ابسط واسهل من ال انا عامله ياريت تعلموني بارك الله فيكم نقطه اخرى كيف يمكن ان اجعل شكل الكتابه فى مربع النص كما فى الاكسيل بذاوية 90 درجه ^_^ اترك لكم المرفق TimeLine.rar

عرفت اين الخطأ الخطأ فى الشرط فى دالة البحث الشرط بيشير الى نموذج مش مفتوح ^_^ فى الكيس الخاص بـ FromPoTallySearch