مساعدة فى انشاء برنامج شئون موظفين

[عمر ضاحى]

السلام عليكم اساتذتى الافاضل

بعد اذن حضرتكم 

انا كنت اتابع شرح احد المعلمين الأستاذ المهندس  احمد عبد المنعم  على قناته على اليوتيوب

فى عمل برنامج شئون موظفين وباستخدام طريقة ان النماذج تكون غير منضمه حتى لا تؤثر على الجداول  والبيانات التى بها عند التعديل و خلافه من الامور الاخرى

وهو شرحه وافكاره ما شاء الله ربنا يبارك فيه وفيكم جميعا

لكن يوجد خطأ عندي حيث حصل معايا لغبطه كده فى النماذج وكل شيء تقريبا اصبح لا يعمل كما ينبغي 

تقريبا انا لغبطت وخربطت الدنيا في الاكواد 

المطلوب:

فهل لو تكرم على احد من الاستذه المحترمين هنا بمساعدتى فى تصحيح الأخطاء التي قمت بها      هذا بعد اذن حضرتكم 

ايضا عاوز لما افتح القائمة الخاصه باسم الموظف او اكتب رقمه يجلبلى كل البيانات ولما اخلص تعديل واضغط على حفظ يحفظ التعديلات

ولو فى اضافات تحسن من الشكل لتسهيل الوصول اكون لكم شاكر   لانى نفسي فعلا اتعلم هذا البرنامج العظيم

 

ولكم جزيل الشكر

 

برنامج الرواتب وشئون الموظفين.rar

[عمر ضاحى]

اذا كنت اخطأت الطلب او هناك شئ خاطئ بعد اذنكم توضيح 

ام انى استعجلت فى طلبي ؟

[عمر ضاحى]

UP

[د.كاف يار]

21 ساعات مضت, عمر ضاحى said:

السلام عليكم اساتذتى الافاضل

بعد اذن حضرتكم 

انا كنت اتابع شرح احد المعلمين الأستاذ المهندس  احمد عبد المنعم  على قناته على اليوتيوب

فى عمل برنامج شئون موظفين وباستخدام طريقة ان النماذج تكون غير منضمه حتى لا تؤثر على الجداول  والبيانات التى بها عند التعديل و خلافه من الامور الاخرى

وهو شرحه وافكاره ما شاء الله ربنا يبارك فيه وفيكم جميعا

لكن يوجد خطأ عندي حيث حصل معايا لغبطه كده فى النماذج وكل شيء تقريبا اصبح لا يعمل كما ينبغي 

تقريبا انا لغبطت وخربطت الدنيا في الاكواد 

المطلوب:

فهل لو تكرم على احد من الاستذه المحترمين هنا بمساعدتى فى تصحيح الأخطاء التي قمت بها      هذا بعد اذن حضرتكم 

ايضا عاوز لما افتح القائمة الخاصه باسم الموظف او اكتب رقمه يجلبلى كل البيانات ولما اخلص تعديل واضغط على حفظ يحفظ التعديلات

ولو فى اضافات تحسن من الشكل لتسهيل الوصول اكون لكم شاكر   لانى نفسي فعلا اتعلم هذا البرنامج العظيم

 

ولكم جزيل الشكر

 

برنامج الرواتب وشئون الموظفين.rar 201.58 kB · 8 downloads

طلبك عام و لم تقم بتحدد المشكلة 

 

[عمر ضاحى]

6 ساعات مضت, د.كاف يار said:

طلبك عام و لم تقم بتحدد المشكلة 

 

انا مشكلتى فى الفورم ال عامله مش ظابطين 

كل فورم فيها اكود مش راضيه تطلعلى بالنتيجه ال انا عاوزها

يعنى مثلا فى فورم المكافات او الخصومات الاثنين زي بعض 

(frmaddJOB + frmWorker + frmMokafah) 

لكن الفرق فى جدول ال بتعبى فيه البيانات او تستخرج منه البيانات 

الكود مش شغال معايا زي ما انا عاوز 

ومش فاهم الغلط فين 

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

مأثرش على الجداول لو كتبت فى بعض الخلايا وتوقفت 

 

الخلاصه 

 

اعاوز لما اكتب رقم الموظف او ابحث عن اسمه فى الكمبو بوكس يظهرلى 

والمفاتيح تعمل ايضا زي الى الامام او الى الخلف

تم تعديل يوليو 11, 2021 بواسطه عمر ضاحى

[عمر ضاحى]

up

[د.كاف يار]

يجب ان تتعلم بنفسك

هذه اسهل طريقة لكي تجلب البيانات من الجدول الى الحقول داخل النموذج

ضع هذا الكود مثلا بعد تحديث حقل رقم الموظف 

