اضافة رصيد الموظف يدوي لبرنامج مكافئات الموظفين

[alriashi]

السلام عليكم ورحمة الله

كيف احوالكم اخوتي الاعزاء

بارك الله فيكم لدي في المثال التالي مربع نص في النموذج الرئيسي

اريد عندما ادخل فيه عدد ايام الاجازه الممنوحه للموظف تضاف الى حقل الرصيد في النموذج الفرعي مع الجمع

مثال

كان حقل الرصيد 50  واضفة في مربع النص 10  يصبح ناتح حقل الرصيد 60 وهكذا

جزاكم الله كل خير

 

 

اجازات.rar

[Eng.Qassim]

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

اليك التعديل ..رغم اني لا افضل هذه الطريقة وانما عمل جدول برصيد الموظفين

لانك حينما تضيف رصيد جديد سيعمل سجل جديد داخل النموذج

اجازات.rar

[alriashi]

الله يبارك فيك اخي الكريم

ما اريده يضيف سطر جديد كل مره

وكذلك لاحظ ما يسمح لي اختار الموظف قبل اضافة الرصيد

اذا فيه طريقه افضل من هذه الله يكرمك تفضل علينا بها

وشكرا

[Eng.Qassim]

30 دقائق مضت, alriashi said:

وكذلك لاحظ ما يسمح لي اختار الموظف قبل اضافة الرصيد

هاي ما فهمتها ؟

بالطبع يجب ان تختار اسم الموظف حتى تظيف ليه الرصيد

31 دقائق مضت, alriashi said:

ذا فيه طريقه افضل من هذه الله يكرمك تفضل علينا بها

بالطبع .. بس انا اريد ان تشرح لنا ماتريد بالضبط ؟

في بعض البلدان ...الموظف لديه رصيد اجازات سنوي = 36 يوم ...وهذا الرصيد يحسب من تاريخ تعيين الموظف لهذا التاريخ .. اي يتم حساب مجموعه

وحينما يأخذ الموظف اجازة ... يتم استقطاع ايام الاجازة من الرصيد المتراكم لديه ليكون الناتج هو المتبقي من رصيد اجازاته

[alriashi]

شكرا والف شكر لتعاونك معي

هذا برنامج مكافئات او تشجيع

ما له علاقه بالاجازات السنويه والمستحقه.

المدير اذا شاف موظف انتج او احبوه زملائة او لاي سبب اخر. يعطيه اجازه حسب تقديره مثلا شهر يعطيه خمسة ايام وشهر اخر يعطيه يومين وشهر اخر يعطيه اسبوع وتتجمع له الى نهاية العام ويحق له ان يٲخذها مفرقه او دفعه واحده او يستبدلها بفلوس.

يعني الموضوع خاص بين المدير والموظفين ماله دخل بمكتب شؤون الموظفين.

ارجو ان تكون وضحت الصوره ومساعدتي

وشكرا

[متقاعد]

في 27‏/6‏/2022 at 12:40, alriashi said:

كان حقل الرصيد 50  واضفة في مربع النص 10  يصبح ناتح حقل الرصيد 60 وهكذا

في زر الامر نفذ ضع الامر التالي

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM tmb2")
rs.FindFirst "[links]=" & Me.مربع_تحرير_وسرد17.Column(0)
If Not rs.NoMatch Then
rs.Edit
rs!rsid = rs!rsid + Val([نص50])
rs.Update
End If
rs.Close
Set rs = Nothing
Me.حذف_فرعي.Requery

مع ذلك سوف تواجهك رسالة نصها "مستخدم اخر قام بتحرير البيانات الخ"

هذه الرسالة ليس لها بالكود ولكن لكونك عند اعداد النموذج الرئيسي جعلت مصدر بياناته استعلام وقمت بربط الجدول الرئيسي والفرعي

[alriashi]

الله يجزاك كل خير

بارك الله فيك وفي اسرتك ورزقكم الجنة .. هذا هو المطلوب .

اريد عند وضع رقم في مربع النص وعند الظغط على نفذ ينفذ مرة واحد فقط الا اذا حذفت الرقم واضفته مره ثانيه ينفذه

( لاحظ لو ضغطت (نفذ)  عدة ضغطات ) 

عشان ما اضغط بالغلط عدة ضغطات لموظف واحد 

باقي خلصني من الرساله اللي تظهر بعد كل اضافه..  اذا كان بالامكان.

 

وتقبل خالص تحياتي

 

تم تعديل يونيو 28, 2022 بواسطه alriashi

[متقاعد]

الحمد لله اخي

ذكرت لك في ردي السابق ان السبب من طريقتك في مصدر بيانات الفورم الرئيسي وشرح في الصور بحذف ما اشرت اليه بالاحمر

على كل جال جرب المرفق

 

اجازات.accdb

[alriashi]

رزقك الله من اوسع ابوابه ورحم الله والديك

اخر طلب بأذن الله

الضغط على نفذ اريده ينفذ مره واحده --- الا اذا غيرت الرقم او الموظف

يعني لو ادخلت رقم 2 وضغطت نفذ ينفذه مره واحد ولو ضغطت مرة ثانيه يرفض

لكن لو غيرت الرقم او غيرت الموظف ينفذ 

بمعنيى لكل موظف تنفيذ واجد الا اذا خرجت منه ورجعت اليه ينفذ مره ثانية

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

 

[متقاعد]

منذ ساعه, alriashi said:

اريد عند وضع رقم في مربع النص وعند الظغط على نفذ ينفذ مرة واحد فقط الا اذا حذفت الرقم واضفته مره ثانيه ينفذه

( لاحظ لو ضغطت (نفذ)  عدة ضغطات ) 

عشان ما اضغط بالغلط عدة ضغطات لموظف واحد 

ما انتبهت للجزئية

بدلا من تعقيد الامر ونضع شروط

يتم تفريغ الحقل مباشرة بعد التنفيذ

 

اجازات2.accdb

[alriashi]

سلمت ايدك استاذي الكريم

 

هو الذي كنت اريده بالضبط

جعله في ميزان حسناتك

رزقك الله من حيث لا تحتسب

 

[متقاعد]

44 دقائق مضت, alriashi said:

جعله في ميزان حسناتك

رزقك الله من حيث لا تحتسب

امين اخي ولك بالمثل

قَالَ رَسُولُ اللَّهِ صَلَّى اللَّهُ عَلَيْهِ وَسَلَّمَ : ( مَنْ صُنِعَ إِلَيْهِ مَعْرُوفٌ فَقَالَ لِفَاعِلِهِ : جَزَاكَ اللَّهُ خَيْرًا . فَقَدْ أَبْلَغَ فِي الثَّنَاءِ )

وانت ياخي قد احسنت وكافأت وزدت فلك كل الشكر والثناء على دعاءك ونبل مشاعرك