محتاج طريقة حذف البيانات من النموذج

[ازهر عبد العزيز]

اسلام عليكم لدي نموذج (L) اريد اضيف مربع اختيار لحذف سجل  واذا توجد طريقة افضل رجاءا لاتبخلوا بها علي

3 (2).accdb

[AlwaZeeR]

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

اسهل طريقة 

أنشئ حقل في جدول 

L

الخاص بك

وليكن اسمه 

DelChk

واجعل نوع البيانات فيه رقم

والقيمة الافتراضية 

false

الان اذهب الى النموذج الخاص بالجدول وهو عندك 

L

وانشئ زر أمر وضع في الحدث الخاص به الكود التالي

 CurrentDb.Execute "DELETE * FROM L WHERE [delchk] = true"
Me.Requery

تفضل هذه قاعدتك عليها مطبق عليها ما ذكرت لك

 

Delchkrecord.accdb

[ازهر عبد العزيز]

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

تم تعديل يونيو 23, 2019 بواسطه ازهر عبد العزيز

[مسفر]

جرب

 

تحديد.accdb

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

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

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

اسهل طريقة 

أنشئ حقل في جدول 

L

الخاص بك

وليكن اسمه 

DelChk

واجعل نوع البيانات فيه رقم

والقيمة الافتراضية 

false

الان اذهب الى النموذج الخاص بالجدول وهو عندك 

L

وانشئ زر أمر وضع في الحدث الخاص به الكود التالي

 CurrentDb.Execute "DELETE * FROM L WHERE [delchk] = true"
Me.Requery

تفضل هذه قاعدتك عليها مطبق عليها ما ذكرت لك

 

Delchkrecord.accdb 1.31 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 5 downloads

هل تصلح هذه الطريقة مع النماذج المنقسمة ؟؟

4 دقائق مضت, مسفر said:

جرب

 

تحديد.accdb 856 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 0 downloads

روعاتك يا معلم 

ايضا هل تصلح هذه الطريقة مع النماذج المنقسمة ؟؟

[مسفر]

تصلح بإذن الله فهي متعلقة بالنموذج 

جرب بقاعدة ثانية واستورد إليها الجداول ارتباط 

ثم استورد النموذج وحدد واحذف والغي 

 

جرب وافينا بالنتيجة

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

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

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

اسهل طريقة 

أنشئ حقل في جدول 

L

الخاص بك

وليكن اسمه 

DelChk

واجعل نوع البيانات فيه رقم

والقيمة الافتراضية 

false

الان اذهب الى النموذج الخاص بالجدول وهو عندك 

L

وانشئ زر أمر وضع في الحدث الخاص به الكود التالي

 CurrentDb.Execute "DELETE * FROM L WHERE [delchk] = true"
Me.Requery

تفضل هذه قاعدتك عليها مطبق عليها ما ذكرت لك

 

Delchkrecord.accdb 1.31 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 5 downloads

اخي الكريم @AlwaZeeR
من وين جبت مربع الاختيار ؟؟ checkbox 

 

[مسفر]

من الجدول 

تم تعديل يونيو 23, 2019 بواسطه مسفر

[ازهر عبد العزيز]

@عبد اللطيف سلوم من وضع  تصميم في النموذج تجدة مع الازرار

 

استاذ @مسفر شكرا لك 

[مسفر]

العفو أخ أزهر لكن الأستاذ عبد اللطيف يسأل عن المصدر وليس عن التصميم 

 

[ازهر عبد العزيز]

اسف اختلط علي الامر 

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

25 دقائق مضت, ازهر عبد العزيز said:

@عبد اللطيف سلوم من وضع  تصميم في النموذج تجدة مع الازرار

 

استاذ @مسفر شكرا لك 

انا استعمل اوفيس 2016

ما في زر  ؟؟

27 دقائق مضت, مسفر said:

من الجدول 

صديقي العزيز 

انا اسأل من وين جاب زر الاختيار وهو ليس له اصل بالجدول ؟؟

 

23 دقائق مضت, ازهر عبد العزيز said:

اسف اختلط علي الامر 

لم يختلط عليك الامر 

سؤالي كما فهمته 

لا يوجد زر في اوفيس 2016 ؟؟

[ازهر عبد العزيز]

@عبد اللطيف سلوم

[مسفر]

إذا أنا الذي اختلط علي الأمر 

 

اعتذر عن سوء الفهم 

له أصل بالجدول كما وضحت بالصورة راجع الجدول وخصائص الحقل 

تم تعديل يونيو 23, 2019 بواسطه مسفر

[ازهر عبد العزيز]

استاذ @مسفر انت الاستاذ  انا من يعتذر لاتعابك معي  واظن ان الاخ عبد اللطيف اليوم جان مامركز لان سؤالة بسيط انت اجبت على الصعب

