عمل مربع نص يظهر رقم السجل

[tiger wanted]

بسم الله الرحمن الرحيم

اريد في نموذج مربع نص يظهر رقم السجل الذي عليه المؤشر

 

[jjafferr]

هممم

 

هذا السؤال صعب الاجابة عليه !!

فإذا عملت تصفية للحقل1 ، فعدد السجلات وترتيبها سيختلف من انك اذا عملت تصفية للحقل2 ،

واذا عملت تصفية عن طريق الحقلين ، فهذا ترتيب آخر ،

واحلاها ، انك بعد ان تعمل كل هذه التصفيات ، تقوم بعمل فرز تصاعدي عن حقل آخر 🙂

 

جعفر

[tiger wanted]

عذرا لم يتم فهم السؤال مااقصده هو عداد رقمى للسجلات يوضع بين ازرار التنقل

[kha9009lid]

لا اعلم اذا كان فهمي صحيح جرب الملف المرفق

 

 

 

Database1121.accdb

تم تعديل مايو 10, 2020 بواسطه kha9009lid

[jjafferr]

وانا اذا فهمي صحيح ، اعمل حقل Label اسمه R ، واستعمل هذا الكود :

 

Private Sub Form_Current()

    Me.R.Caption = "Record  " & CurrentRecord & "  Of  " & RecordsetClone.RecordCount & "  Records"
End Sub

 

جعفر

[kha9009lid]

19 دقائق مضت, jjafferr said:

وانا اذا فهمي صحيح ، اعمل حقل Label اسمه R ، واستعمل هذا الكود :

 

Private Sub Form_Current()

    Me.R.Caption = "Record  " & CurrentRecord & "  Of  " & RecordsetClone.RecordCount & "  Records"
End Sub

 

جعفر

رائع استاذنا الفاضل

ولكن عند فتح النموذج تكون النتيجة

Record 1 Of 1 Records

مهما كان عدد السجلات وبعد التنقل للسجل التالي يعطي النتيجة الصحيحة

وبعد اضافة

Me.RecordsetClone.MoveLast

قبل الكود تكون النتيجة

Record 1 Of 4 Records

مطابق للعدد الكلي للسجلات

 

[jjafferr]

 

20 دقائق مضت, kha9009lid said:

Record 1 Of 1 Records
مهما كان عدد السجلات وبعد التنقل للسجل التالي يعطي النتيجة الصحيحة
Me.RecordsetClone.MoveLast

 

اوووووه زين ذكرتني ان هذا القانون ينطبق حتى في شهر رمضان

 

جعفر

[tiger wanted]

شكرا جزيلا هذا هو المطلوب بالتحديد واشكر هذا المنتدى الكبير