نموذج حذف بيانات جداول محددة

[kassem_geo]

مساعدة في كود لحذف سجلات جداول بناء لخيار التحديد في النموذج بحيث عند اختيار مربع بجانب اسم الجدول والضغط على زر حذف يتم عملية الحذف 

وهل بالامكان اضافة خيار "الكل" ؟؟

لعله في طلبي فائدة للمبتدئين مثلي

delete_data_table.zip

تم تعديل أغسطس 24, 2022 بواسطه kassem_geo
تعديل العنوان

[Barna]

1 ساعه مضت, kassem_geo said:

مساعدة في كود لحذف سجلات جداول بناء لخيار التحديد في النموذج بحيث عند اختيار مربع بجانب اسم الجدول والضغط على زر حذف يتم عملية الحذف 

وهل بالامكان اضافة خيار "الكل" ؟؟

لعله في طلبي فائدة للمبتدئين مثلي

جرب حسب فهمي للموضوع ..

 

delete_t.accdb

[kassem_geo]

وهذا الملف ايضا بعد التعديل :

تحديد الكل

الغاء تحديد الكل

الف شكر @Barna على امل ان يكون طلبي طلب الاخرين للاستفادة ...

delete_data_table.zip

[متقاعد]

15 ساعات مضت, kassem_geo said:

وهل بالامكان اضافة خيار "الكل" ؟؟

اضافة لمشاركة استاذنا الكبير محمد البرناوي جزاه الله خير

ممكن ايضا تحديد السجلات والغاء التحديد عن طريق مصدر السجلات

لتحديد الكل
Dim rs As Recordset
Dim a As Integer
Set rs = CurrentDb.OpenRecordset("tab_name")
For a = 1 To rs.RecordCount
rs.Edit
rs!DELETE = -1
rs.Update
rs.MoveNext
Next a


--------
لالغاء التحديد للكل نغيير السطر السادس الى
rs!DELETE = 0

تحياتي

[Barna]

بارك الله فيك استاذي @مبرمج متقاعد منك نستفيد .... وعودا حميدا

[متقاعد]

38 دقائق مضت, Barna said:

بارك الله فيك استاذي @مبرمج متقاعد منك نستفيد .... وعودا حميدا

بل انا من يستفيد اكثر ونتعلم منكم علما وخلقا

تحياتي

[jjafferr]

8 ساعات مضت, مبرمج متقاعد said:

ممكن ايضا تحديد السجلات

 

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

    Dim rst As DAO.Recordset
    Set rst = Me.USER_PRIVILLAGE.Form.RecordsetClone
    rst.MoveFirst
    
    Do Until rst.EOF
        rst.Edit
            rst!DELETE = -1
        rst.Update
        
        rst.MoveNext
    Loop

 

جعفر