فكرة تحديث سجلات

up

أخي الكريم

أنا عندي حل آخر لمشكلتك

لماذا تجعل الترقيم بخزن في القاعدة ؟؟!!

بإمكانك عمل Function يعطيك رقم كل سجل واستخدامه في مربع نص غير منضم تعرض من خلاله الترقيم .. وهكذا لن تكون بجاجة لعملية إعادة الترقيم

إذا راقت لك الفكرة سأعطيك الFunction

ياريت والله يا أخي مهند ولو تتكرم علينا وتخدمنا في هذا الشىء بارك الله فيك

على فكرة يا اخ مهند ، المقصود من عملية إعادة الترقيم هو في حالة الحذف فقط ، ودعني اوضح الفكرة أكثر ....

مثلاً يوجد لدي مسافرين عددهم 500 وأردت تحت أي ظرف أن اقوم بحذف أحد هؤلاء المسافرين وليكن رقمه مثلا ً 450 عملية الحذف هذه ستسبب في فقد هذا السجل مما سيجعل ترتيب العدد ناقصاً (وهذا ما لا اريده) فالمطلوب هو عند حذف أحد السجلات أن يتم إعادة الترتيب من جديد فمثلاً في حالة حذف السجل المذكور أعلاه فيتم الترتيب حسب الآتي :

الترتيب قبل الحذف من 1 الى 500

والترتيب بعد الحذف من 1 الى 449 (مع إعتبار السجل رقم 450 قد تم حذفه) ليواصل الى الرقم 500

وللعلم فقد قمت بتنفيذ مثل الدالة التي تفضلت بتعديلها وقد عملت بنجاح في برنامج آخر ولكن الفرق بينهما عدد المعطيات فقط ، وأنا بإنتظار الحل الذي تعودنا عليه دائماً منكم ومن بقية أعضاء هذا المنتدى الرائع

إليك القاعدة بعد التعديل

Update.rar

شكراً أخي الكريم ، ولكن هذه المشكلة قد تم حلها من قبل ، والمطلوب الآن هو تنفيذ الدالة على حقلين وليس حقل واحد ( احد الحقول نصي والاخر رقمي)

بارك الله فيك وكثر من امثالك

أخي الكريم

مادام حقل نصي والآخر رقمي .. يصبح الكود هكذا

Function ReOrderExportCars(FldName As String, Val As String , FldName1 As String, Val1 As long ) As Integer
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb()
Dim str As String
str = "select * from ExportCars where " & FldName & "=' " & Val & " ' AND " & FldName1 & "= " & str(Val1)
Set rs = db.OpenRecordset(str, dbOpenDynaset)
While Not rs.EOF
With rs
  .Edit
   !BillOFLading = rs.AbsolutePosition + 1
 .Update
 .MoveNext
End With
Wend
ReOrderExportCars = rs.RecordCount
End Function

أخي مهند أشكرك جزيل الشكر على مساعداتك الجليلة ونصائحك القيمة وصدقني فقد خجلت من نفسي لكثرة الطلبات ولكن من عشمنا فيكم نطرح أي مشكلة تعترض مسيرتنا ..

وبالنسبة للمشلكة التي أوردتها في بداية مشاركتي هذه والتي ما زالت حتى الآن ، فقد أوردت هنا ملفاً يحوي المشكلة فأرجو الإطلاع عليه ومساعدتي جزاكم الله خير في حلها حيث أنها المشكلة الأخيرة التي إعترضتني ولم أجد لها حلاً حتى الآن وصدقني فقد حاولت مراراً وتكراراً في إيجاد الحل المناسب لها بطرق مختلفة ولكني لم أستطع ..

مع العلم بأن القاعدة المرفقة تحتوي على نموذجين هما :

frmAddPassengers

frmExportCarsArabicEnglish

وتحتوي كذلك على وحدة نمطية بإسم : ReOrders

فأرجو الإطلاع كرماً على النموذجين وكذلك الوحد النمطية وستجدون ما آمل أن أجده لديكم

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

تحياتي

OrderProblem.rar

up

up

up

up

وين الناس عسى المانع خير

Help

up

Up

Up

المعذرة على الإلحاح

up

up