morsy

الاخ العزيز رضوان آسف على لخبطتك معاى ولكنى ساوضح العمل وتدرجة معى ومعك من الاول ومعلش وسع صدرك معى ..... فى المشاركة رقم 11 كان البرنامج بدون تعديلك وعندما ارسلت التعديل لصقته واشتغل معى ولكنه لم يعمل من خلال نموذج ...... فى المشاركة رقم 14 عملت انا تعديل على الكود ليعمل من خلال نموذج واعطانى المبيعات للموظفين خلال فترة ........ فى المشاركة رقم 16 , 17 عدلت كذلك على الكود باضافة معيار آخر وهو رقم الموظف لكى يعطى مبيعات موظف واحد خلال فترة ....... وكان كل ذلك يظهر كاستعلام وطلبي الهام والذى انتظرة وارفقت ملفات للمساعدة من اى واحد يفهم اكثر منى فى الكود هو ان تظهر النتائج من خلال تقرير وهذا هو طلبى وياريت الاقى له حل لاننى تعبت ومحتاج انهاء البرنامج فى اقصر وقت ..... ارجو ان اكون قد وضحت فكرتى ورتبت الموضوع من الاول حتى نبدأ من أخر نقطة وهى التعديل على المشاركة رقم 14 ليعمل الاستعلام من خلال تقرير لكل الموظفين خلال فترة ...... وكذلك التعديل على المشاركة 17 ليعمل النموذج باظهار النتائج كتقرير لموظف بين تاريخين ..... ودمت لى اخ عزيز ودمت للمنتدى وكل محتاج للعلم وشكرا

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

نسيت المثال الاجنبي ها هو بالمرفقات _______________________________________CrossTab_Query.rar

مرفق مثال معدل على كود الاخ ابوهاجر واريد ما الخطأ فى الكود والكود اخذته من المثال الاول فى المشاركة وعدلت فيه بناء على الجدول لبرنامجى ارجو مشاهدته ومعرفة الخطأ..... ثانيا عملت عوضا عن ذلك استعلام لمبيعات الفرد عن طريق دالة dcount للحقول تمشى الحال حتى الان على الرغم من اننى اجدها غير مرنة عند تغيير اسم الباقة او اضافة باقة جديدة ... عندها لابد من الدخول والتعديل على سطر دالة dcount داخل التقرير ولكننى احتاج الحل الان لتقديمها للعمل وطلبى اننى اريد عمل نفس التقرير الجدولى qry_sales_all_2date نسخة منه ولكن تعمل على دالة dcount اى ربطها برقم الموظف والباقة والتاريخ وللجميع الشكر وايضا وجدت ملف تقرير مبنى على استعلام جدولى من موقع اجنبي رايت انكم قد تستفيدون منه وللجميع الشكر على المجهود والله الموفق من قبل ومن بعد Using_MS_Access_Creating_Report_based_on_crosstab_query__isnull__report_access.rar aa.rar

الاخ العزيز منتصر جعلك الله منتصرا على طول اشكرك عزيزي على المرور وانا منتظر التجريب فقط واقولك النتيجة .... ولكن هناك برامج كثيرة وجدتها تعمل على النسخ الانجليزية واذا كانت الرسائل msgbox بالعربية فتظهر ملخبطة ولكن الكود يعمل ولكن انا لاحظت ان الكود كله لا يعمل اذا كان التصميم على اوفيس عربي حتى ولو كان الاكواد كلها انجليزى ... الاخ الغالى Rudwan نورت المشاركة ولكنى والله منذ تعلمت على ايدى فطاحل الفريق العربي وافيسنا وجامعة اهلا عرب فانا اكتب مسميات الحقول كلها بالانجليزي حتى تسهل كتابة الكود ويمكنك التاكد من ذلك فى مثالى الذى عرضته عن الاستعلام الجدولى بين تاريخين والذى الى الان لم نجد له حل وشكرا مرة اخرى على مرورك دمت لنا وللمنتدى

وانا ايضاَ اتمنى التعاون من الاخوة الاصدقاء لان المشكلة دي غلبتنى ومش لاقي ليها حل

الاخوة الاعزاء Rudwab و Baraa انا مش عارف اذا كنتم لسه معايا وبتحاولوا .... ام تركتوا الموضوع ..... ياريت اعرف .... ولو كنتم تحاولون معى لايجاد حل فقد عثرت على برنامج يمكن تستفيدوا منه لانكم اعلم منى بالاكواد .... حيث هناك اكواد تحت التقارير المرفقه بالمثال ممكن تحل المشكلة لو احدكم قرأ الكود وشرحه لنا ولكم منى جزيل الشكر _______________________________________CrossTab_Query.rar

الاخوة الاعزاء اريد التقرير الذى يبنى على استعلام الاخ Baraa بدون تشغيل الاستعلام من النموذج ولكم الشكر

شكرا لك اخى ابو سليم على هذه المجموعة الجميلة من الامثله واشكر لك مجهودك الرائع فى تجميعها وارسالها لاخوانك اصدقاء المنتدى الغالى ..... انت تستاهل الثواب وهم يستاهلون العلم والمعرفه .... جزاك الله كل خير والى الامام

