جلب القيمه من الجدول

[النجاشي]

السلام عليكم استاذتي الكرام

اريد ظهور اسماء العملاء والسعر بالنموذج

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

اريد عندما اضغط زر تحديث يظهر الاسماء الذي بالجدول والسعر 

تحياتي احبتي

اسم العميل.rar

[ابوخليل]

تفضل

لكن الطريقة هذي فيها ثغرة

الآن الترقيم في الجدول مترتب فلو اختلف ظهرت لخبطة 

فالافضل اخذ الرقم x من مجموعة السجلات

اسم العميل2.rar

[النجاشي]

5 ساعات مضت, ابوخليل said:

تفضل

لكن الطريقة هذي فيها ثغرة

الآن الترقيم في الجدول مترتب فلو اختلف ظهرت لخبطة 

فالافضل اخذ الرقم x من مجموعة السجلات

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

اسم العميل2.rar 69.59 kB · 5 downloads

 

[ابوخليل]

Set rs = CurrentDb.OpenRecordset("AAA")
rs.MoveFirst
Do While Not rs.EOF
x = rs!id
Me("DDDD" & x).Caption = rs!NM
Me("D" & x).Caption = rs!id
Me("S" & x) = rs!sr
    rs.MoveNext
 Loop

 

اسم العميل3.rar

[النجاشي]

6 ساعات مضت, ابوخليل said:

Set rs = CurrentDb.OpenRecordset("AAA")
rs.MoveFirst
Do While Not rs.EOF
x = rs!id
Me("DDDD" & x).Caption = rs!NM
Me("D" & x).Caption = rs!id
Me("S" & x) = rs!sr
    rs.MoveNext
 Loop

 

اسم العميل3.rar 70.25 kB · 5 downloads

مشكور حفظك الله ورعاك استاذنا ابو خليل

كم انت رائغ وطيب القلب الف الف شكرا

والجميل انك لا تعطي الجواب فقط وانما تنظر الي الثغرات وتعطينا الطريقه الصح مشموررررررررررررررررر

[ابوخليل]

الحمد لله .. الفضل له .. وشكرا  على ثنائك العطر