ابوخليل

نموذج الدفع هو نموذج بسيط مرتبط لاسلكيا _ ان جاز التعبير_ بجدول الدفع اي انه غير منضم ويمكن جعل النموذج منضم مباشرة الى الجدول ولكني رأيت ان المسائل المالية بحاجة الى زيادة ضبط بحيث لن يتم ادراج اي بيانات الا بعد ضغط الزر والمسؤول عن الحاق البيانات في جدول المدفوعات هو هذا الكود الموجود في وحدة نمطية في المديول العام : Public Function cmdsavedAll() On Error GoTo ErrHandler Dim db1 As Database Dim rs As Recordset Set db1 = CurrentDb Set rs = db1.OpenRecordset("tblPay") rs.AddNew rs!pay_ID = Forms!FrmPay!pay_ID rs!FatoraType = Forms!FrmPay!FatoraType rs!ID_fGnt = Forms!FrmPay!ID_fGnt rs!pay = Forms!FrmPay!pay rs!Paydate = Forms!FrmPay!Paydate rs.Update ErrHandler: If Err.Number = 3022 Then MsgBox "مكرر" Exit Function End If rs.Close: Set rs = Nothing End Function ويتم استدعاؤه في حدث الزر بـــ cmdsavedAll فيقوم بالحاق البيانات في جدول المدفوعات

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

الافضل على الصيغة نفسها mdb حتى يتمكن الجميع من الاستفادة مع الشكر والتقدير

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

تفضل 1599.rar

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