السلام عليكم ورحمه الله
اخواني سبق وطلبت مساعدة في صياغة استعلام معقد
وقد قام بذلك الاخ طارق جزاه الله خير
والاستعلام يخرج عدد الموظفين اللي مجموع اخر درجات لهم اكثر من 200
وقد قام بالمطلوب
بس الاستعلام ليس بالفيجول وحده
عمل استعلام بالاكسس ومن ثم استدعاه بالفيجول وعمل استعلام اخر عليه
فهل اقدر عمل كل ذلك بالفيجول وحده
وهذا هو المرفق لمن اراد الاستفاده او من عنده القدره على المساعده
up
كلمات اتعبت الملائكة في كتابة الأجر فذهبوا وشكوا إلى ربهم .... ماذا يفعلون
فقال لهم سبحانه وتعالى اطووها بصحائفها وضعوها تحت عرشي فتبقى حسناتها إلى يوم القيامة الله اكبر
(( اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك))
الأخ الفاضل ...
أرجوا أن يفيدك هذا التعديل فى ما تريد إنجازه (بناءاً على ما فهمته من طلبك فى رسالتك الخاصة)
باستخدام MS-VB 6.0
شكراً
Nothing is impossible, the word impossible itself says that: I M - Possible
الله يحفظك من كل سوء مهندس اسامه
هذا ماردته بالضبط
ولا انسى اششكر الاخ طارق مرة اخرى
الأخ الفاضل ...
اقتباسماذا لو كنت اريد احصر الموظفين الذي حصلوا على معدل ممتاز في اخر ثلاث سجلات لهمييعني بدل الدرجه يكون تقرير(جيد- ممتاز - جيد جدا)
م كيف تكون جملة sql
أرجوا أن يفيدك هذا التعديل فى ما تريد إنجازه (بناءاً على ما فهمته من طلبك فى رسالتك الخاصة)
باستخدام MS-VB 6.0
شكراً
تم تعديل هذه المشاركة بواسطة Eng. Usama El-Mokadem في 7 سبتمبر 2007 في 20:39
Nothing is impossible, the word impossible itself says that: I M - Possible
بارك الله لك في علمك ونفعك به
اخي اسامه المثال كان اروع مايكون صحيح انه صعب ودخت معه السبع دوخات على مافهمت جزء منه بس احب الصعوبه انا
المهم
انت حصرت الموظفين الحاصلين على مجموع 3 سجلات اكثر من 200 ووضعت تقارير حسب ذلك
يعني اللي يحصل على 300 يكون ممتاز وهكذا
وفعلا كنت احتاج لذلك
لكن ماطلبته هو افترض ان حقل mark هو عقل نصي يدخل فيها التقرير يدويا يعني جيد جيدجدا ممتاز وهكذا
اريد جمله select اللي تعطيني الموظفين الحاصلين على ممتاز في اخر ثلاث تقارير لهم
بدون مايشمل الاستعلام على مجموع الدرجات
فقط الموظفين اللي حصلوا على ممتاز في اخر 3 سجلات لهم
اتمنى اني اوصلت المطلوب بوضوح
وشاكر لك مجددا جهودك
الأخ الفاضل ...
بكل بساطة أحذف الجزء ( ,*.DTable) من السطر الأول للإستعلام، أى يكون
StrQuery = "SELECT Employees.EmpName, " & GetRanks() & " As Rank "
بدلاً من
StrQuery = "SELECT Employees.EmpName, DTable.*, " & GetRanks() & " As Rank "
شكراً
Nothing is impossible, the word impossible itself says that: I M - Possible
يبدو اني فشلت في ايصال ماريد واتعبت من حولي
قصدت يارعاك الله
ان هناك حقل نصي اسمه rank في جدول
الدرجات
بدل من mark
يعني مثلا تقارير الاداء الوظيفي لمجموعه عاملين
(جيد-جيد جدا-ممتاز)
ويتم ادخالها يدويا
بدون مانستنتجها بناءا على درجات
يععني جدول الدرجات يتكون من
id
employeeid
rank
بدون مايكون هناك حقل للدرجات
اريد حصر الموظفين اللي حصلوا على تقدير ممتاز في اخر ثلاث سجلات لهم
يارب يكون القصد واضح
هذا الموضوع مغلق.