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

المطلوب .. تعديل على كود استعلام التوحيد الشرطي

بدأه alamdi في 1 ديسمبر 2008 · 13 رد · 1,410 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

سلام الله عليكم

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

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

احتاج إلى تعديل على هذا الإستعلام (إستعلام التوحيد) بحيث يأخذ من جدولين مع اضافة شرط أن يأخذ كلمة عهدة من الجدولين من عمود نوع العهدة ...... والمراد هنا أن يتم توحيد الأصناف التي بها عهدة شخصية أو عهدة مكتبية.. مع الشكر الجزيل

Select [رقم الصنف بالفهرس],[اسم الصنف],[الموديل],[رقم أمر الصرف],[تاريخ أمر الصرف],[الفئة],[نوع العهدة],[المستفيد],[الفرع],[إجمالي الكمية] From Gard

UNION ALL

Select [التوريد],[اسم الصنف],[الموديل],[رقم أمر الصرف],[تاريخ أمر الصرف],[الفئة],[نوع العهدة],[المستفيد],[الفرع],[إجمالي الكمية] From المصروفات;

أرجوا التعديل عليه مع الشكر الجزيل

#2

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

اخي alamdi

ساشرح لك الطريقة وان شاء الله يكون هو مطلوبك

1: قم بإنشاء استعلام تحديد من الجدول Gard ثم ضع الكلمة ( عهدة ) في خانة المعايير وتحت الحقل نوع العهدة. اعرض الاستعلام في عرض اسكيو ال وانسخ الجملة.

2: قم بإنشاء استعلام توحيد والصق ما نسخته به... واتركه لتكمل

3: قم بإنشاء استعلام تحديد من الجدول المصروفات وايضاً ضع الكلمة ( عهدة ) في خانة المعايير وتحت الحقل نوع العهدة. ثم انسخ جملة اسكيو ال.

4: عد الى استعلام التوحيد والصق ما نسخته مؤخراً تحت الكلمة Union All

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

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

#3

أشرك اخي الكريم على مرورك

سأجرب ما قلته أن شاء الله

ولكني عندي سؤال آخر في نفس الموضوع

اردت أن يكون التقرير مشروط بسؤالي عن اسم المستفيد المطلوب في هذا التقرير .......... وفي نفس الوقت يقوم بإضافة السجلات التي بها كلمة عهدة (سواء عهدة مكتبية أو عهدة شخصية) .

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

 Select [رقم الصنف بالفهرس],[اسم الصنف],[الموديل],[رقم أمر الصرف],[تاريخ أمر الصرف],[الفئة],[نوع العهدة],[المستفيد]=[enter employee name],[الفرع],[إجمالي الكمية] From Gard
 UNION ALL Select [التوريد],[اسم الصنف],[الموديل],[رقم أمر الصرف],[تاريخ أمر الصرف],[الفئة],[نوع العهدة],[المستفيد]=[enter employee name],[الفرع],[إجمالي الكمية] From المصروفات;

تم تعديل هذه المشاركة بواسطة alamdi في 1 ديسمبر 2008 في 22:02

#4

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

إليك اخي الكريم النتجية التي وصلتها ونجحت بها بعد مشورتك الكريمة ....... والحمد لله


FROM Gard
WHERE (((Gard.[نوع العهدة])="عهدة مكتبية")) OR (((Gard.[نوع العهدة])="عهدة شخصية"))
UNION ALL SELECT المصروفات.[التوريد], المصروفات.[اسم الصنف], المصروفات.[الموديل], المصروفات.[إجمالي الكمية], المصروفات.[المستفيد], المصروفات.[الفرع], المصروفات.[رقم أمر الصرف], المصروفات.[تاريخ أمر الصرف], المصروفات.[الفئة], المصروفات.[الرقم المصنعي], المصروفات.[نوع العهدة]
FROM المصروفات
WHERE (((المصروفات.[نوع العهدة])="عهدة مكتبية")) OR (((المصروفات.[نوع العهدة])="عهدة شخصية"));
SELECT Gard.[رقم الصنف بالفهرس], Gard.[اسم الصنف], Gard.[الموديل], Gard.[إجمالي الكمية], Gard.[المستفيد], Gard.[الفرع], Gard.[رقم أمر الصرف], Gard.[تاريخ أمر الصرف], Gard.[الفئة], Gard.[نوع العهدة], Gard.[الرقم المصنعي]