Dim db As DAO.Database
Dim rs As DAO.Recordset
    ]Dim MyTabol As String
		MyTabol="ضع هنا اسم الجدول"  
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM " & MyTabol )
    
    If Not rs.BOF And Not rs.EOF Then
        rs.MoveFirst                
        While (Not rs.EOF)
		if rs.Fields("اسم الحقل في الجدل الذي يحمل رقم الموظف") = [اسم الحقل في النموذج الذي يحمل رقم الموظف] then  ' هنا سيتم وضع شروط لتعبئة الحقول فقد اخترنا مثلا رقم الموظف
         [اسم الحقل1 في النموذج] = rs.Fields("اسم الحقل في الجدل1")
         [اسم الحقل2 في النموذج] = rs.Fields("اسم الحقل في الجدل2")
         [اسم الحقل3 في النموذج] = rs.Fields("اسم الحقل في الجدل3")
         [اسم الحقل4 في النموذج] = rs.Fields("اسم الحقل في الجدل4")
		end if
            rs.MoveNext
        Wend
    End If
    rs.Close
    Set rs = Nothing

 

[عمر ضاحى]

13 ساعات مضت, د.كاف يار said:

يجب ان تتعلم بنفسك

هذه اسهل طريقة لكي تجلب البيانات من الجدول الى الحقول داخل النموذج

ضع هذا الكود مثلا بعد تحديث حقل رقم الموظف 

Dim db As DAO.Database
Dim rs As DAO.Recordset
    ]Dim MyTabol As String
		MyTabol="ضع هنا اسم الجدول"  
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM " & MyTabol )
    
    If Not rs.BOF And Not rs.EOF Then
        rs.MoveFirst                
        While (Not rs.EOF)
		if rs.Fields("اسم الحقل في الجدل الذي يحمل رقم الموظف") = [اسم الحقل في النموذج الذي يحمل رقم الموظف] then  ' هنا سيتم وضع شروط لتعبئة الحقول فقد اخترنا مثلا رقم الموظف
         [اسم الحقل1 في النموذج] = rs.Fields("اسم الحقل في الجدل1")
         [اسم الحقل2 في النموذج] = rs.Fields("اسم الحقل في الجدل2")
         [اسم الحقل3 في النموذج] = rs.Fields("اسم الحقل في الجدل3")
         [اسم الحقل4 في النموذج] = rs.Fields("اسم الحقل في الجدل4")
		end if
            rs.MoveNext
        Wend
    End If
    rs.Close
    Set rs = Nothing

 

اولا بشكر حضرتك للرد على طلبى

ثانيا انا هنا لانى عاوز افهم كيف ده حصل لان مش عاوز اعمل نسخ ولصق للكود وخلاص

ثالثا طلب اخر 

انا عاوز احدث الكود ببعض الاضافات 

زي انا عاوز اخلى رسالة تنبيه ان هناك حقول فارغه قبل اتمام الحفظ 

هل اضع قبل هذا السطر 

 If Not rs.BOF And Not rs.EOF Then

دالة اف 

 If [txtenjob] <> "" Or [txtarjob] <> "" Then

 

وقبل  السطر ده 

 

 rs.MoveNext

اضع الرساله بتعتى ؟

[د.كاف يار]

7 ساعات مضت, عمر ضاحى said:

اولا بشكر حضرتك للرد على طلبى

ثانيا انا هنا لانى عاوز افهم كيف ده حصل لان مش عاوز اعمل نسخ ولصق للكود وخلاص

ثالثا طلب اخر 

انا عاوز احدث الكود ببعض الاضافات 

زي انا عاوز اخلى رسالة تنبيه ان هناك حقول فارغه قبل اتمام الحفظ 

هل اضع قبل هذا السطر 

 If Not rs.BOF And Not rs.EOF Then

دالة اف 

 If [txtenjob] <> "" Or [txtarjob] <> "" Then

 

وقبل  السطر ده 

 

 rs.MoveNext

اضع الرساله بتعتى ؟

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

اولا هذا الكود فقط لإستدعاء البيانات من الجدول كما شرحت لك 

 

بالنسبة للإضافة يلزمك تضيف  AddNew 

 

بالنسبة للشرط مثله مثل اي شرط ثاني

 

الأفضل انك تفتح موضوع لكل طلب عشان الجميع يقدروا يساعدوك 

 

شكرا لك

[عمر ضاحى]

5 ساعات مضت, د.كاف يار said:

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

اولا هذا الكود فقط لإستدعاء البيانات من الجدول كما شرحت لك 

 

بالنسبة للإضافة يلزمك تضيف  AddNew 

 

بالنسبة للشرط مثله مثل اي شرط ثاني

 

الأفضل انك تفتح موضوع لكل طلب عشان الجميع يقدروا يساعدوك 

 

شكرا لك

اولا باعتذر لحضرتك اذا كنت ارهقتك 

ثانيا سوف اقوم بانشاء موضوع جديد مع تحديد الطلبات فى فورم واحد

وبعتذر للجميع عن عدم توضيح طلباتى بشكل اوضح لضعف تعبيري لوصف طلبي

[hafez81]

ممتاز