الاخ العزيز Baraa تحية احترام لشخصك الكريم ومجهودك الذى تشكر عليه لقد فهمت قصدك بعد ما نزلت الملف الذى انشأت استعلام تكوين جدول عليه ورايت المثال وهو ناجح وعلى فكرة الرسائل الخاصة بالاستعلامات يمكن توقيفها عن طريق وضع السطر التالي اول الكود DoCmd.SetWarnings False وفي نهية الكود ضع DoCmd.SetWarnings true وما نريدة الان هو بعد عمل الاستعلام تكوين جدول كيف ومن خلال زر واحد انقر عليه من النموذج ان يتم تكوين الخطوات التى سويتها انت بالاضافة الى تشغيل ( التقرير) الذى سيبنى على هذا الجدول الجديد ..... كيف يتم ذلك من خلال كود واحد يعمل بمجرد النقر على زر فى نموذج!!!!!!!!!!!

الاخ العزيز Rudwan تحية عاطرة لك على احتمالك لى وللمتابعة الحارة لهذا الموضوع الهام ... لقد جربت المثال كما قلت ولكنه مازال يعطة نتيجة واحدة لاى تاريخ ادخله وهى كل مبيعات الاشخاص ولا يرتبط بتاريخ محدد ولقد جربت التاريخ 21/4/2008 وقد ادخلته واعطانى نتيجة بكل المبيعات في كل التواريخ وليس التاريخ الذى ادخلته .... ولكن لو شغلت الاستعلام aa وادخلت تاريخين ورقم الموظف ستجد النتيجة مضبوطة وهذا ما اريدة فى التقرير يعنى ياريت تاخد الاستعلام aa وتحاول تنشئ تقرير عليه مع حل المشكلة التى ظهرت معى ولك كل الشكر على مجهودك المتواصل

اخى العزيز المستكشف لقد عرفت طلبك واود ان اعرفك عن تجربة معى استخدمها فى احد البرامج لادخال اصناف فواتير البيع والشراء وهى تعمل معى بدون مشاكل .... اولا اود ان اعرفك واعرف الاخوة الذين يريدون التعامل مع الباركود .... معظم اجهزةالباركود الموجودة بالسوق يتعرف عليها الجهاز بدون مشاكل وبدون برامج مساعدة .... وبالتالى اشتري جهاز الباركود واشبكة بمنفذ الUSB وسيعمل تلقائيا معك .... الباقى هو حاجتين مهمتين الاولى احد خطوط الباركود لازم تنسخها داخل مجلد fonts بالويندوز ....والثانى هو بواسطة هذا الخط اكتب الارقام التى تريد ادخالها فى البرنامج بواسطة الباركود حتى ولو على ملف وورد واطبعها والان لم يعد هناك حاجة لماكينات خاصة لطباعة الباركود اى طابعه الان يمكن طباعة الباركود وحتى على ورق A4 ثم تقصة وتلصقة على المنتج او على الكارت فى حالة برنامجك وعند الادخال يقرا الباركود صورة الرقم من الكارت او الملصق ويدخل فى الخانة التى تقف عليها مباشرة ارجو ان تكون فهمت ما اعنية وعلشان اوضح اكثر سارفق لك الخط الذى اعمل عليه الان في برنامجى وكذلك صفحة الوورد التى اكتب عليها الارقام التى اريد تحويلها لخطوط باركود واطبعها عادى على طابع عادية وعلى ورق عادى وسوف يقراها الباركود على طول بدون مشاكل باذن الله ..... للتوضيح ملف الوورد المرفق سيظهر الرقم وفى بديته واخره نجمتين على هذا الشكل * 123 * اذا كان الخط المرفق مثبت على الكمبيوتر وسيظهر بدلا من النجمتين علامتين تعجب ! 123! كما بالشكل كل ماعليك هو تغيير الرقم فقط ويمكنك التحكم فى حجم الخط كما تشاء والله الموفق Desktop.rar

