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

[alfares18]

اخواني الاعزاء

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

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

آمل في حال التعديل شرح خطوات التعديل

وهناك مشكلة آخرى في التاريخ تأتي من اليسار الي اليمين بالرغم من أن التاريخ هجري

222.rar

[CUHP]

تفضل اخي الكريم ملفك بعد التعديل - حسب طلبك -- تحياتي

222.rar

[alfares18]

جزاك الله خيرا ونفع الله بك

[alfares18]

جزاك الله خيرا ووفقك يارب

وياليت تشرح لي ماذا عملت بالضبط

آمل تزويدي بطريقة عمل زر الطباعة ( أنا أود تطبيقه على برامج أخرى )

[CUHP]

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

لعمل الطريقة اتبع التالي:-

1- اجعل حقل العدد في الجدول - مفهرس - عمل له مفتاح اساسي --

2- اذهب الى الاستعلامات واعمل استعلام للجدول وضع به جميع الحقول بما فيه العدد

3- اكتب تحت حقل العدد الكود [العدد]![اسم النموذج]![forms]

4- اعمل تقرير مبني على الاستعلام

5- اذهب الى النموذج الذي ادخلت اسمه - ضع به زر امر طباعة اومعاينة التقرير المذكور

ارجوا ان اوضحت لك المطلوب -- تحياتي

[التقني]

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

بعد اذن أخي CUHP

أعتقد أن أخي alfares18 يريد السجل الموجود حاليا على النموذج أن يُعرض على التقرير وبدون وجود سجلات أخرى وبدون الاعتماد على الاستعلامات ، ولعمل ذلك توجد طريقتان .

ضع زر أمر ضمن النموذج وفي حدث عند النقر لهذا الزر ضع أحد الكودين التاليين :

هذا الكود يصلح حقل (ID) رقمي :

Dim stLinkCriteria As String
stLinkCriteria = "[ID] =" & Me![ID]
DoCmd.OpenReport "ReportNeme", acViewPreview, , stLinkCriteria

هذا الكود يصلح حقل (Name) نصي :

Dim stLinkCriteria As String
stLinkCriteria = "[theName]=" & "'" & Me![theName1] & "'"
DoCmd.OpenReport "ReportNeme", acViewPreview, , stLinkCriteria

هذه الطريقة تصلح لــ..:

1- سند قبض أو صرف مالي .

2- اصدار شيك باسم معين .

3- شهادة (دراسية - تقدير - تخرج) لشخص معين .

4- لمن بهمه الأمر .

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

والله أعلى وأعلم .

[CUHP]

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

وانا عملت طريقتي التي شرحتها للاخ الفارس -- لأنني اعمل بها منذوا زمن ولم اصادف معها اي مشاكل -- وسنعمل بطريقتك انشاء الله تعالى 0

تحياتي واشواقي لك استاذنا الكبير -- التقني

[GNMQ8]

ألف شكر أخواني على هذه المعلومات .. بصراحة استفدت وايد ..

ولكن سؤال بسيط :

كيف أعمل هذه الطريقة على نموذج فرعي ؟؟

وشكراً