لو سمحتوا كيف اريد رفع وتنزيل سطر كما بالصورة

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

إذا كنت تقصد استعمال زري Up و Down مع ListBox فالكود كالتالي:

' UP
With List1
    If .ListIndex > 0 Then .ListIndex = .ListIndex - 1
End With

' DOWN
With List1
    If .ListIndex < (.ListCont - 1) Then .ListIndex = .ListIndex + 1
End With

نرجو الاستفادة و السلام.

شكراً اريدك أخي ناجي

أخي ناجي انا اريد مثلاً إذا كنت واقف على أسم أحمد وقمت بالضغط على زر Up

انا اريده ان يرفعه لفوق

وأذا ضغط Down ينزله لتحت وهكذا

واريد بنفس الوقت يتغير هذا الشي بالدتا بيز

وشكراً لك أخي ناجي

أنتظر جوابك

بالنسبة للـليست بسيطة لكن بالنسبة لقاعدة البيانات لا اعتقد ان هناك طريقة مباشرة يمكنك بها نقل سجل من ترتيبه

لكنك إذا كان الترتيب مهم جداً هكذا يمكنك عمل حقل رقمي يوضع فيه ترتيب السجل الذي تريده ويبقى ترتيب السجلات كما هو في قاعدة البيانات لكن عند عرضها في البرنامج تقوم بترتيبها بحقل الترتيب الذي اضفناه فقط بإضافة المصطلح Order by MyField في نهاية الاستعلام الذي تفتح به الجدول في البرنامج (حيث MyField هو اسم الحقل الذي قمنا بعمله)

وفي البرنامج إذا اردنا مثلاً إنزال سجل في القاعدة يمكننا فقط تغيير ترتيبه ليتم عرضه بهذا الترتيب في البرنامج , وبهذا ايضاً لن تحتاج لتغيير ترتيبه في الليست طالما انها ترعض السجلات بالترتيب المحدد في حقل الترتيب ..

أخي محمد غريب

هل نقدر نعدله على هذا المشروع الصغير أخي محمد غريب

والله يجزاك الخير

وهو بالمرفقات

Project1.rar

ارجو مساعدتي، لدي برنامج بسيط مكلفه بعمله وارجو المساعدة فيه وهو عبارة عن مخزن اغذية لإستراحة

الرجاء التواصل معي ع الايميل الخاص لشرح التفاصيل

المثال بعد التعديل في المرفقات ...

مع ملاحظه انه عند إضافة سجل جديد يجب ان تحدد قيمته بنفسك وتكون اكبر قيمة موجوده بالجدول +1

لذا تحتاج ان تجعل قيمته هي ناتج الإستعلام :

Select Max([Order])+1 From Table1

Project1_2.rar

شكراً لك أخي محمد غريب

الله يبارك فيك

وألف شكرا لك

ما قصرت

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