تم تعديل يونيو 23, 2019 بواسطه ازهر عبد العزيز

[مسفر]

ليس بين الجميع أعذار من منا لا يخطئ ويصيب 

ونحن تحت الأمر بما نستطيع 

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

4 دقائق مضت, مسفر said:

إذا أنا الذي اختلط علي الأمر 

 

اعتذر عن سوء الفهم 

له أصل بالجدول كما وضحت بالصورة راجع الجدول وخصائص الحقل 

بالجدول  موجود رقم وليس كما تعونا  ( نعم / لا )

مشان هيك التبس عليه الامر 

وهذا الامر اول مرة اشاهده 

[ازهر عبد العزيز]

استاذ @مسفر هسة اجة دورك الصعب اشرحنا اكواد تحديد الكل واللغاء لان من اريد اطبقها على النموذج الاخر ما يضبط معي تعبتك ادري بس هاي مشكلة الخبراء  في المنتدى متعبيهم احنة (هو دخول الحمام زي خروجة)

تم تعديل يونيو 23, 2019 بواسطه ازهر عبد العزيز

[مسفر]

Dim f As String
Dim rst As DAO.Recordset
    Set rst = Me.RecordsetClone
    rst.MoveLast: rst.MoveFirst
    RC = rst.RecordCount
    f = rst!Delchk
    For i = 1 To RC
     If f = "true" Then
        rst.Edit
        rst!Delchk = False
        rst.Update
     Else
        rst.Edit
        rst!Delchk = True
        rst.Update
     End If
        
        rst.MoveNext
    Next i
    
    rst.Close: Set rst = Nothing

غير فقط 

Delchk= الحقل في الجدول 

هذا مسمى الحقل في الكود واترك الباقي كما هو 

طبقه على القاعدة كما هو ولن يحدث معك خطأ بإذن الله 

هذا في كود التحديد 

أما كود الإلغاء 

أعمل العكس 

true أجعلها false 

 

 

تم تعديل يونيو 23, 2019 بواسطه مسفر

[AlwaZeeR]

يعطيكم العافية جميعا

اسمحوا لي بمداخلة

بنفس الطريقة اخي العزيز تستطيع التحديد والالغاء

لتحديد الكل:

     CurrentDb.Execute "UPDATE L SET [Delchk] = true "

Me.Requery

وإلغاء التحديد:

 CurrentDb.Execute "UPDATE L SET [Delchk] = False "

Me.Requery

وتستطيع وضعها تحت نفس الزر مع بعض التغييررات لاسم الزر

 

29 minutes ago, عبد اللطيف سلوم said:

بالجدول  موجود رقم وليس كما تعونا  ( نعم / لا )

مشان هيك التبس عليه الامر 

وهذا الامر اول مرة اشاهده

تحياتي لشخصك الطيب أستاذ عبد اللطيف

القيمة نعم يتم تخزينها أصلا -1

والقيمة لا 0

 

[ازهر عبد العزيز]

@AlwaZeeR ما شاء الله عليك سؤال اخر ماذا لو  اردت بنفس الكود تحديد  كل المربعات داخل النموذج وليس الجدول كيف يتم كتابة  الكود التالي 

     CurrentDb.Execute "UPDATE L SET [Delchk] = true "

Me.Requery

 

تم تعديل يونيو 23, 2019 بواسطه ازهر عبد العزيز

[kha9009lid]

هل تقصد تحديد وحذف السجلات في النموذج الفرعي فقط للعميل الحالي مع بقاء بقية السجلات للعملاء الاخرين

اذا كان هذا المطلوب جرب المرفق

Database11.accdb

[AlwaZeeR]

2 hours ago, ازهر عبد العزيز said:

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

مصدر النموذج أصلاً من الجدول 

بمعنى ان حددت في النموذج فتلقائي سيتم تحديث الجدول والعكس صحيح

 

[ازهر عبد العزيز]

استاذنا العزيز @AlwaZeeR كلامك مفهوم جدا وقد استعطت تطبيقة على قاعدة بيانتي لكني اريد منك الان اذا سمحت ان تنظر الى انموذج(L) في هذا المثال لقد وضعت مربع اختيار لكني عندما اضغط علية يتم تحديد كافة المربعات وهذا لا اريدة اريد يتم تحديد فقط المربع الذي يتم الضغط علية  واريد ايضا زر تحديد الكل وزر الغاء الكل   😂

3 (2).accdb

تم تعديل يونيو 23, 2019 بواسطه ازهر عبد العزيز

[AlwaZeeR]

سبب تحديد الكل أنك لم تحدد مصدر مربع التحديد وهو 

DelChk

عموما تفضل

 

 

3 (2) - Copy.rar