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

كيف أعمل تقرير شامل مأخوذ من استعلام جدولي

مغلق
بدأه ياسر العطري في 23 فبراير 2005 · 29 رد · 3,030 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

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

هل يوجد كود استطيع عملة في التقرير على حقل يسمى (اسم المركز) بحيث يظهر محتوى هذا الحقل على شكل افقي

حيث ان عندي حقلين هما سبب استغاثتي بكم وهما 1- نوع الإيراد ويحتوي على اكثر من 28 إيراد قائمة منسدلة والثاني 2- حقل بأسماء المراكز من نوع قائمة منسدلة ايظا ويحتوي على اكثر من 22 مركز وعند تشغيلي للتقرير المبني على هذا الاستعلام تظر لي رسالة بانة لم يتم التعررف على بعض المراكز بسبب انها لا تحتوي على بيانات ولكن عند تشغيل الأستعلام نفسة فأنة يشتغل بصورة سليمة والمراكز الذي ليس لديها ايرادات في هذا الشهر فأنة لا يعرضة وهذا عين الصواب وهذا ما اريده في التقرير بحيث انة يعمل بنفس الأستعلام وشكرا

#2

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

اتبع الخطوات التالية

1- في إطار قاعدة البيانات، حدد التقرير ثم أنقر Design .

2- انقر عنصر التحكم الذي يعرض في بعض الأوقات حقول فارغة .

3- على شريط الأدوات، أنقر الزر properties .

4- في مربع الخاصة Control Source، أدخل تعبير باستخدام الدالة Nz، على سبيل المثال،

Nz([سعر_ الوحده])* Nz ([القيمة])* Nz(1-[الخصم]))

اختكم

زهره

#3

اولا اشكرك على تجاوبك معي يااخت زهرة

انتي لم تفهمي قصدي لذا ارسلتلك هذا المثال التوضيحي لسبب مشكلتي ارجوا منكي ان تفتحية تعدلي هذة المشكلة حيث انه لايتم فتح التقرير بسبب بسبب وجود بعض المراكز التابعة للشركة لاتحتوي على بيانات في الفترة المحددة في الأستعلام وهي من 1/12/2004 الى 31/12/2004 ولكن لو تم تغير الفترة كأستعرض بيانات المراكز لشهر نوفمبر اي من 1/11/2004 الى 30/11/2004 فأن التقرير يفتح معي بدون مشاكل ارجوا منكي الرد سريعا

كما ارجوا منكي ان تطولي بالك معي

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

yy.zip

#4

وشكرا

تم تعديل هذه المشاركة بواسطة ياسر العطري في 24 فبراير 2005 في 21:57

#5

وينكم يا عباقرة الأكسس

تم تعديل هذه المشاركة بواسطة ياسر العطري في 24 فبراير 2005 في 22:04

#6

سأرسل اللملف مضغوط ببرنامج الرار إن شاء الله يفتح

تم تعديل هذه المشاركة بواسطة ياسر العطري في 24 فبراير 2005 في 22:59

#7

الاخ ياسر

الملف معطوب

#8

إن شاء الله يكون هذا الملف مش معطوب يااخت زهره

AA.rar

#9

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

#10

الاخ ياسر العطري

هل هذا هو المطلوب

YYY.rar

#11

الأخت العزيزه زهرة

الملف معطوب ببرنامج الرار يا ريت لو امكن تحولية الى زيب

تم تعديل هذه المشاركة بواسطة ياسر العطري في 13 مارس 2005 في 18:26

#12

الملف معطووووووووووووووووب

#13

مضى الاسبوع الثالث وانا لم اتلقى رد على سؤالي ياترى ما السبب

#14

الملف المرفوع من طرف الخت زهرة سليم اعيد رفعه مرة اخرى

YYY.rar

#15

لدينا مشروع جاهز شبيه بما تقول

devloperx@hotmail.com

www.theeng.com

#16

الملف الثاني كمان معطوووووووووووب يـــا biskra

#17

ياريت حد يرد علي هذا السؤال

#18

وينك يا اخ ـــ BASKRA

#19

الاخ ياسر

حاول اولا تحويل الاستعلام الجدولى الى جدول و ذلك عن طريق انشاء استعلام انشاء جدول مبنى على الاستعلام الجدولى ثم بنى التقرير على الجدول او استعلام تحديد للمطلوب من بيانات الجدول

و السلام

اخوك محمد هاشم

#20

المطلوب إظهار جميع الخدمات و جميع المراكز بمجاميعها ، أليس كذلك ؟

إليك الحل في الملف المرفق .

قل لي لأن هذا الملف معطوب أيضاً .

XQuery.zip

#21

اشكرك يا صالح على تجاوبك معي وعلى مجهودك الرائع

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

ولكم مني أجمل واعذب تحية

شعاري / من علمني حرفا صرت له عبدا

_____________________________.rar

تم تعديل هذه المشاركة بواسطة ياسر العطري في 25 مارس 2005 في 04:16

#22

جرب مثل هذا

#23

Dim rpt As Access.Report, ctl, ctl1 As Access.TextBox

Dim fld As Field

Dim strDB As String, intLeft As Integer

DoCmd.DeleteObject acQuery, "ÌÏæáí ãÑÇßÒ"

Set qdf = db.CreateQueryDef("ÌÏæáí ãÑÇßÒ", "SELECT Table1.* FROM Table1")

Set rpt = CreateReport

rpt.RecordSource = "ÌÏæáí ãÑÇßÒ"

For Each fld In qdf.Fields

Set ctl1 = Application.CreateReportControl(rpt.Name, acTextBox, acDetail, , _

fld.Name, intLeft, inttop)

' Set ctl = Application.CreateReportControl(rpt.Name, acLabel, acPageHeader, , _

' fld.Name, intLeft, inttop)

intLeft = intLeft + ctl1.Width * 2

Next fld

' Open report in Print Preview.

DoCmd.OpenReport rpt.Name, acViewPreview

' Restore report.

DoCmd.Restore

' Display Microsoft Access as active application.

#25

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

تقرير.rar

تم تعديل هذه المشاركة بواسطة ياسر العطري في 8 أبريل 2005 في 05:54

هذا الموضوع مغلق.

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

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

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

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

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