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

[alriashi]

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

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

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

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

مثال

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

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

 

 

اجازات.rarFetching info...

[Eng.Qassim]

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

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

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

اجازات.rarFetching info...

[alriashi]

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

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

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

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

وشكرا

[Eng.Qassim]

  في 27‏/6‏/2022 at 19:20, alriashi said:

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

Expand  

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

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

  في 27‏/6‏/2022 at 19:20, alriashi said:

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

Expand  

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

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

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

[alriashi]

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

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

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

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

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

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

وشكرا

[متقاعد]

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

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

Expand  

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

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

[متقاعد]

الحمد لله اخي

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

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

 

اجازات.accdbFetching info...

[alriashi]

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

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

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

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

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

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

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

 

[متقاعد]

  في 28‏/6‏/2022 at 15:58, alriashi said:

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

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

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

Expand  

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

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

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

 

اجازات2.accdbFetching info...

[alriashi]

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

 

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

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

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

 

[متقاعد]

  في 29‏/6‏/2022 at 17:35, alriashi said:

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

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

Expand  

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

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

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