نجوم المشاركات

السلام عليكم ورحمه الله وبركاته اخى الفاضل @MEMO2008 اولا دعنا نتشرف باسمك لنناديك باحب الاسماء لك ومرحبا بك معنا فى قسم الاكسيس ثانيا بعض التوجيهات قبل الاجابه على سؤالك يجب تسميه جميع الكائنات والحقول باللغه الانجليزيه وتستطيع استخدام اللغه العربيه فالتسميه التوضيحيه وذلك لتسهل على نفسك كتابه الاكواد لان اللغه العربيه بتخلف كتابه الكود واليك التعديل ع مثالك بعد اختيار رقم السياره سيتم جلب اخر قيمه حاليه تم تسجيلها لها ووضعها بالقيمه السابقه للسجل الجديد 'الحالية 'تسجيل القراءة 'رقم السيارة Private Sub txtCar_AfterUpdate() Me.txtSabk = DLast("الحالية", "[تسجيل القراءة]", "[رقم السيارة]=" & Me.txtCar) End Sub بالتوفيق 3A_سيارات.accdb

الله يسلمك ويعافيك ان شاء الله 🙂 وان شاء الله انتظروا مني بعض المواضيع "اللي ما متعودين عليها" 😁 جعفر

تفضل <><><><><><> إدارة المركبات6.accdb

السلام عليكم ورحمة الله وبركاته أولا- اعتذر لتأخري بالرد لعدم انتظامي بالموقع بالوقت الحاضر ثانيا- هذه محاولة للمساعدة لعلها توافق مرادك لم اجري العديد من التجارب ولكن التجربة الأولية أعطتني نتائج لا ادري ما دقتها - هذا ما انتظره من حضرتك بعد الاطلاع علي المرفق. ثالثا- أجريت بعض التغيرات علي دالة التجميع بالمرفق السابق بالمشاكة الأخيرة لي- فلعل احد البرمترات سبق الآخر - واضفت برامتر جديد ارجو ملاحظة هذا عند نقل الدالة الي برنامجك الأصلي. وأخيرا - أكرر اعتذراي ومروري السريع وان كانت النتائج غير صحيحة فأرجو ان تسامحني لعدم المتابعة حيث أني مرهق الآن - وسأتابع غدا ان شاء الله. T3Q - Copy.rar

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

من النصائح الذهبية في الاكسس: لا تبدأ اسم الكائن برقم ، وإلا ستحصل على اخطاء لا محل لها من الاعراب 😁 اجعل اسماء جداولك تبدأ بحرف 🙂 جعفر

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

الدالة indirect هدفها هو تحويل نطاق مكتوب على شكل نص إلى نطاق وقد تم تمرير اسم الشيت الموجود في الخلية j6 وبعده ! وبعده النطاق المطلوب البحث فيه

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

شكراً لك أخي الكريم

عليكم السلام جرب وضع هذه المعادلة في الخلية L6 =IFERROR(VLOOKUP(H6,INDIRECT("'"&J6&"'!d2:e1000"),2,0),"") بالتوفيق

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

😍😍😍😍😍🥰🥰😍😍😍🥰🥰😍😍😍😍😍