اخى العزيز Rudwan .... الاخوة الاعزاء المشاركين فى الموضوع ياريت احد يجرب ما انشئناه فى الاستعلام على المثال فى نموذج الاخ الحبيب الغالى ابو هاجر لعله ينفع ولقد حاولت ولكن يعطى خطأ لقد طبقت الكود التالى Dim StrWhere As String Dim strSQL As String Dim R As Report Dim A Dim B Dim dbs As Database Dim qdfTRANSFORM As QueryDef A = "#" & [Forms]![sales2date]![A] & "#" B = "#" & [Forms]![sales2date]! & "#" StrWhere = "" & A & " And " & B & "" StrWhere = " Between DATE " & StrWhere & "" strSQL = "TRANSFORM Count(daily_data.mobily_no) AS Countãämobily_no" _ & "SELECT daily_data.PF, imp_data.imp_name, Count(daily_data.mobily_no) AS [ÅÌãÇáí mobily_no]& Chr(13)" _ & "FROM bandles INNER JOIN (daily_data INNER JOIN imp_data ON daily_data.PF=imp_data.PF) ON bandles.bandle_no=daily_data.bandle_kind" & Chr(13) _ & "WHERE " & StrWhere & "" & Chr(13) _ & "GROUP BY daily_data.PF, imp_data.imp_name " & Chr(13) _ & "PIVOT bandles!bandle_kind;" Set dbs = CurrentDb() Set qdfTRANSFORM = dbs.CreateQueryDef _ ("", strSQL) DoCmd.OpenReport "rpt", acViewDesign Set R = Reports("rpt") R.RecordSource = qdfTRANSFORM.SQL DoCmd.OpenReport "rpt", acViewPreview End Sub 'On Error GoTo Err_qq_Click ' ' Dim stDocName As String ' ' stDocName = "aa" ' DoCmd.OpenQuery stDocName, acNormal, acEdit ' 'Exit_qq_Click: ' Exit Sub ' 'Err_qq_Click: ' MsgBox Err.Description ' Resume Exit_qq_Click ' 'End Sub ' ' وحاولت انشاء تقرير باسم rpt ولكن الكود به خطأ ياليت احد يتوصل لحل لانشاء التقرير وللجميع الف تحية

هذه هى الرسالة التى تظهر عند انشاء نموذج او تقرير مبنى على الاستعلام AA

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

هناك مشكلة فى رفع المثال بعد التعديل الاخير CrossTabParameter2.rar

اخى العزيز رضوان بفضل من الله وبفضل تعاونك معى توصلت لحل الاقتراح الاخير وهو اضافة معيار رقم الموظف pf الى معيار التاريخ وقد اصبحت الفكرة واضحة عندى واردت ان اوضحها للخوة الكرام وهو يجب تعريف الحقول التى سنعمل عليها معايير حسب نوعها رقمية ام تاريخ ام نص ..... وذلك بعد جملة PARAMETERS ثم اضافة الحقل من النموذج الى المعيار بعد جملة where وبذلك قد توصلنا سويا لحل مشكلة لطالما ارقت مضاجعنا وقصرت برامجنا فالحمد لله والله الموفق من قبل ومن بعد شكرا لك مرة اخرى اخى Rudwan وشكرى لكل الزملاء ... مرفق المثال الاخير بعد اضافة المعيار الثانى

اخى العزيز Rudwan معلش اثقلت عليك ولكن انا عارف انك طويل البال ...... ايه رايك نجرب اضافة معيار اخر مثل رقم الموظف (pf) مع معيار التاريخ وذلك باضافة حقل فى النموذج نختار منه رقم الموظف وندخل التاريخين ونشغل الاستعلام (واردت فقط لفت نظرك لشئ وهو انك عرفت حقل التاريخ فى اول كود الاستعلام فاذا اضفت تعريف لرقم الموظف pf واضفت حقل رقم الموظف من النموذج الى جملة where اظن انها تضبط انشاء الله سوف احاول معك انت من جهه وانا من جهه وسنصل باذن الله) اثابك الله وحفظك من كل سوء

الحمد لله لقد توصلت للحل الذى اريده وتريدونه معى الف شكر اخى rudwan بفضل الله ومن بعده بفضلك توصلت للحل انظر للمثال بعد التعديل على كودك اخي rudwan وشوف النموذج sales2date وغير في التاريخ كم تشاء شكرا مرة اخرى على تعاونك وعبقريتك CrossTabParameter1.rar

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

الاخ العزيز Rudwan اشكرك جزيال الشكر على التعاون لقد عمل الاستعلام بالفعل حسب الكود الاخير الذى استخدمته داخل المثال حيث قارنت بين الكود الذى وضعته من قبل والكود داخل المثال الاخير هذا السطر WHERE (((daily_data.date) Between [startingDate] And [Ending Date])) الظاهر هو اللى كان عامل مشكلة. وياريت تكمل جميلك وتوصلنى لحل ان استخدم المثال الاخير من خلال نموذج حيث اننى ساجرب واوافيك بالنتيجة باذن الله

الاخ العزيز baraa بعد التحية .... لقد جربت ما طلبت ولكن لم تفلح معى فلقد عملت استعلام تحديد ووضعت الحقول الاربعة رقم الموظف - ورقم الهاتف - ونوع الباقة - والتاريخ ووضعت معيار على السريع كالتالي between [from] and [to] وعملت عليه استعلام جدولى ولكن اعطانى كالسابق انه لم يتعرف على حقل from عموما اشكرك على مجهودك معى وياريت تجلاب على المثال المرفق بالاعلى عندك الجدول daily_data طبق مثالك عليه واخبرنى بالتيجة فى المثال وشكرا مرة اخرى

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

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

الاخ العزيز Rudwan لك منى جزيل الشكر على الاهتمام ..... واعرفك باننى قد نسخت الكود بالفعل وعندما شغلت الاستعلام ظهرت الرسالة التالية التى بالمرفقات فياليت تقوم انت بالتعديل على البرنامج الاول وتشوف النتيجة وشكرا مرة اخرى