بوعبد الله محفوظ قام بنشر ديسمبر 31, 2015 مشاركة قام بنشر ديسمبر 31, 2015 السلام عليكم ورحمة الله تعالى وبركاته كيف يمكن إضافة الأشهر والسنوات إلى الكمبوبوكس بحثة كثيرا لكن للأسف جميع الحلول التي وجدتها لم تفلح معي ! الكود الذي أصابني بالجنون هو Dim lMonth As Long For lMonth = 1 To 12 Me.cboMonth.AddItem Format(DateSerial(2000, lMonth, 1), "MMMM") Next lMonth الكل اشتغل معهم إلا أنا ! قمت بتغير "Region Format" إلى الولايات المتحدة ودون فائدة سأقوم بالإعتماد على هذا الفورم لفلترت التقرير وطباعته هل من حل بارك الله فيكم Month.rar رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر ديسمبر 31, 2015 مشاركة قام بنشر ديسمبر 31, 2015 حياك الله اخينا بو عبدالله اولا وللعلم : الطريقة التي استخدمتها في الكود وبالتحديد الطريقة additem تتطلب وضع خاصية "نوع مصدر الصف" لمربع السرد الى "قائمة القيم" ثانيا : عليك بوضع الخاصية rowsource الى طول صفري "" ! فتظهر في بداية الكود وسيصبح الكود وعند الحدث : cboMonth.RowSource = "" Dim lMonth As Long For lMonth = 1 To 12 Me.cboMonth.AddItem Format(DateSerial(2000, lMonth, 1), "MMMM") Next lMonth وذلك لكي لا تتكرر القيم عند تكرار الحدث ! ثالثا : لم يحتوي مرفقك على الكود ولم يظهر اين الحدث بالتوفيق رابط هذا التعليق شارك More sharing options...
بوعبد الله محفوظ قام بنشر ديسمبر 31, 2015 الكاتب مشاركة قام بنشر ديسمبر 31, 2015 منذ ساعه, رمهان said: حياك الله اخينا بو عبدالله اولا وللعلم : الطريقة التي استخدمتها في الكود وبالتحديد الطريقة additem تتطلب وضع خاصية "نوع مصدر الصف" لمربع السرد الى "قائمة القيم" ثانيا : عليك بوضع الخاصية rowsource الى طول صفري "" ! فتظهر في بداية الكود وسيصبح الكود وعند الحدث : cboMonth.RowSource = "" Dim lMonth As Long For lMonth = 1 To 12 Me.cboMonth.AddItem Format(DateSerial(2000, lMonth, 1), "MMMM") Next lMonth وذلك لكي لا تتكرر القيم عند تكرار الحدث ! ثالثا : لم يحتوي مرفقك على الكود ولم يظهر اين الحدث بالتوفيق مشكووووووور أستذنا الغالي رمهان أولا بخصوص الملف قمت بإرفاقه فارغا بعد تعبي من المحاولات و لاعتقادي بأني غيرت قيم كثيرة ثانيا كنت أعتقد بأن الكود مدمج داخل الأكسس ويتم توليد الأشهر تلقائيا ولا يحتاج إلى مصدر الصف بخصوص الحدث والله لا أدري أين أضعه ، وضعته في البداية في "cboMonth Click" ثم "form open" ثم "form current" -------------------------------------------------------------------------------------------------------------------------------------- إذا أمكن أستذنا زيارة هذا الموضوع http://www.officena.net/ib/topic/66084-كيف-يمكن-الحصول-على-رسالة-msgbox-ديناميكية/ لذا فكرت بعمل فورم أقوم بفلتر التقرير ثم من خلال زر أقوم بالطباعة -------------------------------------------------------------------------------------------------------------------------------------- كل ما أريده هو إظهار السنوات داخل مربع سرد إظهار الأشهر داخل مربع سرد آخر إذا أمكن طريقة بسيطة وسهلة أكن لك من الشاكرين بالشرح الممل لو تكرمت علينا بارك الله فيك وفي علمك ورزقك من حيث لا تحتسب 1 رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر ديسمبر 31, 2015 مشاركة قام بنشر ديسمبر 31, 2015 30 دقائق مضت, بوعبد الله محفوظ said: مشكووووووور أستذنا الغالي رمهان أولا بخصوص الملف قمت بإرفاقه فارغا بعد تعبي من المحاولات و لاعتقادي بأني غيرت قيم كثيرة ثانيا كنت أعتقد بأن الكود مدمج داخل الأكسس ويتم توليد الأشهر تلقائيا ولا يحتاج إلى مصدر الصف بخصوص الحدث والله لا أدري أين أضعه ، وضعته في البداية في "cboMonth Click" ثم "form open" ثم "form current" -------------------------------------------------------------------------------------------------------------------------------------- إذا أمكن أستذنا زيارة هذا الموضوع http://www.officena.net/ib/topic/66084-كيف-يمكن-الحصول-على-رسالة-msgbox-ديناميكية/ لذا فكرت بعمل فورم أقوم بفلتر التقرير ثم من خلال زر أقوم بالطباعة -------------------------------------------------------------------------------------------------------------------------------------- كل ما أريده هو إظهار السنوات داخل مربع سرد إظهار الأشهر داخل مربع سرد آخر إذا أمكن طريقة بسيطة وسهلة أكن لك من الشاكرين بالشرح الممل لو تكرمت علينا بارك الله فيك وفي علمك ورزقك من حيث لا تحتسب اخي بوعبدالله هل الجواب هنا وبوضع مربعي تحرير وسرد يغني عن الموضوع التالي رابط هذا التعليق شارك More sharing options...
بوعبد الله محفوظ قام بنشر ديسمبر 31, 2015 الكاتب مشاركة قام بنشر ديسمبر 31, 2015 2 دقائق مضت, رمهان said: اخي بوعبدالله هل الجواب هنا وبوضع مربعي تحرير وسرد يغني عن الموضوع التالي لم أفهم ماذا تقصد أستاذ رمهان رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر ديسمبر 31, 2015 مشاركة قام بنشر ديسمبر 31, 2015 اقصد والذي فهمته انه لديك هذا الموضوع اولا ولكنك لم تحصل على جواب فقمت بعمل هذا الموضوع وهو سيتم سرد السنوات والاشهر في مربعي تحرير وسرد وسيتم بناء التقرير على هذه القيم وهنا لم يعد الموضوع السابق له اهمية لديك ؟ رابط هذا التعليق شارك More sharing options...
بوعبد الله محفوظ قام بنشر ديسمبر 31, 2015 الكاتب مشاركة قام بنشر ديسمبر 31, 2015 14 دقائق مضت, رمهان said: اقصد والذي فهمته انه لديك هذا الموضوع اولا ولكنك لم تحصل على جواب فقمت بعمل هذا الموضوع وهو سيتم سرد السنوات والاشهر في مربعي تحرير وسرد وسيتم بناء التقرير على هذه القيم وهنا لم يعد الموضوع السابق له اهمية لديك ؟ كلا الموضوعين لديهما أهمية لدي فكرت الموضوع الثاني أتت متأخرة قليلا كما أني أحب تعلم جميع الطرق الممكنة وغرضي من الأسئلة التي أطرحها في المنتدى ليس فقط الحصول على الجواب وانتهى الأمر وإنما أريد تعلم طريقة تفكير المبرمج او صانع قواعد البيانات رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر ديسمبر 31, 2015 مشاركة قام بنشر ديسمبر 31, 2015 تمام .. ابشر فخلينا نغلق الموضوع هذا اولا ثم نعود للموضوع الاخر باذن الله ! اعتقد انه تم تطبيق الكود التالي وبنجاح cboMonth.RowSource = "" Dim lMonth As Long For lMonth = 1 To 12 Me.cboMonth.AddItem Format(DateSerial(2000, lMonth, 1), "MMMM") Next lMonth وهذا ما يخص الاشهر ! اما بالنسبة للسنوات فكيف تريد سردها ! هل منسنة معينة وحتى السنة الحالية ؟ اما ماذا ؟ بالتوفيق واستاذنك للنوم وموعدنا غدا باذن الله رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر يناير 1, 2016 مشاركة قام بنشر يناير 1, 2016 10 ساعات مضت, رمهان said: اما بالنسبة للسنوات فكيف تريد سردها ! هل من سنة معينة وحتى السنة الحالية ؟ اما ماذا ؟ ماذا عن السنوات اخ بو عبدالله ؟ رابط هذا التعليق شارك More sharing options...
بوعبد الله محفوظ قام بنشر يناير 1, 2016 الكاتب مشاركة قام بنشر يناير 1, 2016 3 ساعات مضت, رمهان said: 3 ساعات مضت, رمهان said: ماذا عن السنوات اخ بو عبدالله ؟ ماذا عن السنوات اخ بو عبدالله ؟ بخصوص السنوات أريدها أن تبدأ من 2015 --------------------------------------------------------------------------- أستاذنا الكريم رمهان بخصوص الأشهر قمت أيضا بتجريب هذا الكود وهو لا يحتاج إلى "RowSource" Private Sub Form_Load() Dim i As Integer For i = 1 To 12 cboMonth.AddItem (MonthName(i)) Next i End Sub لكن للأسف مع الكود الأول أو الثاني يأتي التقرير فارغ أعتقد أن المشكلة تكمن في أن التقرير يقوم بتخزين الأشهر "أرقام" أما مربع السرد فيقوم بتخزينها حروف والله أعلم ------------------------------------------------------------------------------- أيضا لماذا عند تغير التنسيق من لوحة التحكم لا يشتغل التقرير هل هناك حل لتجاوز هذه المشكلة. -------------------------------------------------------------------------------- آخر سؤال هل يمكن إضافة "check box" لتحديد التقرير الذي أريد طباعته وزر واحد للطباعة يعمل حسب التحديد السابق ---------------------------------------------------------------------------------- PreTest 1.rar رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر يناير 1, 2016 مشاركة قام بنشر يناير 1, 2016 اخينا ابو عبدالله حبه حبه علينا ! وكل ماتريد سيتم باذن الله ولكن خليها حبه حبه فلاحظ عنوان الموضوع ولاحظ الطلبات ! انا لن اسالك عن الهدف الرئيسي لانه وحسب فهمي من احد ردودك انك تريد ان تتعلم ! فاسمح ارد عليك نقطة نقطة ! 3 ساعات مضت, بوعبد الله محفوظ said: بخصوص السنوات أريدها أن تبدأ من 2015 وجدتك عملتها بوضعها كقيم في مصدر مربع السرد وهي طريقة صحيحة ! 3 ساعات مضت, بوعبد الله محفوظ said: بخصوص السنوات أريدها أن تبدأ من 2015 --------------------------------------------------------------------------- أستاذنا الكريم رمهان بخصوص الأشهر قمت أيضا بتجريب هذا الكود وهو لا يحتاج إلى "RowSource" Private Sub Form_Load() Dim i As Integer For i = 1 To 12 cboMonth.AddItem (MonthName(i)) Next i End Sub لكن للأسف مع الكود الأول أو الثاني يأتي التقرير فارغ أعتقد أن المشكلة تكمن في أن التقرير يقوم بتخزين الأشهر "أرقام" أما مربع السرد فيقوم بتخزينها حروف والله أعلم تمام عليك ! طريقة صحيحة وفعلا لاتحتاج لتصفير المصدر لان الحدث يقع مرة واحدة وهو عند تحميل النموذج ! واعتقادك صحيح في المشكلة ! والحل يتم بادخال الدالة monthname في الاستعلام وكعمود جديد ومخفي ويصبح معيار الشهر به والذي سياخذ القيمة من مربع التحرير الاشهر ! ولم يعد لعمود رقم الشهر لازم ! 3 ساعات مضت, بوعبد الله محفوظ said: أيضا لماذا عند تغير التنسيق من لوحة التحكم لا يشتغل التقرير نؤجلها حتى يتم اغلاق النقطة السابقة وكذلك 3 ساعات مضت, بوعبد الله محفوظ said: آخر سؤال هل يمكن إضافة "check box" لتحديد التقرير الذي أريد طباعته وزر واحد للطباعة يعمل حسب التحديد السابق نؤجلها ! وقد تكون بموضوع جديد ! بالتوفيق رابط هذا التعليق شارك More sharing options...
بوعبد الله محفوظ قام بنشر يناير 1, 2016 الكاتب مشاركة قام بنشر يناير 1, 2016 أستاذنا رمهان 30 دقائق مضت, رمهان said: والحل يتم بادخال الدالة monthname في الاستعلام وكعمود جديد ومخفي ويصبح معيار الشهر به والذي سياخذ القيمة من مربع التحرير الأشهر عند إضافة الدالة monthname ماذا أضع بين الأقواس حيث عند وضع التاريخ لا يشتغل 32 دقائق مضت, رمهان said: ولم يعد لعمود رقم الشهر لازم ! في التقرير يجب أن يظهر رقم الشهر مع رقم السنة إذا حذفته من أين سأحصل على قيمته هكذا أريد التقرير ملني وحدة وحدة رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر يناير 1, 2016 مشاركة قام بنشر يناير 1, 2016 في التقرير اكتب مصدر حقل الشهر ومصدر حقل العام كما يلي =[Forms]![طباعة التقارير]![cboMonth] =[Forms]![طباعة التقارير]![cboYear] لتحصل على النتيجة المطلوبة إن شاء الله إذا تم كتابة الكود بالطريقة التالية Dim i As Integer For i = 1 To 12 cboMonth.AddItem (MonthName(i)) & " " & Year(Date) Next i End Sub فإنه يعطي الشهر مع السنة ( ولكن السنة الحالية ) رابط هذا التعليق شارك More sharing options...
بوعبد الله محفوظ قام بنشر يناير 1, 2016 الكاتب مشاركة قام بنشر يناير 1, 2016 (معدل) 31 دقائق مضت, علي المصري said: في التقرير اكتب مصدر حقل الشهر ومصدر حقل العام كما يلي =[Forms]![طباعة التقارير]![cboMonth] =[Forms]![طباعة التقارير]![cboYear] لتحصل على النتيجة المطلوبة إن شاء الله بارك الله فيك أستاذنا الكريم علي المصري تم التعديل لك هذه هي النتيجة بقية الحقول فارغة هذا الاستعلام هو المصدر الملف مرفق إذا تكرمت وألقيت عليه نظرة 568664ed6960e_PreTest1.rar تم تعديل يناير 1, 2016 بواسطه بوعبد الله محفوظ رابط هذا التعليق شارك More sharing options...
بوعبد الله محفوظ قام بنشر يناير 1, 2016 الكاتب مشاركة قام بنشر يناير 1, 2016 ملاحظة عند استبدال أسماء الأشهر بالأرقام في مربع سرد الأشهر التقرير يعمل عادي رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر يناير 1, 2016 مشاركة قام بنشر يناير 1, 2016 جرب الطريقة التالية PreTest 132.rar 1 ساعه مضت, بوعبد الله محفوظ said: ملاحظة عند استبدال أسماء الأشهر بالأرقام في مربع سرد الأشهر التقرير يعمل عادي ممكن تتغلب عليها بعمل ثلاثة حقول للتاريخ في جدول الحركات يوم - شهر - سنة رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر يناير 1, 2016 مشاركة قام بنشر يناير 1, 2016 تفضل تطبيق ماذكرته لك باضافة عمود لاستخراج اسم الشهر واصبح المعيار به ! بالتوفيق PreTest 1.rar 2 رابط هذا التعليق شارك More sharing options...
بوعبد الله محفوظ قام بنشر يناير 2, 2016 الكاتب مشاركة قام بنشر يناير 2, 2016 11 ساعات مضت, رمهان said: تفضل تطبيق ماذكرته لك باضافة عمود لاستخراج اسم الشهر واصبح المعيار به ! بالتوفيق PreTest 1.rar تمام وأيضا قمت بحذف عمود الشهر --------------------------------------------- سأقوم بنشر الأسئلة الأخرى في مواضيع منفصلة ---------------------------------------------- زادك الله من فضله 1 رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر يناير 2, 2016 مشاركة قام بنشر يناير 2, 2016 حياكم الله وجزيتم خيرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.