أريد طباعة السجل الأخير فقط

أرفق ملف للتوضيح وستجد الجواب بإذن الله تعالى إذا توفر عند أحد أعضاء المنتدى

ان كان القصد هو طباعة السجل الحالي فالمسألة لها حلا, و اْن كانت المسألة تتعلق بمجموعة السجلات المدخلة حديثا فالمسألة لها حلا كذلك, لذا يرجى ارفاق نسخة من الملف و تحديد السؤال بدقة أكثر.

هذا هو الملف

والذي أريده هو طباهة السجل الأخير فقط ، أخر سجل تم إدخاله إلى الجدول فقط

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

مثلاً لو قمت بإدخال مائة سجل إلى الجدول أريد التقرير أن يطبع السجل الأخير فقط وليست المئة سجل كلها

القرارات.zip

ألا توجد مساعدة من الأعضاء

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

لقد أرفقت الملف من فتره كما طلبتم مني لكن لا يوجد هناك حتى أية ردود

أرجو المساعدة من الأعضاء وشكراً لكم

اخي الكريم PROGRAMMER_15

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

برفقه الملف بعد التعديل ارجوا أن يكون حسب طلبك

اخوك ابو بندر

القرارات.zip

شكراً لك أخي أبو بندر على هذا الجهد

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

اخوي الطريقة سهلة جدا

اولا قم بانشاء استعلام جديد مبسط للجدول بتاعك واختار كافة الحقول

اكتب المعيار التالي تحت المفتاح الاساسي الترقيم التالي او الرقم العام حسب اسم الحقل في جدولك انا سميته في جدولي ID

[forms]![nasd]![id]

nasd:اسم النموذج عندي

ثم قم بانشاء تقرير واجعل مصدر التقرير يستند على الاستعلام الذي انشأناه

في النموذج بتاعك ضع زر امر ثم ضع الكود التالي

Private Sub 39_Click()
On Error GoTo Err_39_Click

    Dim stDocName As String

    stDocName = "Table1"
    DoCmd.OpenReport stDocName, acPreview

Exit_39_Click:
    Exit Sub

Err_39_Click:
    MsgBox Err.Description
    Resume Exit_39_Click
    
End Sub

اسم الزر عندي امر 39 باللون الاحمر لازم تغيره عندك الي مايناسبك

كذلك سم التقرير عندي Table1 يجب عليك تغييره حتى يكون الكود سليما

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

الكود