تشغيل استعلام حذف من النموذج

[محمد احمد لطفى]

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

كيف يمكن تشغيل استعلام الحذف من خلال زر الحذف من النموذج عن طريق الكود

وجزاكم الله خيرا

testcopy.mdb

[ابو جودي]

1- 

DoCmd.SetWarnings False
DoCmd.OpenQuery "Dell"
DoCmd.SetWarnings True

 

[عبد اللطيف سلوم]

1 دقيقه مضت, محمد احمد لطفى said:

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

كيف يمكن تشغيل استعلام الحذف من خلال زر الحذف من النموذج عن طريق الكود

وجزاكم الله خيرا

testcopy.mdb 412 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 0 downloads

تفضل

testcopy.mdb

[ابو جودي]

2-

كتابة الاستعلام داخل المحرر

Dim Strsql As String
Strsql = "DELETE TableA.* FROM main INNER JOIN TableA ON main.namex = TableA.namex;"
DoCmd.SetWarnings False
DoCmd.RunSQL Strsql
DoCmd.SetWarnings True

 

[محمد احمد لطفى]

شكرا أستاذى @ابا جودى

شكرا أستاذى @عبد اللطيف سلوم

تمت الاجابة

[ابو جودي]

مشاء الله مرزق انت

تكتب سؤال يأتيك بدل الحل ثلاث حلول