اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ارجو منكم شرح تغيير السجلات الى ازرار


mhooorr

الردود الموصى بها

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

جزاكم الله خيراً على ماتقدموه

وتفضلوا بقبول فائق الاحترام والتقدير 

اريد منكم شرح طريقة تغيير السجلات الى ازرار لانى مبتدئ فى الاكسس

رابط هذا التعليق
شارك

6 ساعات مضت, عبد الله قدور said:

السلام عليكم

اخي الكريم ممكن يكون الشرح اوضح اكثر مع وضع مرفق لو تكرمت

 

اخى العزيز 

عبد الله قدور

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

التصاريح.rar

رابط هذا التعليق
شارك

وعليكم السلام ورحمة الله وبركاته
لسجل جديد
 DoCmd.GoToRecord , , acNewRec
بعد

DoCmd.GoToRecord , , acNext

قبل

 DoCmd.GoToRecord , , acPrevious

اخر سلج 

DoCmd.GoToRecord , , acLast

اول سجل

 DoCmd.GoToRecord , , acFirst

رابط هذا التعليق
شارك

اخى العزيز 

عبد الله قدور

جزاك الله كل خير  وجعله الله فى ميزان حسناتك ولكن عندى مشكله انى نسيت ادراج سجل للشهر لان كل موظف لديه تصريحين فى الشهر فقط ويوجد مشكله اخيرى انه عند ادخال بيانات موجود للموظف مسبقا وقد اخذ التصريحين الخاصين به فى هذا الشهر فإن البرنامج لا يخصم من رصيده فان اريد ان الموظف حتى وان كان موجود قبل ذلك واخذ تصريحين فاذا اخذ الثالث يخصم من رصيده فقد جربت عليك الخى العزيز وادخلت بيناتك مره اخرى وانت قد اخذت تصريحين ظل رصيد وهو 85.5 ثابت ولم يخصم منك شيئاً وجزاك الله كل الخير على ما تفعله وجعله الله فى ميزان حسناتك وتفضل اخى الكريم بقبول فائق الاحترام

رابط هذا التعليق
شارك

6 ساعات مضت, Shivan Rekany said:

وعليكم السلام ورحمة الله وبركاته
لسجل جديد
 DoCmd.GoToRecord , , acNewRec
بعد

DoCmd.GoToRecord , , acNext

قبل

 DoCmd.GoToRecord , , acPrevious

اخر سلج 

DoCmd.GoToRecord , , acLast

اول سجل

 DoCmd.GoToRecord , , acFirst

ممكن اخى العزيز تشرح ليى هذه الاكواد

رابط هذا التعليق
شارك

2 ساعات مضت, mhooorr said:

ممكن اخى العزيز تشرح ليى هذه الاكواد

:::بعد اذن الاستاذ شيفان ... اعرف انك ضعيف باللغة العربية ..اسمح لي اشرح هذه الاكواد البسيطة (ابجدية):fff:

الكود الاول DoCmd.GoToRecord , , acNewRec  .. في اي سجل انت الان .. سوف يذهب بك الى سجل جديد .

الكود الثاني DoCmd.GoToRecord , , acNext   سينقلك الى السجل التالي .

الكود الثالث DoCmd.GoToRecord , , acPrevious سينقلك الى السجل السابق.

الكود الرابع DoCmd.GoToRecord , , acLast  سينقلك الى اخر سجل في الجدول.

الكود الخامس DoCmd.GoToRecord , , acFirst  سينقلك الى اول سجل في الجدول.

بالتوفيق

رابط هذا التعليق
شارك

اخى العزيز 

محمدنجار

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

رابط هذا التعليق
شارك

السلام عليكم 

بالنسبة لي للتنقل بين السجلات استخدم الوحدة النمطية التالية 

Function frst()
        On Error GoTo err:
        DoCmd.GoToRecord , "", acFirst
        Exit Function
err:
        If err.number = 2105 Then
        MsgBox "áÇ íãßä ÇáÐåÇÈ Åáì ÇáÓÌá ÇáãØáæÈ", vbCritical + vbMsgBoxRight, "ÎØÃ"
        End If
        