وعليكم السلام 🙂 هذا الموضوع فيه ما لذ وطاب من عمل قاعدة بيانات ، الى عمل الحقول ، وعمل نماذج وبها ازرار ، وعمل كود لكل زر ، وووو . وهنا افرد لك الجزئية التي تريدها: 'DoCmd.RunSQL "CREATE TABLE [" & s & "] (ID AUTOINCREMENT primary key, ID_Shamela integer, Tno integer, Nass Memo, part integer, Page integer,Hno integer,Rm_Hno integer, Mno text (50),Mult_mno yesno,NO_hno yesno)" Dim dbsNew As DAO.Database Dim pr As DAO.Property Set dbsNew = CurrentDb 'OpenDatabase(Me.txt2) DoCmd.RunSQL "CREATE TABLE [" & s & "] " & _ " (ID AUTOINCREMENT primary key, " & _ "ID_Shamela integer, " & _ "Tno integer, " & _ "Nass Memo, " & _ "part integer, " & _ "Page integer, " & _ "Hno integer, " & _ "Rm_Hno integer, " & _ "Mno text (50), " & _ "Mult_mno yesno, " & _ "NO_hno yesno) " 'Mult_mno dbsNew.TableDefs(s).Fields("Mult_mno").DefaultValue = 0 Set pr = dbsNew.TableDefs(s).Fields("Mult_mno").CreateProperty("Format", dbText, "True/False", True) dbsNew.TableDefs(s).Fields("Mult_mno").Properties.Append pr 'make the Check Box look Set pr = dbsNew.TableDefs(s).Fields("Mult_mno").CreateProperty("DisplayControl", dbInteger, acCheckBox) dbsNew.TableDefs(s).Fields("Mult_mno").Properties.Append pr dbsNew.TableDefs(s).Fields("Mult_mno").Properties("DisplayControl") = acCheckBox 'NO_hno dbsNew.TableDefs(s).Fields("NO_hno").DefaultValue = 0 Set pr = dbsNew.TableDefs(s).Fields("NO_hno").CreateProperty("Format", dbText, "True/False", True) dbsNew.TableDefs(s).Fields("NO_hno").Properties.Append pr 'make the Check Box look Set pr = dbsNew.TableDefs(s).Fields("NO_hno").CreateProperty("DisplayControl", dbInteger, acCheckBox) dbsNew.TableDefs(s).Fields("NO_hno").Properties.Append pr dbsNew.TableDefs(s).Fields("NO_hno").Properties("DisplayControl") = acCheckBox جعفر YesNo.zip

=COUNTIF(D2:N12,"<40")

بعد عرض الموضوع لأكثر من ٣ مرات ...هذا هو المطلوب ...شكرا شكرا استاذBarna

تفضل اخي qu-M-H.xlsm

السلام عليكم أخي الكريم جرّب هذا الملف المرفق أخي الكريم مع ملاحظة ما يلي: تم العمل باستخدام معادلات أستاذنا الكريم بن عليه حجي جزاه الله خيراً تم إضافة قائمة منسدلة لأواخر الشهور بحيث يمكنك استخدام القائمة لتغيير أواخر الشهور كما هو مبين في الملف تم إضافة عمود مساعد في ورقة البيانات ليتم استنتاج المطلوب منها وفق التاريخ الذي تحدده بالقائمة المنسدلة الشكر موصول لأستاذنا بن عليه حجي مع الاعتذار له باعتبار الحل الأساسي ملكاً فكرياً له ولا ننسى أيضاً أنه ((من سلك طريقاً يلتمس به علماً سهّل الله له به طريقاً إلى الجنة)) أو كما قال الرسول محمّد صلى الله عليه وسلم تقبل مروري جلب اكبر واصغر قيمة لتاريخ (1).xls

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

شكرا لك اخوي خالد ، فالافضل هو استعمال الاستعلام او النموذج او التقرير بدلا من الحقل ، لصعوبة/انعدام التحكم بحقل الجدول برمجيا !! جعفر

وعليكم السلام ورحمة الله وبركاته 🙂 اخوي ابو جودي ، ابوالحسن ، ابوخليل ، وكل من مر على هذا الموضوع ، شكرا على سؤالكم ، والحمدلله عدت من السفرة/المهمة 🙂 جعفر

اخوي طاهر لا يتصور انك ستكتب مباشرة في الجدول ، وهذا يعني انك سوف تستخدم النموذج لادخال البيانات اتفاقا مع استاذنا المبرمج السابق باستخدام الطريقتين ان اردت ان يتم حفظ التاريخ الهجري في الجدول فعليك باستخدام النموذج رقم 1 ومصدره الجدول رقم 1 اما ان اردت اظهار التاريخ الهجري من خلال النماذج او التقارير وعدم حفظه في الجدول فاستخدم النموذج رقم 2 ومصدره الاستعلام الداخلي الذي يأخذ بياناته من جدول 2 اليك المثال معدل وقد اضفت اليه وحدة ابي هادي النمطية الخاصة بتقويم ام القرى الهجري مثال تجريبي2.rar

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

