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

[ra7yl2006]

السلام عليكم

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

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

ach.rarFetching info...

[ra7yl2006]

؟؟؟

[Eng.Qassim]

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

 

ach.rarFetching info...

[ra7yl2006]

  في 4‏/6‏/2022 at 18:04, Eng.Qassim said:

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

Expand  

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

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

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

[Eng.Qassim]

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

 

ach.rarFetching info...

[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]

  في 4‏/6‏/2022 at 19:15, ra7yl2006 said:

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

Expand  

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

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

strNew = Me.Combo130.Column(1)

 

[ra7yl2006]

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

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

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

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

[Eng.Qassim]

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

[ra7yl2006]

السلام عليكم

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

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

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

 

school.rarFetching info...

[ra7yl2006]

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

  في 8‏/6‏/2022 at 10:42, ra7yl2006 said:

السلام عليكم

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

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

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

 

school.rar 240.82 kB · 5 downloads

Expand  

 

[Eng.Qassim]

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

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

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

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

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

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

[ra7yl2006]

  في 8‏/6‏/2022 at 15:23, Eng.Qassim said:

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

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

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

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

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

Expand  

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

تحياتي