End Function
Function nxt()
        On Error GoTo err:
        DoCmd.GoToRecord , "", acNext
        Exit Function
err:
        If err.number = 2105 Then
        MsgBox "áÇ íãßä ÇáÐåÇÈ Åáì ÇáÓÌá ÇáãØáæÈ", vbCritical + vbMsgBoxRight, "ÎØÃ"
        End If

End Function

Function prev()
        On Error GoTo err:
        DoCmd.GoToRecord , "", acPrevious
        Exit Function
err:
        If err.number = 2105 Then
        MsgBox "áÇ íãßä ÇáÐåÇÈ Åáì ÇáÓÌá ÇáãØáæÈ", vbCritical + vbMsgBoxRight, "ÎØÃ"
        End If

End Function

Function lst()
          On Error GoTo err:
      DoCmd.GoToRecord , "", acLast
        Exit Function
err:
        If err.number = 2105 Then
        MsgBox "áÇ íãßä ÇáÐåÇÈ Åáì ÇáÓÌá ÇáãØáæÈ", vbCritical + vbMsgBoxRight, "ÎØÃ"
        End If

End Function

وفي زر الذهاب الى السجل الاول اضع الكود التالي

call frst

وفي زر الذهاب الى السجل الاخير اضع الكود التالي

call  lst

وفي زر الذهاب الى السجل التالي اضع الكود التالي

call nxt

وفي زر الذهاب الى السجل السابق اضع الكود التالي

call prev

تحياتي للجميع

  • Like 1
رابط هذا التعليق
شارك

في 2016-10-02 at 02:31, mhooorr said:

اخى العزيز 

محمدنجار

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

اخي الكريم ..طابت اوقاتك

يرجى توضيح الفكرة ...حتى نتمكن من مساعدتك ...والرجاء أسأل سوال واحد فقط ...وبعدها يمكنك السؤال الثاني وهكذ ...لاننا وبهذه الطريقة كالنملة في كومة صوف ..تحياتي:smile:

  • Like 2
رابط هذا التعليق
شارك

اخى العزيز 

محمدنجار

جزاك الله خيرا والفكره فى انشاء قاعدة البيانات هذه هى ان كل موظف فى المؤسسه له تصريحين خروج فى الشهر واذا اخذ تصريح ثالث يخصم نصف يوم سنوى من رصيده دا لو كان الموظف رصيد اجازاته السنوى اقل من 90 يوم سنوى اما اذا كان رصيده اكبر من 90 يوم سنوى تصريح الخروج يخصم نص يوم سنوى من رصيده وهذه هى الفكره التى اريد من اجلها انشاء قاعدة البيانات ارجو من الله ثم منك ان تساعدنى فى اتمامها وتقبل وافر الاحترام

رابط هذا التعليق
شارك

10 ساعات مضت, mhooorr said:

اخى العزيز 

محمدنجار

جزاك الله خيرا والفكره فى انشاء قاعدة البيانات هذه هى ان كل موظف فى المؤسسه له تصريحين خروج فى الشهر واذا اخذ تصريح ثالث يخصم نصف يوم سنوى من رصيده دا لو كان الموظف رصيد اجازاته السنوى اقل من 90 يوم سنوى اما اذا كان رصيده اكبر من 90 يوم سنوى تصريح الخروج يخصم نص يوم سنوى من رصيده وهذه هى الفكره التى اريد من اجلها انشاء قاعدة البيانات ارجو من الله ثم منك ان تساعدنى فى اتمامها وتقبل وافر الاحترام

::لا تهتم اخي طلبك بسيط ..اقترح ولكي يكون برنامجك قوي البنية ان تعمل جدولين احدهما للموظفين تدرج فية بيانات الموظف الثابتة من اسم ورقم وظيفي(مفتاح اساسي) .....الخ

::وجدول ثاني للتصاريح (مفتاح ثانوي) ..حيث لكل موظف اكثر من تصريح .. وتربط بينها علاقة (رأس باطراف) .عندها يمكننا العمل عليه بيسر ..........................بالتوفيق

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information