التعديل 1384015853_.accdb

في الاصدارات من 2010 اضيف في الجدول حقل من نوع بيانات محسوب هذا النوع من الحقول يمكن استخدامة لاجراء العمليات الحسابية ويمكن استخدامة مع بعض الدوال من خلال منشئ التعبير مثلا ممكن نضع شرط باستخدام iif او نعيد قيمة بناء على فهرس الاختيارات مثال Choose([aa];"مكة";"جدة";"المدينة") او اعادة الشهر او اليوم او السنه او تجميع لعدة حقول نصية مثلا الاسم اسم الاب الجد اللقب ... الخ وفي جميع الحالات لابد ان تبنى هذة العمليات على حقل او حقول اخرى في الجدول. مثلا لو كتبنا التعبير في حقل من نوع محسوب في الجدول لاعادة العام الحالي ⬇️ Year(Date()) لن يمكننا ذلك وسوف نحصل على خطأ بينما يمكننا كتابتها في النموذج والاستعلام لذا فعند رغبتنا في ذلك لحقل في الجدول لابد ان نشير الى حقل تاريخ موجود في الجدول Year([s_date]) في جميع الاحوال لا احبذ استخدام هذا النوع من الحقول في الجداول فمن رأيي ان مكانها النموذج او الاستعلام تحياتي

اعتذر انطر المرفق FTable.xlsm

هل هذه ماتريد ؟؟؟؟؟؟

السلام عليك : مداخلة لمشاركة اخوتي واحبتي : انا رأيي انه يكون لكل نوع من الوحدات باركود يخصه بالضبط كما هو عمل الاستاذ خالد تشترك في الارقام الاولى وتختلف في نهاية الرقم .. وهذه الطريقة لا يحتاج المستخدم تحديد نوع وحدة المبيع او المشتريات عند اجراء البيع او الشراء .. وانا اتساءل اين الصعوبة في ذلك على المستخدم .. لانه سيدخل الاصناف مرة واحدة سيستخدمها خلال سنوات ولن يحتاج لتعديلها الا اذا حصل للمصنع تغيير جوهري .. ورؤية الاستاذ خالد في اعتماد الوحدة الصغرى حاصلة وموجودة لاننا سنضع حقلا في جدول الحركات يظهر عدد الوحدات الصغرى سواء كانت الحركة على الوحدة الكبرى او الوسطى او الصغرى ، وبناء على هذا الحقل مع الارقام الاولى للصنف نتمكن من معرفة جميع المشتريات والمبيعات بالوحدة الصغرى .. وبتطبيق معادلة الاستاذ عامر يمكننا معرفة المخزون من جميع الوحدات الشيء الاهم كثير من المصانع العالمية تعتمد التفرقة في ترقيم وحدات منتجاتها ، فلماذا نجتهد وقد كفينا نصف الرحلة حبيبي واخي الاستاذ عامر ماخط بالاحمر اعلاه فهمت منه ان المستخدم يجب عليه قبل اجراء الحركة ان يختار نوع الوحدة ,, هل فهمي صحيح؟

تفضل اخي جرب ربما يكون هذا طلبك جلب بيانات بين تاريخين M-H.xlsm

أين هي البيانات حتى أصمم لك التقرير؟! على كل حال أخذت العينة المرفقة من أحد مشاركاتك وكررت فيها البيانات حتي أصل إلى العدد المطلوب! إليك النتيجة السجل.accdb

السلام عليكم ورحمة الله وبركاته يكون ذلك عند حماية الملف بكلمة مرور أو بدونها يمكنك إلغاء الحماية للتأكد من صحة المعلومة. تقبل تحياتي

وعليكم السلام ورحمة الله جرب المرفق لعل فيه ما تريد... جلب اكبر واصغر قيمة لتاريخ.xls

تفضل اخي ملاحظة بدلا من كتابة هده الجملة يمكنك وضع حماية لورقة العمل مع اضافة هذه الاسطر في الكود كما في الصورة 42.xlsm

جرب المرفق Test (3).xlsm