المساعدة في تعيين عدد محدد من السجلات التي ستحدث قيمتها

[MOMEN AHMED]

المساعدة في تعيين عدد محدد من السجلات التي ستحدث قيمتها

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

في المثال المرفق يوجد نموذج به عدد 2 من الحقول

الحقل الاول ويوضع به رقم البوليصه التي اريد ان اقوم بتحديث قيمة في جدول 1

وقد قمت بعمل استعلام تحديث ووضعت مصدر التحديث القيمة التي سوف توضع في النموذج

الحقل الثاني وهو اريد ان اضع به عدد الحقول التي سوف يقوم الاستعلام بتحديثه

حيث ان الجدول سوف يكون به مئات من السجلات واريد ان اضع مثلا رقم 10 فيقوم بتحديث اول 10 سجلات فقط بالترتيب

بعد الانتهاء عندما اعطيه رقم  في الحقل الثاني 100 يقوم بالوصول الى الحقول الفارغة ويقوم بتحديث 100 سجل وهكذا

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

 

ارجوا المساعدة وجزاكم الله خيرا

New Microsoft Access Database.mdb New Microsoft Access Database.mdb

[kha9009lid]

منذ ساعه, MOMEN AHMED said:

ولكن معيار عدد السجلات لم اجده

من اسهل الطرق استخدام من الى

Between [Forms]![Form1]![Tex_s] And [Forms]![Form1]![Tex_e]

عن طريق مربعي نص من ونضع بداية الرقم وحقل الى اخر سجل ليتم تحديثة

 

New Microsoft Access Database.mdb

[MOMEN AHMED]

هي فكره حلوه بس هعرف ازاي السجلات اللي تحتوي على

null

[kanory]

2 ساعات مضت, MOMEN AHMED said:

هي فكره حلوه بس هعرف ازاي السجلات اللي تحتوي على

null

مشاركة مع استاذي الغالي @kha9009lid

استخدم  هذا الكود

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim str As String
str = "SELECT Table1.ID, Table1.barcode, Table1.police, Table1.FindBarcod, Table1.countBarcod FROM Table1 WHERE (((Table1.police) Is Null));"
Set db = CurrentDb
Set rs = db.OpenRecordset(str)

Dim i As Integer
For i = 1 To Me.Text0
       rs.Edit
       rs!police = Me.Text2
             rs.Update
rs.MoveNext
Next i
           rs.Close
       Set rs = Nothing

 

تفضل ....

 

 

New Microsoft Access Database.mdb

تم تعديل يونيو 21, 2021 بواسطه kanory

[kha9009lid]

4 ساعات مضت, MOMEN AHMED said:

هي فكره حلوه بس هعرف ازاي السجلات اللي تحتوي على

null

مافي مشكلة ممكن نعملها بطريقة اخرى

2 ساعات مضت, kanory said:

ستخدم  هذا الكود

ما شاء دائما مبدع استاذي الفاضل @kanory

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

وحقل للعد المطلوب استخدامه وحقل للنص المطلوب كتابته

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

ثم عمل زر امر لتنفيذ العدد المطلوب

 

New Microsoft Access Database.mdb

[kanory]

4 ساعات مضت, kha9009lid said:

 

ما شاء دائما مبدع استاذي الفاضل @kanory

 

اشكرك أخي الفاضل ..... هذا ما تعلمناه منك

[MOMEN AHMED]

ما شاء الله

عجبني قوي الكود ده

For k = 1 To X

جزاك الله خير وجعله الله في ميزان حسناتك

طلبين اخار معلش

الاول : حقل

(FindBarcod)

يحدث ويتم دمج ما تم تحديثه مع الحقلين

barcode+police

الثاني : بعد التحديث يظهر جدول بما تم تحديثه فقط من العدد المطلوب تحديثه

اسف اني بتقل على حضرتك

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

FindBarcod

على شكل باركود للطباعة

 

جزاك الله خير

[ابو البشر]

طريقتين حلوه ........ شكرا @kanory شكرا @kha9009lid ....... ابداع ما شاء الله تبارك الله

[kha9009lid]

17 ساعات مضت, kanory said:

اشكرك أخي الفاضل ..... هذا ما تعلمناه منك

مجاملة لطيفة وتواضع كبير من اخ ومعلم فاضل تعلمنا منه الكثير

2 ساعات مضت, ابو البشر said:

طريقتين حلوه ........ شكرا @kanory شكرا @kha9009lid ....... ابداع ما شاء الله تبارك الله

يا مرحبا باخي ابو البشر

الحقيقة في البداية كانت فكرتي ان اعمل كود مشابه لطريقة استاذنا الفاضل @kanory بالتعامل مباشرة مع الجدول

ولكن بعد ان شرعت في العمل شاهدت طريقة استاذنا ففكرت في طريقة اخرى

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

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

2 ساعات مضت, MOMEN AHMED said:

barcode+police

ممكن نضع الامر لدمج الحقلين في نفس الحلقة التكرارية

2 ساعات مضت, MOMEN AHMED said:

لثاني : بعد التحديث يظهر جدول بما تم تحديثه فقط من العدد المطلوب تحديثه

ممكن نعمل جدول عن طريق استعلام انشاء جدول

وممكن نعمل استعلام الحاق للسجلات

وممكن بدون الحاجة الى اضافة جدول عن طريق انشاء استعلام بمعيار رقم البوليصة وهو الاسهل

الملف مرفق

 

New Microsoft Access Database.mdb

[MOMEN AHMED]

@kha9009lid

افكارك كلها ممتازه وتحترم ودايما بتفكر بره الصندوق