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

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


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

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

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

1.png.87ff3a075b6da39c6085184cd662d04f.png

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

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

المرفق  ..   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

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

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

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

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

بالتوفيق

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

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

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

بالتوفيق

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

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

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

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

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

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

تحياتي

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

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

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



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

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

Important Information