ظهور رسالة (لايمكن التحديث) عند اضافة سجل جديدة

[محمد سلامة]

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

عند اضافة بيانات الى النموذج الفرعى تظهر هذه الرسالة

فهل يمكن تفادى ظهور هذه الرسالة

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

المرفق  ..   Erorr1.rar

[محمد سلامة]

من فضلكم يا جماعة محدش عنده حل

تحديث

[رمهان]

دوختنا شوية

شقلبة يسيطة في سطرين الاضافة لتصبح

Private Sub comm_add_Click()
'If Me.taxt_date1 > Me.txtHijriDate Then
'MsgBox " áã íÓÊßãá ÈÚÏ ãÏÉ ÇáÊÑÞíÉ", vbCritical, "SOFT SAMPLE"
'Else
DoCmd.GoToRecord , , acNewRec
taxt_now = 2

'End If
End Sub

انشاء الله تنحل وتحياتي

[محمد سلامة]

29 دقائق مضت, رمهان said:

دوختنا شوية

شقلبة يسيطة في سطرين الاضافة لتصبح

Private Sub comm_add_Click()
'If Me.taxt_date1 > Me.txtHijriDate Then
'MsgBox " áã íÓÊßãá ÈÚÏ ãÏÉ ÇáÊÑÞíÉ", vbCritical, "SOFT SAMPLE"
'Else
DoCmd.GoToRecord , , acNewRec
taxt_now = 2

'End If
End Sub

انشاء الله تنحل وتحياتي

تحياتي استاذ رمهان

هجرب بكرة ان شاء الله واوفيك بالنتيجة

تحياتي

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

[محمد سلامة]

تمام استاذ رمهان.. شكرا جزيلا

[محمد سلامة]

18 ساعات مضت, محمد سلامة said:

تحياتي استاذ رمهان

هجرب بكرة ان شاء الله واوفيك بالنتيجة

تحياتي

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

 نجحت الطريق

لكن انا اريد ان اسند قيمة الى الحقل قبل الانتقال الى سجل جديد

Private Sub comm_add_Click()
DoCmd.GoToRecord , , acNewRec
taxt_now = 2
End Sub

وبهذه الطريقة لم استطيع ان اجعل قيمة الحقل taxt_now = 2 وذلك قبل الانتقال الى سجل جديد

فهل من حل لاخفاء هذه الرسالة 

[رمهان]

ماذا تعني هذه القيمة؟

لماذا اسناد القيمة قبل الانتقال ؟

تحياتي

[محمد سلامة]

5 ساعات مضت, رمهان said:

ماذا تعني هذه القيمة؟

لماذا اسناد القيمة قبل الانتقال ؟

تحياتي

اسند القيمة لان السجل الحالي يمثل الرتبة الحالية للموظف وقبل الانتقال الي سجل جديد يجب ان تكون قيمة السجل الحالي

2 (لا) وتعني الرتبة السابقة.. والسجل الجديدة يصبح هو الرتبة الحالية والقيمة 1 (نعم)

 

[رمهان]

جرب

Private Sub comm_add_Click()
'If Me.taxt_date1 > Me.txtHijriDate Then
'MsgBox " áã íÓÊßãá ÈÚÏ ãÏÉ ÇáÊÑÞíÉ", vbCritical, "SOFT SAMPLE"
'Else
taxt_now = 2
''DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord , , acNewRec
id_emp = Me.Parent!id_e
'End If
End Sub

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

بالتوفيق

[محمد سلامة]

5 ساعات مضت, رمهان said:

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

بالتوفيق

طب استاذ رمهان من وجهة نظرك اترك للمستخدم هو يقرر ما اذا كانت الرتبة حالية او سابقة قبل الانتقال الي السجل الجديد؟

او اي طريقة اخري تفضلها حضرتك

هذا وسوف اجرب الكود واوافيك بالنتيجة

تم تعديل مايو 19, 2017 بواسطه محمد سلامة

[رمهان]

المشكلة : لو ان المستخدم جالس يتصفح السجلات ثم وقف عند السجل الثاني وبعد كذا ضغط اضافة فهنا التعديل اصبح في السجل الثاني اما السجل الاخير فضل كما هو

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

تحياتي

[رمهان]

@محمد سلامة