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

اضافة موظف اخر لنفس القرار مع عدم تغيير البيانات الاساسية


midomashakel

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

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

ارجو من السادة الزملاء تعديل الكود

تكرار رقم القرار لسنة ... نعم يقبل التكرار

لانه من الممكن اصدار قرار فردي   لموظف واحد

او قرار جماعي لاكثر من موظف بنفس رقم القرار

طبقا للصورة

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

لانه يقوم بالتعديل على نفس البيانات يقبل الاضافة ولكن الكود يقوم بحفظ البيانات الجديدة على القديمة

 

Capture1.JPG.dd843bd2eb7628154750bc95e3092dd7.JPG

شكرا لتعبكم

 

يوجد مرفق

 

اضافة موظف اخر لنفس القرار.rar

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

شكرا استاذ محمد محمد احمد لطفى

وتم التجربة وبالفعل يعمل في جزئية اضافة اكثر من موظف للقرار

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

حقل رقم الحاسب .

لان المفروض في حالة عدم اضافة موظف لنفس القرار ينتقل الى اضافة قرار جديد كليا وجميع الحقول فارغة

 

شكرا لتعب حضرتك ولو امكن التعديل اكون شاكر

 

والاهم شرح الكود

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

17 دقائق مضت, midomashakel said:

شكرا استاذ محمد محمد احمد لطفى

وتم التجربة وبالفعل يعمل في جزئية اضافة اكثر من موظف للقرار

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

حقل رقم الحاسب .

لان المفروض في حالة عدم اضافة موظف لنفس القرار ينتقل الى اضافة قرار جديد كليا وجميع الحقول فارغة

 

شكرا لتعب حضرتك ولو امكن التعديل اكون شاكر

 

والاهم شرح الكود

كما طلبت 
 

 

اضافة موظف اخر لنفس القرار.rar

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

انا عملت التعديل على مفتاح اضافة موظف اخر لنفس القرار كالاتي

Private Sub Command24_Click()
' ãÝÊÇÍ ÇÖÇÝÉ ãæÙÝ ÇÎÑ áäÝÓ ÇáÞÑÇÑ
DoCmd.RunCommand acCmdSaveRecord
Dim x As Integer
    If MsgBox("Êã ÇÖÇÝÉ æÍÝÙ ÈíÇäÇÊ ÇáãæÙÝ ááÞÑÇÑ ÈäÌÇÍ. åá ÊÑíÏ ÇÖÇÝÉ ãæÙÝ áäÝÓ ÇáÞÑÇÑ¿", vbYesNo, "ÊäÈíå") = vbYes Then
       Dim N, Y, F
       N = Me.KararNom: Y = Me.KararYear:  F = Me.KararFrom
       DoCmd.GoToRecord , , acNext
       Me.KararNom = N: Me.KararYear = Y:   Me.KararFrom = F
       Me.CompId.SetFocus
    Else
       DoCmd.RunCommand acCmdRecordsGoToNext
       Me.KararNom.SetFocus
    End If
End Sub

واشتغل كويس الحمد لله

يبقي جزء اخر لو امكن ازاي امنع تكرار ادخال نفس البيانات معا ( رقم القرار، السنة، رقم الحاسب) هذا هو شرط عدم التكرار

شكرا لتعبك

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

4 دقائق مضت, محمد احمد لطفى said:

جزاكم الله خير الجزاء  تمام كدا

تمام  افتح موضوع جديد

شكرا لذوقك

تم تعديل بواسطه midomashakel
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information