ابوخليل

شوفت انت اكبر مني بـــ 4 سنوات من العود الحين

وعليكم السلام بدون زر خيار وانما باستخدام المعيار المناسب في مصدر البيانات انظر المعايير في الاستعلام Import_2.rar

السلام عليكم وجدت كود ضمن مقتنياتي يستخرج اكبر قيمة في حقول السجل وقمت بتعديله كي يعد الحقول غير الخالية Function countflds(ParamArray fldArray() As Variant) Dim I, curfld As Integer For I = 0 To UBound(fldArray) If Not IsNull(fldArray(I)) And fldArray(I) <> 0 Then curfld = curfld + 1 End If Next I countflds = curfld End Function عدد حقول سجل بشرط.rar

انت الرائع ما شاء الله .. بارك الله في عمرك ووقتك ، والحل ليس وليد الساعة بل اقتبسته من عمل عندي قريب منه

مشاركة مع احبتي اخونا كريمو لعل هذا يلبي طلبك قيد العمل.rar

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

معذرة .. لايمكنني فتح المرفق فانا اعمل على اوفيس 2003

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

وعليكم السلام : انظر هنا

هذا رابط الموضوع السابق المختصر الفكرة هي تأسيس لعملية البيع والشراء لعملاء معتمدين باقل قدر من الكائنات ، والفكرة تم تنفيذها بــ 3 جداول أساسية فقط : راس الفاتورة _ التفاصيل _ المدفوعات . كثير منكم سيقول نعلم هذا ولم تأت بجديد ، وأعلم ذلك ولكن الحال في غالب الامثلة والمواضيع المنتشرة في هذا المنتدى وغيره تختلف وفيها الإلزام بما لا يلزم . وموضوعي هنا نسخة مطابقة من الرابط السابق ولكني احببت افراده بموضوع وعنوان مستقل لعدة اسباب : 1- وجود فكرة جديدة من بنات افكاري تساعد عند عمليات الادخال ، ومن الممكن وجود احد سبقني الى هذه الفكرة في هذا المنتدى او غيره فهنا اقدم اعتذاري له ابتداءً ولتعلموا انما هو توارد خواطر . 2- جميع من مر على الموضوع السابق وفهم الفكرة لن يتوقع تغير متميز لذا لن ينشط في المتابعة وفي تصفح المثال الجديد 3- تلافي جميع المشكلات في الملاحظات السابقة خاصة التي يستعصي او يصعب حلها الفكرة هي جعل جميع النماذج غير منضمة والحاق البيانات باستخدام الكود ، وهذه ليست جديدة ولكن الجديد هو استخدام جدول وسيط مؤقت لرصد تفاصيل الفاتورة buySel.rar

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

سأعمل على اعداد نسخة اخرى افضل _ في جهة الضبط _ وبفكرة جديدة ابتكرتها وسأسميها : اختصار المختصر الموضوع الجديد هنا

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

اهلا وسهلا ومرحا بــ استاذنا القدير نارت لبزو ابي آدم عوداً حميدا أدام الله علينا وعليكم رضاه ونعمه وعافيته

مثال بسيط يوضح احدى الطرق لرصد درجات مادة حسب الصف مع بعض اللمسات على نموذج الادخال اتمنى تجدوا الفائدة ادخال درجات مادة وفصل.rar

السلام عليكم مشاركة مع اخي شفان هكذا يجب ان تكون جداولك اذا رغبت في اتمام العمل يمكنك اضافة النموذج ورفعه بالمطلوب ربط الحقول2.rar

وهذا كان جوابي حين تصفحت المثال الرصيد يظهر .. يعني لم اجد مشكلة

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

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

تفضل حل متقن اتمنى ان يكون هو مطلبك On Error GoTo ErrHandler Me.re.Caption = Int(DateDiff("m", [sdate], [datenow]) / 12) ErrHandler: If Err.Number = 94 Then Me.re.Caption = "" End If DDD7.rar

تفضل تم التعديل اولا تم تغيير تسمية الحقل Date لانه من الاسماء المحجوزة في اكسس ثانيا تم ضبط الكود بحيث لن يظهر حقل العمر حتى يكون التاريخ حقيقي وهو اصغر من تاريخ اليوم DDD5.rar

تفضل تم التعديل db2.rar

حبيبنا المعذرة كنت ارفقت لك مثالك الاصلي تفضل التعديل db1.rar

تفضل التعديل في قيمة مربع نص.rar