رسالة و عدم فتح سجل جديد

lordring كتب:

السلام عليكم المطلوب كما موضح بالصورة ادناه

الملف المرفق

الرابط الخاص بي

مع الشكر والتقدير مقدما

تفضل اخي الكريم

ملفك بعد التعديل

لا تنسانا من التقييم بارك الله بك

za-v5-UP.rar

بالتوفيق

شكرا اختي لاعدمنا الله من وجودك العطر في هذا المنتدى

السلام عليكم

الاستاذة الكبيرة زهرة جزاك الله خير

كيف يمكن الوصول الى السجل الاخير من خلال

ازرار التنقل دون الوصول الى السجل الجديد

سلامنا لكم كتب:

السلام عليكم

الاستاذة الكبيرة زهرة جزاك الله خير

كيف يمكن الوصول الى السجل الاخير من خلال

ازرار التنقل دون الوصول الى السجل الجديد

اخي الفاضل : سلامنا لكم

يتم الوصول الى السجل الإخير بزر تنقل التالي وبدون ظهور السجل الجديد عن طريق خاصية AbsolutePosition الخاصة يكائن السجل Recordset

وهذه الخاصية تعمل فقط مع الآسلوبين dynasets او snapshots حيث ان هذه الخاصية تكون بين 0 و -1 فالصفر بمثابة اول سجل ولهذا يمكن ان نرسل لهذه الخاصية رقما بين الصفر وعدد السجلات -1 فإذا كان السجل خاليا ( ونقصد هنا السجل الجديد ) فإن الخاصية سترجع لنا القيمة -1 ( اي انها ستتوقف عند آخر سجل من السجلات لا يكون خالي )

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

Public Sub Next_Record()
On Error GoTo Err_Next_Record

With Recordset
  If .AbsolutePosition = .RecordCount - 1 Then
  MsgBox "لقد وصلت للسجل الأخير", vbInformation, "تنبيه"
        DoCmd.GoToRecord , , acLast

  Else
        DoCmd.GoToRecord , , acNext

  End If
End With

Exit_Next_Record:
    Exit Sub

Err_Next_Record:
    MsgBox Err.Description
    Resume Exit_Next_Record
End Sub

لو تلاحظ الدالة اننا اشترطنا عليها انه في حالة كانت الخاصية AbsolutePosition لعدد السجلات -1 تتوقف ( لأننا لا نريد السجل الجديد الفارغ من البيانات ) وتعطينا رسالة تنبيه وعدى ذلك تستمر في عرض السجلات

طبعا هذه الدالة يتم استدعاؤها تحت زر امر السجل التالي

بالتوفيق

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

ان امكن طبعا الطلب ليس ضروري لكن من باب تكامل العمل

وشكرا

السلام عليكم

الاستاذة زهرة

انا فهمت الكود العام

وفهمت ان نوضع الكود تحت زر الامر التالي

Call Next_Record

انا كان سؤالي على زر التنقل التالي في ازرار التنقل الموجودة في اسفل النموذج كما في الصورة المرفقة.

واذا كان له علاقة بالمصطلحات المذكورة فانا اسف لعدم الفهم.

lordring كتب:

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

ان امكن طبعا الطلب ليس ضروري لكن من باب تكامل العمل

وشكرا

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

لا تنسانا من التقييم بارك الله بك

za-v5-LAST.rar

بالتوفيق

سلامنا لكم كتب:

السلام عليكم

الاستاذة زهرة

انا فهمت الكود العام

وفهمت ان نوضع الكود تحت زر الامر التالي

Call Next_Record

انا كان سؤالي على زر التنقل التالي في ازرار التنقل الموجودة في اسفل النموذج كما في الصورة المرفقة.

واذا كان له علاقة بالمصطلحات المذكورة فانا اسف لعدم الفهم.

اخي الفاضل : سلامنا لكم

انت وين واحنا فين :)

لا وانا اختك موضوع ازرار التنقل السفلية الموجوده في اسفل النموذج لا علاقة لها بما شرحناه

نحن نتحدث عن الأزرار التي يقوم بعملها المستخدم للتنقل بين السجلات داخل النموذج

بالتوفيق

شكرا جزيلا وعاشت الايادي