اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

استدعاء السجل الأخير


safenaz
إذهب إلى أفضل إجابة Solved by ابوخليل,

الردود الموصى بها

السلام عليكم

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

اريد عند فتح النموذج الذهاب إلى السجل الأخير المحفوظ ولكن عندما يفتح النموذج احلاظ بانه لا يظهر السجل الأخير

فسؤالي على اي أساس يختار النموذج السجل الأخير ومن اي جدول

وشكرا لكم

رابط هذا التعليق
شارك

5 ساعات مضت, safenaz said:

السلام عليكم

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

لم توضح طريقة اتصال هذا النموذج بالجداول ؟

اذا المصدر لهذا النموذج استعلام يجمع هذه الجداول  فيمكنك الوصول الى السجل الاخير باستخدام احد الدالتين :

Dmax  اذا  يوجد ترقيم تلقائي بحيث ترجع الدالة اكبر رقم تم تسجيله

او الدالة Dlast  للذهاب الى آخر سجل

وقبل كل هذا جرب اولا استخدام هذا الامر  

DoCmd.GoToRecord , , acLast

  • Like 1
رابط هذا التعليق
شارك

شكرا لتعاونك وردك على سؤالي

ابوخليل

عند استخدام  DoCmd.GoToRecord , , acLast  اعطى نفس النتيجة ولا يظهر آخر سجل تم ادخاله

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

Me.ChitN = DMax("[ChitN]", "invoices")

ChitN رقم الفاتورة وهو الحقل الذي يعبر عن آخر سجل تم ادخاله

invoices الجدول

أين الخطأ في الكود حيث ان النموذج بهذه الحالة لم يعد يفتح ؟

 

رابط هذا التعليق
شارك

اكتب الكود هكذا

Private Sub Form_Open(Cancel As Integer)
Dim i As Integer
i = DMax("[ChitN]", "invoices")
DoCmd.GoToRecord , , , i
End Sub

 واذا كان رقم الفاتورة نصي  يصبح الاعلان هكذا :  Dim i As String

اوارفق مثالك لنطلع عليه عن قرب حيث ذكرت ان مصدر النموذج اكثر من جدول

 

رابط هذا التعليق
شارك

  • أفضل إجابة

تم وضع الكود

DoCmd.GoToRecord , , acLast

عند حدث تحميل النموذج

والكود هذا شغال  والمشكلة كانت في التسلسل والفرز ، فأنا عملت فرز في الاستعلام

جرب ووافني بالنتيجة

test4.rar

  • Like 1
رابط هذا التعليق
شارك

السيد

ابوخليل

السلام عليكم

اجريت بعض التعديلات على كود قبل التحديث لنموذج  new_invoice

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

وضعت كود في حال كان الحقلnull

ولكن لم يكن الكود ناجح حيث لا يتم الانتقال لزر الحفظ

ممكن الاطلاع والافادة لو سمحت

وشكرا لك

ا

gaz2.rar

رابط هذا التعليق
شارك

عليكم السلام

واضح المشكلة في حقول الربط بين النموذج الرئيس والنموذج الفرعي

ولكن قبل هذا اخي بارك الله فيك  انت وقعت في مخالفة لقواعد المشاركة :

1- يجب ان يفرد كل سؤال جديد في موضوع جديد يخصه

2- توجيه السؤال لعامة الاعضاء وعدم ذكر اسماء ، حتى تحضى باهتمام الجميع

اتمنى اعادة السؤال في  مشاركة جديدة ، مع الشكر والتقدير

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information