ابوخليل

السلام عليكم لست بحاجة الى ضم جداول ولا الى استعلامات تجميع فقط اجعل مصدر النموذج هو جدول الاسماء واستخدم مثل هذا السطر لجلب القيمة : =DCount("ID";"TTaweedh";"EmbNo='" & [EmbNo] & "'") مثال.rar

عليكم السلام اضبط خصائص العلاقة كما هو ظاهر في الصورة

وعليكم السلام تم عمل مثال حسب الطلب احتساب التأخر بين فترتين .rar

تم عمل المطلوب في الاستعلام علما ان الدرجات غير مكتملة حيث لا يوجد درجات في اعمدة النتائج التبديل بين حقلين4.rar

الحقول التي ذكرتها في الــ sheet لا يوجد فيها درجات ؟

شكرا للاستاذ شيفان على ما يقدمه من جهد ووقت وفائدة وشكرا لاخونا السالم على حسن خلقه وعلى وصبره تم تنقيح الموضوع وحذف المشاركات الزائدة تفضل اخونا هذه محاولة جعلت عملياتك وحسب فهمي في وحدة نمطية عامة Public Function wrWagt(time1 As Date, time2 As Date, rateb As Double, fram1 As Byte) Dim wrHour1, wrHour2, wrHour3, wrHour4 As Integer Dim tawed1, tawed2, tawed3, tawed4 As Double If time2 <= "21:00" Then wrHour1 = DateDiff("h", time1, time2) tawed1 = 0.01 ElseIf time2 > "21:00" And time2 <= "23:00" Then wrHour1 = DateDiff("h", time1, "21:00") tawed1 = 0.01 wrHour2 = DateDiff("h", "21:01", time2) tawed1 = 0.02 ElseIf time2 > "23:00" And time2 <= "23:59" Then wrHour1 = DateDiff("h", time1, "21:00") tawed1 = 0.01 wrHour2 = DateDiff("h", "21:01", "23:00") tawed2 = 0.02 wrHour3 = DateDiff("h", "23:01", time2) tawed3 = 0.01 ElseIf time2 > "00:01" And time2 <= "12:00" Then wrHour1 = DateDiff("h", time1, "21:00") tawed1 = 0.01 wrHour2 = DateDiff("h", "21:01", "23:00") tawed2 = 0.02 wrHour3 = DateDiff("h", "23:01", "23:59") tawed3 = 0.01 wrHour4 = DateDiff("h", "00:01", time2) tawed3 = 0.01 End If If fram1 = 1 Then wrWagt = rateb * tawed1 * wrHour1 + rateb * tawed2 * wrHour2 + rateb * tawed3 * wrHour3 + rateb * tawed4 * wrHour4 Else wrWagt = rateb * 0.05 * wrHour1 + rateb * 0.05 * wrHour2 + rateb * 0.05 * wrHour3 + rateb * tawed4 * 0.05 End If End Function التعويض عن العمل الإضافي2.rar

تفضل Public adat1_, bdat2, cdat3 As Integer Public Function kmDate(d1 As Date, d2 As Date) adat1 = DateDiff("yyyy", d1, d2) If adat1 >= 4 Then bdat2 = 4 cdat3 = adat1 - bdat2 Else MsgBox "لا يوجد مدة كافية او البيانات غير صحيحة" End If End Function db1.rar

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

تفضل تم التعديل التبديل بين حقلين2.rar

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

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

وعليكم السلام وكأنك تريد حسبة خاصة لاول اربع سنوات وحسبة اخرى لما زاد عن ذلك ارى الافضل لك تعلن عن ثلاث متغيرات 1- الاول ياخذ الفرق الكلي بين التاريخين 2- الثاني ياخذ قيمة 4 اذا الاول اكبر من او يساوي 4 3- الثالث ياخذ الباقي من طرح الاول من الثاني اذا قيمة الاول اكبر من 4

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

اخي سلوم يبدوا ان الخطأ يظهر حين تغادر التفاصيل بدون ادراج بيانات او بعد الحذف والخروج ، وهذه امور فنية وهي لا شك بحاجة الى وضع لتجاوز مثل هذه الرسائل والاخطاء اخي محمود هذا السطر هو المسؤول عن جلب الرصيد ويمكنك توظيفه في اي مكان : textRseed = Nz(DLookup("Rseed", "QryArsedh", "ID_fGnt=" & Me.ID_fGnt), 0) بشرط وجود رقم العميل في الفورم او التقرير وعلى فكرة .. يجب قبل اختبار المشروع ادراج بيانات وافية وكافية وصحيحة مثلا في المثال السابق اضطررت لتصحيح البيانات ، فانتم رفعتوا المثال وهو يحتوي على بيانات غير منطقية ، فكيف يتم بيع اجهزة لم يتم شراءها بعد ؟ طبعا مثل هذه الامور بحاجة الى ضبط مسبق لا يكون للمستخدم تدخل فيه بحيث لا يمكنه بيع سلعة غير موجودة على كل حال انتظر محاولاتكم في الاستفادة والتعديل والتطوير فانتم مبرمجين وكل من يمر من هنا معكم وما زلنا نتعلم

نعم وغالبا هي microsoft Office opject library

المعذرة اخوي في مثالي الاول حاولت احذف جميع الاكواد لتسهيل فهم الفكرة ، ويبدوا اني حذفت الطريقة الخاصة باخفاء الاطارات تفضل تم التعديل كما تحب zahrah2.rar

عدنا ... الارصدة : مبالغ وأصناف في الاستعلامات ، لتوظيفها في اي مكان وتجدونها في النماذج : في رأس الفاتورة يظهر رصيد المبلغ وفي تفاصيل الفاتورة عند اختيار الصنف من مربع التحرير يظهر الرصيد testPro14.rar

يا سلام .. البساطة هي الابداع

عملت حل للترتيب تجده في الاستعلام (كلي/ وحسب النوع) ولكن واجهتني مشكلة بانه يبدأ الترتيب بالصفر امل الاطلاع والتصحيح tlween2.rar انا افكر بصوت مرتفع كيف اعطي كل مجموعة متشابهة من الارقام ( التي في عمود النوع ) اعطيها رقم موحد داخل الاستعلام

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

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

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

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

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

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