ولكن تبقى لي إختيار اسم المستفيد كشرط في عرض التقرير

#5

اخي alamdi

بإمكانك وضع الجملة السابقة او استعلام التوحيد كمصدر للتقرير ثم انشاء نموذج بدون مصدر بيانات ووضع مربع تحرير وسرد يعرض لك جميع اسماء المستفيدين من الجدول المدوّن به اسماء المستفيدين وتعمل زر أمر لعرض التقرير ومن معيار فتح التقرير بالكود بإمكانك التحكم في عرضه على السجل المطابق للإسم بمربع التحرير والسرد دون الحاجة الى استعلام.

انظر المثال المرفق لتعرف كيف يتم ذلك

واذا واجهتك مشكلة ارفق ملفك ليتم التعديل عليه ان شاء الله

بالتوفيق

__________________.rar

#6

سلام الله عليكم

مشكور جداً أخي سأجرب ذلك وأخبرك النتجية

ودمت سالماً

#7

بســم الله الـرحمــن الرحيــم

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


Option Explicit

Private Sub CmdExit_Click()
On Error GoTo Err_CmdExit_Click


DoCmd.Close

Exit_CmdExit_Click:
Exit Sub

Err_CmdExit_Click:
MsgBox Err.Description
Resume Exit_CmdExit_Click

End Sub
Private Sub CmdPreview_Click()
On Error GoTo Err_CmdPreview_Click

Dim stDocName As String

stDocName = "amdi12"
DoCmd.OpenReport stDocName, acPreview, , "[ÇáãÓÊÝíÏíä].[ÇáÇÓã ÇáÃæá]=forms!amdi-n!Combo1"

Exit_CmdPreview_Click:
Exit Sub

Err_CmdPreview_Click:
MsgBox Err.Description
Resume Exit_CmdPreview_Click

End Sub

Private Sub ÃãÑ2_Click()

End Sub
Option Compare Database

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

#8

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

DoCmd.OpenReport stDocName, acPreview, , "[الأسم الأول ]=forms!amdi-n!Combo1"

تم تعديل هذه المشاركة بواسطة يوسف احمد في 4 ديسمبر 2008 في 02:56

#9

للأسف حاولت مرات ومرات كثيرة ولكن دون جدوى

حتى إني غيرت الملفات بنفس النموذج الذي أرفقته لي

:tantrum:

#10

في الجداول:

جدول المستفيدين :

اسم المستفيد نص

في الإستعلامات:

استعلام التوحيد :

اسم المستفيد رقم

المطلوب :

إستعلام التوحيد يعرض لي اسم المستفيد كنص بدلاً من رقم

هل يوجد كود يحول الرقم إلى نص

مرفق الكود لكي يتم التعديل عليه وتحويل المستفيد إلى نص بدلاً من رقم

وإدخال دالة شرطية

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

:huh: 

SELECT [رقم الصنف بالفهرس],[اسم الصنف],[الموديل],[إجمالي الكمية],[المستفيد],[الفرع],[رقم أمر الصرف],[تاريخ أمر الصرف],[الفئة],[الرقم المصنعي],[نوع العهدة],[بيان الجرد] FROM Gard
WHERE (((Gard.[نوع العهدة])="عهدة شخصية")) OR (((Gard.[نوع العهدة])="عهدة مكتب"))
UNION ALL SELECT [التوريد],[اسم الصنف],[الموديل],[إجمالي الكمية],[المستفيد],[الفرع],[رقم أمر الصرف],[تاريخ أمر الصرف],[الفئة],[الرقم المصنعي],[نوع العهدة], [بيان الجرد] FROM المصروفات
WHERE (((المصروفات.[نوع العهدة])="عهدة مكتب")) OR (((المصروفات.[نوع العهدة])="عهدة شخصية"));

أرجوا المساعدة ......... من الأساتذة الكرام

#11

اذا تكرمتم للرفع

#12

الموضوع مهم جداً قبل بداية الجرد

#13

اخي alamdi

السلام عليكم

من الافضل ان ترفق ملفك ليتم العمل عليه .. لو كانت البيانات سرية بإمكانك اخذ نسخة من البرنامج وحذف البيانات منها مع اضافة بعض البيانات لنستطيع تتبع النتائج.

مع الشكر والتقدير

#14

معك حق

سأفعل ذلك وسأرسل الملف اليوم إن شاء الله

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

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

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

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

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