كيف امنع الاضافة الا بزر اضافة في نموذج مبني على استعلام

عزيزتي هدى..

تحياتي..

لعمل ذلك بالكود من خلال الزر نفسه:

Me.AllowAdditions = True

وتكتب هذه الجملة قبل اي شي في الكود الموجود في الزر..طبعا بشرط ان يكون الاستعلام الذي بنيت عليه الجدول قابلا للتعديل والاضافة..

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

Private Sub Command43_Click()
On Error GoTo Err_Command43_Click
Me.AllowAdditions = True
Me.AllowDeletions = False
Me.AllowEdits = False
Me.department.SetFocus
	DoCmd.GoToRecord , , acNewRec

Exit_Command43_Click:
	Exit Sub

Err_Command43_Click:
	MsgBox "تمت اضافة سجل بنجاح..."
	Resume Exit_Command43_Click

End Sub

هذاالزر يتيح اضافة سجل جديد، ويظهر رسالة تمت الاضافة بنجاح عند ضغط زر الحفظ،

ارجو ان يكون بفائدة..

همام

مرحبا بك اخي واعتدر عن تاخر الرد بسبب تغيير ويندوز في الجهاز

المهم يا ريت لو تضع مثال على الكود اللي وضعته مع الشكر

الاخت هدى 2000 .... بعد التحية

اليك ما تبحثين عنه من خلال هذا البرنامج

يوجد نموذجين الاول للاضافة والثاني للتعديل وقد ادخلت 3 اسماء رقم 1 و2 وكذلك 3

في النموذج الاول ادخلي رقم 1 في المربع الاول وشاهدي النتيجة ، يأتي فوراً بأن رقم واحد موجود ... ثم ادخلي رقم 4 وشاهدي النتيجة ، في هذه الحالة سوف لايظهر شيء وينتقل المؤشر الى الحقل التالي لاكمال باقي الحقول.

في النموذج الثاني ادخلي رقم 1 في المربع الاول ... سيتم احضار البيانات المتعلقة برقم 1 وحاولي ادخال رقم 5 في المربع الاول سيخبرك بان هذا الرقم غير موجود.

من خلال هذين النموذجين سوف تستفيدين جداً في البرمجة الحديثة ... والى الامام.

db3_1428_04_14.rar

شكرا لك اخي

ساجرب المثال

مع اعتذاري للأخوة لربما ما كان سؤالي واضح اريد ان عند القيام بفتح النموذج الذي يجلب بيانات

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