عليكم السلام والرحمة استاذ Ahmed kashoob
تفضل هذه المحاولة ارجو ان تكون موفقة
ملاحظة: تم انشاء زر امر لاجراء الاختبار بعد اضافة رقم الدورة والرقم الوظيفي وبداية ونهاية الدورة
يمكن تبديل مكان الكود بعد التحديث لتاريخ الدورة مثلا
سجل دورات الموظفين-2.rar
السلام عليكم
مشاركة مع استاذي العزيز sandanet
في جدول الموظفين تحتاج حقل رقم المعهد فقط
اما المنطقة والادارة فلا تحتاجها لان العلاقات بين جداول المنطقة والادارة والمهاهد تكفلت بذلك
بالخدمة استاذ نبراس
ياريت والله واتشرف بيك وانا المنون
بالنسبة لسعر الشراء او البيع فهو متغيير لذا لا يمكن الاعتماد على سعر ثابت
مسالة الحساب تعتمد على كثير من المتغيرات وهناك طرق كثيرة للحساب
بالاضافة الى تعريف المصطلحات لانه قد يكون هناك اختلاف في المعادلات سببه عدم فهم المصطلحات المستخدمة لذا لو تلاحظ عندما كتبت المعادلات
حاولت قدر الامكان تعريف المصطلحات وامرها هين خصوصا عند التقدم بتصميم البرنامج لانها ستتضح اكثر
وانا بالخدمة
السلام عليكم اخ نبراس كاظم
هذه محاولة ارجو ان تكون موفقة
تم تعديل بعض الجداول واضافة جدول اخر
بالنسبة للكميات الحالية: الكمية الافتتاحية + مجموع الشراء + مجموع مرتجع بيع - مجموع البيع - مجموع مرتجع شراء
مرتجع بيع = ارجاع الزبون للمادة
مرتجع شراء = ارجاع المادة للمجهز
بالنسبة للمبالغ المستقة للمجهز : مجموع مبالغ الشراء - مجموع مبالغ مرتجع شراء - مجموع المبالغ الواصلة للمجهز - مجموع المبالغ المدفوعة للمجهز
بالنسبة للمبالغ المستحقة على الزبون : مجموع مبالغ البيع - مجموع مبالغ مرتجع بيع - مجموع المبالغ الواصلة من الزبون - مجموع المبالغ المقبوضة من الزبون
مجوع مبالغ الشراء ومبالغ البيع ومرتجع الشراء ومرتجع البيع تحسب من جدول tbl_footer
مجموع المبالغ المدفوعة للمجهز والمبالغ المقبوضة من الزبون تحس من جدول tbl_InOut
مجموع المبالغ الواصلة للمجهز والمبالغ الواصلة من الزبون تحسب من جدول tbl_header
هذه المعادلات حسب فهمي المتواضع والراي لاساتذتنا
وعذرا للاطالة
Watch_Shop-aa.rar
مشاركة مع استاذي العزيز جعفر
اعتقد ان المشكلة ليست بالحروف وانما بالقيم الفارغة
Function m_ar(a As Variant) As String
If IsNull(a) Then
m_ar = "عربي"
ElseIf Val(a) < 20 Then
m_ar = "عربي"
Else
m_ar = ""
End If
End Function
وهذه محاولة ارجو ان تكون موفقة
مشاركة مع استاذي العزيز rey360
If IsNull(date1) Then
MsgBox "من فضلك ادخل التاريخ"
Exit Sub
ElseIf IsNull(nam2) Then
MsgBox "من فضلك ادخل اسم الفرع"
Exit Sub
End If
DoCmd.GoToRecord , , acNewRec
السلام عليكم
هذه محاولة ارجو ان تكون موفقة
DoCmd.RunSQL "ALTER TABLE tt DROP CONSTRAINT primarykey;"
DoCmd.RunSQL "ALTER TABLE tt DROP COLUMN id ;"
DoCmd.RunSQL "ALTER TABLE tt ADD id AUTOINCREMENT ;"
DoCmd.RunSQL "ALTER TABLE tt ADD CONSTRAINT primarykey primary key(id) ;"
تفضل التعديل استاذ عبدالقدوس48
ملاحظة : هكذا نوع من عمليات الجمع يجب الافضل ان تكون في استعلام وعليه تم جمع الحقل المطلوب فقط لعدم معرفة عمل الحقول الاخرى
بالاضافة الى تعديل في قاعدة البيانات ضرورية وتسهل الحسابات ارجو ان لا تسبب لك مشكلة
مثال-1.rar
وعليكم السلام استاذ عزالدين المنصوري
تفضل هذه المحاولة ارجو ان تكون طلبك
ملاحظة : الكود منقول من الرابط ادناه مع بعض الاضافات البسيطة ليناسب المطلوب
Desktop.rar