الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ظهور خطأ في كود اظهار تقرير بيانات النموذج

بدأه Ahmad Faisal في 15 سبتمبر 2012 · 7 رد · 487 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

اخواني مشرفي واعضاء المنتدى السلام عليكم

اختي زهرة السلام عليكي ان شالله تكوني بخير

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

ارفقت صورة توضيحية والقاعدة

اسم النموذج في القاعدة Employee Drops و التقرير المراد طباعته bill واسم الاستعلام كذلك Bill

Inventory System.rar

post-266418-020547600 1347719316_thumb.j

المرفقات
print.JPG
#2

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

اخى العزيز احمد تم تعديل ملفك وذلك بوضع معيار فى الاستعلام تحت حقل الرقم وهو

Like "*" & [forms]![Employee Drops]![Number] & "*"

تم تعديل هذه المشاركة بواسطة ابوجمانة2009 في 15 سبتمبر 2012 في 18:55

#3

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

Inventory System.rar

#4

اخوي ابو جمانة شكرا على الرد

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

انا اريد مثل الطريقة الي عملها الاخ محمد فؤاد في شرح برنامج المخازن

في هذا الرابط

/index.php?showtopic=125583&st=0

انظر المشاركة رقم 16

لاحظ كيف انشأ استعلام لفاتورة الشراء ووضع تقرير يفتح من خلال النموذج لعرض البيانات الحالية في النموذج على شكل ورقة للطباعة

#5

تفضل اخي الكريم

ملفك بعد التعديل

سوف نستخدم هذا الكود تحت زر امر المعاينة في النموذج لمعاينة الصفحة الحالية للتقرير

Private Sub Command11_Click()
Dim stLinkCriteria As String
stLinkCriteria = "[number] =" & Me![Number]
DoCmd.OpenReport "bill", acViewPreview, , stLinkCriteria
End Sub

وايضا سوف نستخدم هذا الكود لطباعة الصفحة الحالية من التقرير

Private Sub CmdPrint_Click()
Dim stLinkCriteria As String
stLinkCriteria = "[number] =" & Me![Number]
DoCmd.OpenReport "bill", acViewNormal, , stLinkCriteria
End Sub

za-Inventory System-UP.rar

بالتوفيق

#6

اختي زهرة شكرا على ردك

بس اختي واجهتني مشكلة وظهرت رسالة خطأ عند اظهار التقرير وكذلك الطباعة معنى الرسالة اختي حسب ما فهمت انه يجب اغلاق برامج لاداعي لها من اجل الذاكرة وهذا اكيد غير منطقي والجهاز مواصفاته عالية ... اختي الاخ محمد فؤاد استخدم بس هذا الكود مع بناء الاستعلام طبعا

DoCmd.OpenReport "invoice", acViewPreview, , "[Add_doc]='" & Me.Add_doc & "'"

كبف استعمل فقط هذا الكود الخاص باظهار التقرير

اسف على الاطالة اختي

يوجد صورة مرفقة للمشكلة

post-267265-040547000 1347863171_thumb.j

المرفقات
Untitled.jpg

تم تعديل هذه المشاركة بواسطة Ahmad.Faisal.Khresha في 17 سبتمبر 2012 في 09:46

#7

تفضل اخي الكريم

الكود بناء على طلبك

Private Sub Command11_Click()
DoCmd.OpenReport "bill", acViewPreview, , "[number] =" & Me![Number]
End Sub

ملاحظة هامة : يجب عليك التقيد بمعرف واحد فقط المنتدى لأنه يبدو لديك معرفين وهما Ahmad Faisal و Ahmad.Faisal.Khresha

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

za-Inventory System-END.rar

بالتوفيق

تم تعديل هذه المشاركة بواسطة zahrah في 17 سبتمبر 2012 في 11:24

#8

شكرا اختي زهر على الرد

اختي انا اضررت لعمل ذلك انا اسف

بس انا سجلت باميلي الرسمي

الي قبل كان عن طريف الفيس بوك واشف على ذلك رح اتقيد بواحد

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…