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

[safenaz]

السلام عليكم

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

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

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

وشكرا لكم

[ابوخليل]

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

السلام عليكم

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

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

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

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

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

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

DoCmd.GoToRecord , , acLast

[safenaz]

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

ابوخليل

عند استخدام  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

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

 

[safenaz]

تفضل هي نسخة من قاعدة البيانات

نلاحظ عند وضع الكود لا يفتح النموذج new_invoice

test3.rar

[ابوخليل]

تم وضع الكود

DoCmd.GoToRecord , , acLast

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

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

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

test4.rar

[safenaz]

شكررررررررا كتير لالك

تمام هيك

عذبتك معي

ولو سمحتلي ابقى استشيرك مرة اخرى باي مشكلة تواجهني

الله يجزيك الخير

[safenaz]

السيد

ابوخليل

السلام عليكم

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

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

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

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

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

وشكرا لك

ا

gaz2.rar

[ابوخليل]

عليكم السلام

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

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

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

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

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