معرفة أخر رقم فى أخر سجل لنموذج فرعى

[محمد احمد لطفى]

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

وجزاكم الله خيراً

test2023-1 (2).mdb

[Ezril]

آخر رقم مكتوب وليس اجمالي السجلات في طريقه من غير عد 

اضافة فرعي استعلام ترتيب تنازلي حدث عند الفتح ينقل قيمه من الى Form_ 

[محمد احمد لطفى]

حبيبى @Ezril

اخر رقم last 
 

المرفق يعمل على اصدا اوفيس 2003 الى 202X للرقم كبير 

تم تعديل أبريل 29, 2023 بواسطه محمد احمد لطفى

[Ezril]

ده لسابق مش للأخير 

[محمد احمد لطفى]

UP

[Barna]

21 ساعات مضت, محمد احمد لطفى said:

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

وجزاكم الله خيراً

 

 

اذا كان فهمي صحيح انظر الصورة 

=DMax("[NumberX]";"[SUBX]";"[id] ="& [Forms]![test1]![id1] &"")

 

[محمد احمد لطفى]

أستاذى @Barna

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

عن طريق نموذج frmRisTaacil

[Barna]

3 دقائق مضت, محمد احمد لطفى said:

أستاذى @Barna

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

عن طريق نموذج frmRisTaacil

لم افهم عليك ؟؟؟؟؟

عند الضغط على GO  يعطي خطأ ... انظر ...

 

 

[محمد احمد لطفى]

يجب فتحه من خلال نموذج test1 من زرار فتح النموذج

تم تعديل أبريل 30, 2023 بواسطه محمد احمد لطفى

[Barna]

1 ساعه مضت, محمد احمد لطفى said:

يجب فتحه من خلال نموذج test1 من زرار فتح النموذج

لعل هذا ما تريد .... ضع هذا الحدث تحث زر GO واخبرنا ..... لأني لم افهم طريقتك في العمل ....

    Dim rs As Object
    Set rs = Forms![test1]![SUBX].Form.RecordsetClone
    rs.MoveLast
Forms![test1]![SUBX].Form.Bookmark = rs.Bookmark
Forms![test1]![LastNumberx] = Forms![test1]![SUBX].[Form]![NumberX]
rs.Close
DoCmd.Close

 

[محمد احمد لطفى]

أستاذى @Barna

ربنا يبارك فيك ويحفظك 

هو المطلوب

[Ezril]

والي يعملها لك بكود آخر بتنسى طلبي 

[محمد احمد لطفى]

أنا مش ناسى أنا مش عارف 

[Mohamed abo elmagd]

السلام عليكم ورحمة الله وبركاتة

الرجاء من السادة المحترمين استكمال هذا الملف بحيث

1- زيادة عدد الكشوف في ورقة 1 من زر التنقل وذلك حتي 400 خطاب

2-اضافة زر للبحث عن الاسم 

3- استكمال باقي الترحيل (ملاحظ-مقدر درجات ) من بيانات المعلم الي اماكنها في ورقة 1

وشكرا لحضراتكم

تجربة 1.xls

[kkhalifa1960]

لطفاً أخي @Mohamed abo elmagd هنا منتدى الأكسس .

ممكن تطرح سؤالك بمنتدى الإكسل وبتحصل من يساعدك باحتراف .