kassem_geo قام بنشر أغسطس 24, 2022 قام بنشر أغسطس 24, 2022 (معدل) مساعدة في كود لحذف سجلات جداول بناء لخيار التحديد في النموذج بحيث عند اختيار مربع بجانب اسم الجدول والضغط على زر حذف يتم عملية الحذف وهل بالامكان اضافة خيار "الكل" ؟؟ لعله في طلبي فائدة للمبتدئين مثلي delete_data_table.zipFetching info... تم تعديل أغسطس 24, 2022 بواسطه kassem_geo تعديل العنوان
Barna قام بنشر أغسطس 24, 2022 قام بنشر أغسطس 24, 2022 في 24/8/2022 at 18:52, kassem_geo said: مساعدة في كود لحذف سجلات جداول بناء لخيار التحديد في النموذج بحيث عند اختيار مربع بجانب اسم الجدول والضغط على زر حذف يتم عملية الحذف وهل بالامكان اضافة خيار "الكل" ؟؟ لعله في طلبي فائدة للمبتدئين مثلي Expand جرب حسب فهمي للموضوع .. delete_t.accdbFetching info... 4
kassem_geo قام بنشر أغسطس 24, 2022 الكاتب قام بنشر أغسطس 24, 2022 وهذا الملف ايضا بعد التعديل : تحديد الكل الغاء تحديد الكل الف شكر @Barna على امل ان يكون طلبي طلب الاخرين للاستفادة ... delete_data_table.zipFetching info... 3
متقاعد قام بنشر أغسطس 25, 2022 قام بنشر أغسطس 25, 2022 في 24/8/2022 at 18:52, kassem_geo said: وهل بالامكان اضافة خيار "الكل" ؟؟ Expand اضافة لمشاركة استاذنا الكبير محمد البرناوي جزاه الله خير ممكن ايضا تحديد السجلات والغاء التحديد عن طريق مصدر السجلات لتحديد الكل 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 تحياتي 5
Barna قام بنشر أغسطس 25, 2022 قام بنشر أغسطس 25, 2022 بارك الله فيك استاذي @مبرمج متقاعد منك نستفيد .... وعودا حميدا 3
متقاعد قام بنشر أغسطس 25, 2022 قام بنشر أغسطس 25, 2022 في 25/8/2022 at 12:12, Barna said: بارك الله فيك استاذي @مبرمج متقاعد منك نستفيد .... وعودا حميدا Expand بل انا من يستفيد اكثر ونتعلم منكم علما وخلقا تحياتي 4
jjafferr قام بنشر أغسطس 25, 2022 قام بنشر أغسطس 25, 2022 في 25/8/2022 at 10:36, مبرمج متقاعد said: ممكن ايضا تحديد السجلات Expand نفس طريقة اخواني محمد و خالد ، ولكن بدون الرجوع الى الجدول مصدر بيانات النموذج الفرعي ، وانما كل شيء من النموذج مباشرة : 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 جعفر 4
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.