semo.pa3x Unbound check box on continuous subform for selecting records - تحديد سجلات في النموذج الفرعي

[SEMO.Pa3x]

السلام عليكم، لو اردنا ان نقوم بحفظ السجلات المحددة في النموذج الفرعي سنلجئ لعمل CheckBox في الجدول

ومن ثم نقوم بعمل استعلام يقوم بفلترة جميع الـ Checkbox التي تكون قيمتها True ومن ثم نقوم بحفظها.

لكن! ماذا لو كانت قاعدة البيانات تعمل بنظام الشبكة ( Multi Users ) اذا قام المستخدم رقم 1 بوضع علامة صح على مثلا مادة ( برتقال )

وقام المستخدم رقم 2 بوضع علامة صح على مثلا مادة ( رمان ) عندما يضغط اي مستخدم على حفظ البيانات فـ ستحفظ البيانات

وتكون النتيجة خاطئة لان البيانات ليست هي المطلوبة انا اخترت ( برتقال ) فأتتني النتيجة ( برتقال + رمان ) وكذا بالنسبة للمستخدم الثاني

والثالث وغيرهم، ممن يعملون على قاعدة البيانات بوقت واحد، صراحة واجهتني هالمشكلة لكن وجدت الحل لها

 

كما انني رأيت موضوع للأخ ابا جودي يتكلم عن هذه المشكلة

 

ارفقت لكم طريقة مختلفة في تحديد السجلات وهي الضغط  على مُحدد السجلات

للأمانة الطريقة ليست كلها من برمجتي

الحقوق لـ arnelgp

انا فقط قم اضافة وتعديل بعض الامور البسيطة

 

تحياتي لكم

RecordSelectorClick.accdb

تم تعديل يناير 8, 2021 بواسطه SEMO.Pa3x

[صالح حمادي]

شكرا جزيلا خبيرنا على هذه المعلومة

هناك طريقة أخرى تستطيع الاستفادة منها و هي عرض البيانات في مربع قائمة و تسمح بالتحديد المتعدد 

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

و بأقل كود

[SEMO.Pa3x]

39 دقائق مضت, صالح حمادي said:

شكرا جزيلا خبيرنا على هذه المعلومة

هناك طريقة أخرى تستطيع الاستفادة منها و هي عرض البيانات في مربع قائمة و تسمح بالتحديد المتعدد 

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

و بأقل كود

 

حياك الله استاذ صالح سعدت بتواجدك بموضوعي

ياحبذا لو ترفق لنا مثال للطريقة لكي يكون الحل هناك تعدد بالطرق

وبالتالي فائدة للجميع

[صالح حمادي]

23 ساعات مضت, SEMO.Pa3x said:

ياحبذا لو ترفق لنا مثال للطريقة لكي يكون الحل هناك تعدد بالطرق

إن شاء الله عندما أكون أمامي جهاز الكمبيوتر أخي

[صالح حمادي]

السلام عليكم هذا هو المثال

و قد استخدمت الكود التالي لعرض الصفوف المحددة على شكل رسائل

مع تعديل خاصية متعدد التحديد لمربع القائمة إلى عادي

On Error Resume Next
Dim i
If Me.list_facture.ItemsSelected.Count = 0 Then
   MsgBox "لم يتم تحديد أي عنصر"
   Exit Sub
End If

For Each i In Me.list_facture.ItemsSelected
    MsgBox Me.list_facture.ItemData(i)
Next i

تحديد متعدد.mdb

[SEMO.Pa3x]

16 ساعات مضت, صالح حمادي said:

السلام عليكم هذا هو المثال

و قد استخدمت الكود التالي لعرض الصفوف المحددة على شكل رسائل

مع تعديل خاصية متعدد التحديد لمربع القائمة إلى عادي

On Error Resume Next
Dim i
If Me.list_facture.ItemsSelected.Count = 0 Then
   MsgBox "لم يتم تحديد أي عنصر"
   Exit Sub
End If

For Each i In Me.list_facture.ItemsSelected
    MsgBox Me.list_facture.ItemData(i)
Next i

تحديد متعدد.mdb 488 kB · 4 downloads

 

بارك الله بك استاذ صالح، لقد اغنيت رصيدي المعرفي.