نجوم المشاركات

و عليكم السلام اخي العزيز محمد النجار اعجبني السؤال اشكرك ... و الشكر موصول لاستاذنا العزيز رمهان و الذي دلني عليه الحل تطلب مني الغاء المفتاح الاساسي لحقل 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

السلام عليكم ورحمة الله وبركاته مرفق ثلاث ملفات اثنان للترقيم التلقائي بالأكواد وواحد بالمعادلات بمجرد الكتابة في الخلية B يتم نزول الترقيم تلقائي كود ترقيم تلقائي 3.rar ترقيم تلقائي 4.rar ترقيم تلقائي بالمعادلة.rar

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

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

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

استاذنا العزيز الوزير الف مبروك الاحتراف وتستاهل اكثر

السلام عليكم ورحمة الله وبركاته جزيل الشكر شيخنا واستاذنا ابو خليل على هذه الثقة وأسأل الله أن يعيننا وإياكم على تقديم كل ما هو خير لصالح الجميع دعوة بظهر غيب تكفيني :: تحياتي لكم جميعا