اهلا بك اخى ابو خليل
اذا عملنا جدول التاشيرات مربوط بجدول الحركه راس باطراف سوف يخرج لنا فقط ماتم صرفه
طيب كيف سنربط جدول البيانات بجدول الحركه راس باطراف
معلهش اخى ابو خليل ارهقتك معى
فى انتظارك
اخى ابو خليل اولا اشكرك واشكر الاخ احمد خلف
لم اجد فى البرنامج ما اريد
دعنا نتحدث ونفكر سويا وان شاء الله سوف نصل للحل باذن الله عز وجل
بعد اطلاعك على المثال فانك وجدت 3 ادارات فى جدول الادارات وكل اداره مربوطه بجدول البيانات لاستخراج البيانات الخاصه باسماء موظفيها
نريد انشاء نموذج لصرف الرواتب بتاشيره تم الصرف بتاريخ اليوم (الصرف) واستخراج تقرير يومى لكل اداره بتاريخ يوم الصرف
فبذلك ينتج لدينا جدول التاشيرات صح كده
قمنا بانشاء جدول التاشيرات .................. لن نربطه الأن
كد فاضل حقل او حقلين هما حقل التاريخ لتاريخ الصرف
وحقل الشهر ........ لاستخراج المتبقى خلال الشهر دون الصرف بعبارة ( لم يتم صرفه )
هل نقوم باضافة جدول ونسميه الحركه ونضع به هذان الحقلان واضافة جميع الحقول المراد اظهارها مثل الاسم والمسلسل والمبلغ والتاشيره .
ام ماذا شاركنى بفكرك وان شاء الله سو نصل للحل
ارجو ان لا اكون اثقلت عليك
ولكى منى وافر التحيه والتقدير
اخوك احمد
اخى الكريم
ان شاء الله سيكون بهذا الشكل
strSql = "SELECT Salaries.a, Salaries.b, [A]+[B] AS C " & vbCrLf & _
"FROM Salaries;"
حيث اسم الجدول Salaries و a & b المراد جمعهم و c حقل الناتج
ومرفق برنامج يمكنك من تحويل جمل SQL لاستخدامها بالمحرر
SqltoVBA.rar
اخى احمد خلف
شكرا لك على المشاركه
يتم الصرف يدوى وقيد ماتم صرفه يدوى وهنا نريد الاستغناء عن القيد اليدوى الشهرى هذا
ما وضحته هو مايتم بالعمل اليومى لدى وذلك لتتضح الامور حتى يتم برمجتها اليا
جزاك الله خيرا اخى ابو خليل
والله قد زالت عنى الصعاب بمتابعتك اخى ومشاركتى فى الوصول الى نتيجة إن شاء الله
اوضح لك صورة التقارير اليوميه للصرف لدى
التقرير اليدوى يتكون من
تاريخ اليوم
حقل المسلسل ويتم ادراج رقم مسلسل الموظف بالكشف حقل لاسم الموظف حقل المبلغ يتم فى نهاية اليوم تجميع الاعداد المصروفه وكذلك المبالغ
وهكذا الى نهاية الشهر .
وفى نهاية الشهر اذا كان فيه موظفين لم تصرف مستحقاتها يتم ردها الى جهة الاداره التابع ليها بنفس التنسيق السابق بالاضافه الى الرقم الوظيفى للموظف
ارجو ان اكون قد وفقت بتوضيح طبيعة العمل
فى انتظارك اخى ابو خليل
اخى ابو خليل بارك الله فيك
انا هنا لن استخرج كشوف صرفيه مثل الكشوف العاديه للادارات كما وضحت لك سابقا
هذا البرنامج سيتم ادخال به كشوف مرتبات لادارات مختلفه ليتم عمل تقارير يوميه لحالات الصرف لكل اداره وتجميع الرواتب المصروفه اليا بدل التقاريراللتى نعملها يدويا كل يوم
الكشوف العاديه اللتى قصدتها انت لكل اداره هذه تستخرج من قبل الاداره للاداره نفسها فى اخر الشهر وصرفها فى نفس الاداره باذون صرف ولا يتم ادارجها بتقارير اخرى وفى اغلب الاوقات لايتم رد اى مبالغ للخزينه مره اخرى الا فى اسباب ضعيفه
هل اتضحت الفكره اليك اخى ابو خليل
اعتذر لك اخى ابو خليل عن عدم الايضاح الكافى
يوجد لدى اكثر من كشف لكل اداره كل كشف به 500 اسم او اكثر كل كشف له عدد بقيمة الكشف كده تمام
ناتى للصرف صرفت من اول كشف مثلا 100 بتاريخ اليوم وتم جمع اجمالى المبلغ (الرواتب)
تانى كشف مثلا 90
ثالث كشف 150 وهكذا
صرف يومى لكل شهر على حده
اتمنى ان تكون وضحت الفكره لك اخى ابو خليل واشكرك على متابعتى لتحليل هذا العمل بارك الله فيك
اخى ابوخليل
جزاك الله خيرا على هذا الرابط
ولكن برنامجى مختلف تماما
حيث ان الرابط خاص بشركه او اداره واحده
وبرنامجى سيكون صرف رواتب متعدد الجهات
اشكرك على متابعتك وانتظرك
مرفق المثال والشرح
استعنت بالله العلى العظيم ثم بكم اخوانى على ان ترشدونى للطريق الصحيح للتعلم وانجاز هذا البرنامج
هذا مثال تعليمى اتعلم عليه
تمنياتى للجميع بالتوفيق ودوام النجاح
MK.rar
جزاك الله كل خير اخى ابو خليل وصلت للمطلوب تسلم ايدك
ممكن طلب صغير على نفس المرفق وهو عند اختيار اداره من الادارات يتم تثبيت اسم الاداره المختاره فى حالة التسجيل لحين اختيار اداره اخرى
وفقكم الله
اتفضل اخى 4 امثله
ان شاء الله تستفاد منهم
قد حصلت عليهم عن طريق المشرفه زهره بارك الله فيها كانت وضعتهم بمشاركه من قبل
بالتوفيق اخى
account.rar
Bank.rar
Bank___Chess_Balance_.rar
zaBalance.rar
أخى ابو خليل جزاك الله كل خير على المتابعه
لقد ساعدنى اخوانى الاعضاء هنا من قبل على بناء نموذج واحد لجدولين
فى المرفق اعلاه
اريد اختار الاداره من القائمه
واسجل بيانات الموظفين
فهل يوجد تعديل لهذا المطلوب
وفقكم الله لما يحبه ويرضاه
السلام عليكم ورحمة الله وبركاته
تم ربط 3 جداول ببعض وانشاء نموذج للادخال لكن عند ادخال البيانات لايقبل ويعطى رسالة خطأ فى المفتاح الاساسى
حاولت استخدام
Me.Refresh
و
me.Requery
لحقل رقم البطاقه بعد التحديث لكن تعطى رسالة خطأ ايضا
وتمنياتى للجميع بالتوفيق ودوام النجاح
Test.rar