إعادة ترتيب سجلات نموذج فرعي

[محمدنجار]

أخوتي الكرام .... السلاع عليكم واسعد الله أوقاتكم بكل خير .....

::: في المرفق نموذج فرعي main هل بالامكان إعادة ترتيب سجلاته ... اي بعد تحديد سجل معين يمكن رفعه اوخفضه بواسطة زري أمر ؟

::: مع خالص شكري لجميع الاعضاء والمشرفين .

ترتيب سجلات.rar

[يوسف أحمد]

و عليكم السلام

اخي العزيز محمد النجار

 

اعجبني السؤال اشكرك ... و الشكر موصول لاستاذنا العزيز رمهان و الذي دلني عليه

 

الحل تطلب مني الغاء المفتاح الاساسي لحقل mid  

 

الكود التالي يوضع في زر الاسفل

 

Dim rs As dao.Recordset
    Dim frm As Form
    Dim downMid, downFood, downUnit, TopMid, TopFood, TopUnit As String
    Dim downQuantity, downPrice, TopQuantity, TopPrice As Double
    Dim Bkmark As String


Set frm = Me![main].Form
    Set rs = frm.RecordsetClone
    If rs.RecordCount = 0 Then
        Exit Sub
    End If
    
    rs.Bookmark = frm.Bookmark
    TopMid = rs("mid")
    TopFood = rs("food")
    TopUnit = rs("unit")
    TopQuantity = rs("qty")
    TopPrice = rs("price")
    rs.MoveNext
    If rs.EOF Then
        Exit Sub
    Else
         Bkmark = rs.Bookmark
         downMid = rs("mid")
         downFood = rs("Food")
         downUnit = rs("Unit")
         downQuantity = rs("qty")
         downPrice = rs("price")
         rs.Edit
         rs("mid") = TopMid
         rs("food") = TopFood
         rs("Unit") = TopUnit
         rs("qty") = TopQuantity
         rs("price") = TopPrice
         rs.Update
    End If
        rs.Bookmark = frm.Bookmark
        rs.Edit
        rs("mid") = downMid
        rs("food") = downFood
        rs("Unit") = downUnit
        rs("qty") = downQuantity
        rs("price") = downPrice
        rs.Update

    frm.Requery
    frm.Bookmark = Bkmark

مع تغيير السطرين 17 و 18 الى 

 rs.MovePrevious
    If rs.BOF Then

لزر الاعلى

ملاحظه : Mid هو اسم لداله و من الافضل عدم استخدامه حيث انه يعتبر اسم محجوز

 

تفضل المرفق بعد التعديل و بالتوفيق

ترتيب سجلات.rar

تم تعديل أغسطس 21, 2016 بواسطه يوسف أحمد

[محمدنجار]

منذ ساعه, يوسف أحمد said:

اخي العزيز محمد النجار

اعجبني السؤال اشكرك ... و الشكر موصول لاستاذنا العزيز رمهان و الذي دلني عليه

اخي الكريم الاستاذ يوسف احمد .... أسعد الله اوقاتك بالخير

::: إنه لمن حسن الحظ أن تحضى اسئلتي بإهتمام  أساتذة المنتدى الموقرين ... جعفر , رمهان , يوسف , ابو خليل , عبد الفتاح , الوزير , الحلواني , ......الخ .

::: أقول : من عليه أن يشكر من ؟  .... طبعاً انا اتقدم لك بالشكر والعرفان .... متمنياً لك النجاح .

 

تم تعديل أغسطس 21, 2016 بواسطه محمدنجار

[صالح حمادي]

ما شاء الله على هذا الكود الرائع شكرا أستاذ محمد نجار لأنك طرحت هذا السؤال الممتاز و شكرا لك أيضا أستاذ يوسف على هذه الإفادة جعلها الله في ميزان حسناتك إن شاء الله

[محمدنجار]

1 دقيقه مضت, صالح حمادي said:

ما شاء الله على هذا الكود الرائع شكرا أستاذ محمد نجار لأنك طرحت هذا السؤال الممتاز و شكرا لك أيضا أستاذ يوسف على هذه الإفادة جعلها الله في ميزان حسناتك إن شاء الله

اهلا اخي العزيز صالح ... فعلا كود رائع .... لك مني كل الود .

[صالح حمادي]

الله يحفظك يا أخي الغالي

تم تعديل أغسطس 21, 2016 بواسطه صالح حمادي

[رمهان]

السلام عليكم

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

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

بالتوفيق

ترتيب سجلات.rar

تم تعديل أغسطس 23, 2016 بواسطه رمهان

[يوسف أحمد]

رائع استاذ رمهان .. بارك الله فيك و زادك من علمه و فضله