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

[midomashakel]

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

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

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

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

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

طبقا للصورة

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

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

 

شكرا لتعبكم

 

يوجد مرفق

 

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

[محمد احمد لطفى]

جرب ووافينى بالنتيجة

 

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

[midomashakel]

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

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

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

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

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

 

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

 

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

[محمد احمد لطفى]

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

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

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

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

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

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

 

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

 

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

كما طلبت 
 

 

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

[midomashakel]

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

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

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

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

شكرا لتعبك

[محمد احمد لطفى]

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

[midomashakel]

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

كما طلبت 
 

 

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

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

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

شكرا لذوقك

تم تعديل فبراير 26, 2019 بواسطه midomashakel