منع إضافة سجل جديد

[dr_bioman]

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

من المعروف فى النمازج الفرعيه المستمره

أنه عند إضافة اى بيانات إلى السجل الحالى

يقوم الاكسيس باضافة سجل جديد تلقائى

كيف يمكن منع هذا الإجراء الا بعد الضغط على مفتاح ENTER من لوحة المفاتيح

لان بمجرد الكتابة بالكىيبورد بيتم إضافة سجل جديد 

 

[ابوخليل]

عليكم السلام

في خصائص النموذج / لسان التبويب : بيانات

غير امكانية الاضافة الى = لا

وخلف زر جديد وفي الحدث قبل فتح سجل اسمح بالاضافة ثم / سجل جديد / ثم / اغلق الاضافة

فيما يشبه هذا

  Me.AllowAdditions = True
  DoCmd.GoToRecord , , acNewRec
   Me.AllowAdditions = False

 

[dr_bioman]

الف شكر اخى الغالى

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

[Foksh]

تعقيباً مع أستاذي ومعلمي @ابوخليل ، لفت انتباهي كلمة :-

14 ساعات مضت, dr_bioman said:

النمازج الفرعيه

 

وبناءً عليه فإذا كان الزر المخصص لإنشاء سجل جديد في النموذج الرئيسي ، فيكون مقترح معلمي الفاضل كالآتي :-

Me.Sub_Form.Form.AllowAdditions = True
DoCmd.GoToRecord , , acNewRec
Me.Sub_Form.Form.AllowAdditions = False

 

[dr_bioman]

اخى الفاضل FOKSH

لا يوجد اصلا زر أمر

الحكايه كلها انى بمجرد ما اكتب فى السجل الحالى بيتم انشاء سجل جديد تحته مباشرة

أنا مش عاوز كده

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

ولو كتبت وحذفت اللى كتبته مايضيفش ولا يظهر السجل الجديد

[dr_bioman]

تم الحل الحمد لله 

فى حدث بعد التحديث لمربع النص

الف شكر اخوانى

ابوخليل

Foksh

[Foksh]

الحمد لله انك وجدت الحل ، شاركنا به كي يستفيد منه من يمر بهذا الموضوع 

[dr_bioman]

وضعت الحدث بعد التحديث لمربع النص وليكن اسمه pay

If isnull(me.pay) then

Me.allowadditions=false

Else

Me.allowAdditios= true

Docmd.gotorecord,,,acnewrec

End if

 

تم تعديل منذ 12 ساعات بواسطه dr_bioman