ممكن أن أعمل زر ليحذف سجل من جدول مرتبط ؟

لم أعرف من هو الجدول الرئيسى و من هو الجدول المطلوب الحذف منه

لكن حسب ما فهمت

انك تريد الحذف من الجدول alkeame و ليس من الجدول ArkamTakzeen

لذلك ضع هذا الكود فى زر الامر

CurrentDb.Execute ("DELETE alkeame.* FROM alkeame WHERE (((alkeame.N_takzeen)=" & Me.[مربع_تحرير_وسرد8] & "));")

بارك الله فيك أخي الكريم أبو يوسف . دائما معنا

هذا ما أريد بالفعل

سؤال آخر لو تكرمت : مازلت حديث التعامل مع الأوفس 2007 وبكل صراحة روعه بمعنى الكلمة ولكن واجهتني مشكلة وهي تحويل الأرقام من إنجليزي إلى عربي حيث اضطررت إلى تغير الأرقام من لوحة التحكم من السياق إلى وطني ولكن أصبح كل مافي جهازي بأرقام عربية وهذا ماأريده أريد فقط تغيير الأرقام في الآكسس .

الطريقه سهلة في الوورد وكذلك في الإكسل أما في الآكسس فلم أجد خيار تغيير الأرقام . فهل عندكم حل لهذه المشكلة . مشكورين

Abo_Yossof كتب:

CurrentDb.Execute ("DELETE alkeame.* FROM alkeame WHERE (((alkeame.N_takzeen)=" & Me.[مربع_تحرير_وسرد8] & "));")

MonaAli كتب:

Private Sub DelSrfBut_Click()

On Error GoTo Err_DelSrfBut_Click



	DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
	DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_DelSrfBut_Click:
	Exit Sub

Err_DelSrfBut_Click:
	MsgBox Err.Description
	Resume Exit_DelSrfBut_Click

End Sub

هذا هو كود الزر حذف اللي على النموذج , لكن بمجرد النقر عليه يقوم النموذج بالانتقال إلى سجل جديد

واللي أريده هو إن النموذج يعرض السجل السابق للسجل المحذوف

أيش أسوي؟

ضعي هذا الامر بعد كود الحذف في الزر

DoCmd.GoToRecord , , acPrevious

بالتوفيق

malik2010 كتب:

ضعي هذا الامر بعد كود الحذف في الزر

DoCmd.GoToRecord , , acPrevious

بالتوفيق

بسم الله الرحمن الرحيم

عملته أخي الكريم .. وما نفع والله ...