مطلوب اضافة اسم الشهر والسنة لجميع الموظفين قبل ترحيلهم لسجل المرتبات

[ra7yl2006]

السلام عليكم

مطلوب اضافة اسم الشهر والسنة لجميع الموظفين لحساب مرتباتهم وطباعة تقرير  قبل ترحيلهم لسجل المرتبات وتفريغ النموذج لتجهيزه للشهر الجديد

مرفق قاعدة البيانات

ach.rar

[ra7yl2006]

؟؟؟

[Eng.Qassim]

وعليكم السلام...جرب المرفق

 

ach.rar

[ra7yl2006]

23 دقائق مضت, Eng.Qassim said:

وعليكم السلام...جرب المرفق

المرفق لا يعمل

تقريبا فيه خطأ في الضغط

ارجو اعادة ارساله وشكرا لمجهودك

[Eng.Qassim]

تفضل ..لا اعرف ما السبب

 

ach.rar

[Eng.Qassim]

اذا لم يفتح عندك البرنامج

اضف الكود التالي لاضافة الشهر والسنة ..

Dim rs As DAO.Recordset
Dim db As DAO.Database
Dim strNew As String
Private Sub Combo130_Click()
   Set db = CurrentDb
   Set rs = db.OpenRecordset("جدول المرتبات")

   If rs.RecordCount <> 0 Then
       rs.MoveFirst
       While Not rs.EOF
        strNew = Me.Combo130.Value
        Me.Dirty = False
        rs.Edit
        rs.Fields("الشهر") = strNew
        rs.Update
        rs.MoveNext
       Wend
   End If
   rs.Close
  
Me.Requery
End Sub
Private Sub السنة_Click()
Set db = CurrentDb
   Set rs = db.OpenRecordset("جدول المرتبات")
   If rs.RecordCount <> 0 Then
       rs.MoveFirst
       While Not rs.EOF
        strNew = Me.السنة.Value
        Me.Dirty = False
        rs.Edit
        rs.Fields("السنة") = strNew
        rs.Update
        rs.MoveNext
       Wend
   End If
   rs.Close
Me.Requery
End Sub

 

[ra7yl2006]

 اخي الكريم عاجز عن شكرك على مجهودك الرائع

لان حل هذه المشكلة اتعبني في البحث عن حلول لها

ولكن استفسار اخير لو سمحتلي

لماذا يظهر الشهر برقم المفتاح الاساسي بينما السنة تظهر باسمها 

 

[Eng.Qassim]

6 دقائق مضت, ra7yl2006 said:

ماذا يظهر الشهر برقم المفتاح الاساسي

كنت اتصور انك تريده هكذا ..

على كل حال استبدل سطر الكومبو للشهر بالتالي

strNew = Me.Combo130.Column(1)

 

[ra7yl2006]

ما شاء الله عليك

ربنا يبارك فيك وفي علمك

تم التطبيق و الوصول للنتيجة المطلوبة

شكرا جزيلا مع تحياتي

[Eng.Qassim]

انا بالخدمة ..بالتوفيق يارب

[ra7yl2006]

السلام عليكم

تم تجربة الكود السابق لاضافة مصروفات الطلاب 

وحاولت اعدل في الكود لاضافة مصروفات كل مرحلة على حده وللاسف لم استطع التوصل لحل

تم ارفاق الملف للمساعدة ان امكن

 

school.rar

[ra7yl2006]

الرجاء محاوله ايجاد حل

4 ساعات مضت, ra7yl2006 said:

السلام عليكم

تم تجربة الكود السابق لاضافة مصروفات الطلاب 

وحاولت اعدل في الكود لاضافة مصروفات كل مرحلة على حده وللاسف لم استطع التوصل لحل

تم ارفاق الملف للمساعدة ان امكن

 

school.rar 240.82 kB · 5 downloads

 

[Eng.Qassim]

وعليكم السلام

اخي سؤالك هذا مختلف عن السابق ..

كيف تريد ادخال مصروفات الى جدول ليس فيه سجلات (اقصد بيانات الطلاب )

ولماذا كل هذا العناء؟ لماذا لاتعمل نموذج لادخال البيانات الى الجدول مباشرة

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

تم تعديل يونيو 8, 2022 بواسطه Eng.Qassim

[ra7yl2006]

14 دقائق مضت, Eng.Qassim said:

وعليكم السلام

اخي سؤالك هذا مختلف عن السابق ..

كيف تريد ادخال مصروفات الى جدول ليس فيه سجلات (اقصد بيانات الطلاب )

ولماذا كل هذا العناء؟ لماذا لاتعمل نموذج لادخال البيانات الى الجدول مباشرة

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

تمام اخي العزيز ولكن اعتقد ان الموضوع متشابه وسوف اقوم بعرضه بالتفصيل في موضوع منفصل

تحياتي