jjafferr

وستظل دائما أخونا العود نتعلم منك هذه الاخلاق الكريمة

وعليكم السلام أخي هذا الرابط يعطيك المعلومات المطلوبة http://www.officena.net/ib/index.php?showtopic=60781&p=392823 جعفر

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

حياكم الله ياشباب جعفر

السلام عليكم أخي سلمان إحنا الى هنا ويتوقف علمنا ، لأن اللي انت تشوفه وتواجهه وتعرفه ، إحنا ما نعرفه رجاء ، يا تعطينا معلومات كاملة ، او ترفق الجزئية من برنامجك اللي فيها المشكلة ، وتخبرنا بالضبط وين المشكلة جعفر

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

وعليكم السلام أخوي أبوخليل اذا كان هذا شغلك من زمان ، ماشاء الله عليه وعليك جعفر

تفضل الاكسس 2003 فما دون ، كان فهيم ولكن الاكسس 2007 فما فوق ، عنيد هاي نكته ، ولا تحاسبني عليها الموضوع كله له علاقة بأي نوع تريد Recordset يعمل: ADO او DAO وهذا له علاقة في ايهم في القائمة قبل الثاني: فاذا اردت ان تكتب Recordset وبدون ان تذكر من ايهم (لأنهم الاثنين عندهم Recordset) ، فتلقائيا في الاكسس 2007 فما فوق ، يعتبره الاول على القائمة (تذكر النكته اللي قلتها لك فوق ) فعلشان تحل الموضوع ، وتترك ترتيب Reference مثل ماهو ، يجب ان تقول: Dim rst as dao.Recordset ونفس الشئ بالنسبة الى Dim dbs as dao.Database وتغير هذين السطرين في جميع الكود ، والحمدلله رب العالمين جعفر 93.ACCOUNT103.accdb.zip

تفضل بنفس الخيارات الثلاث (على فكرة ، انا عملت تغيير في آخر لحظة في مسمى الوحدة النمطية السابقة ، ونسيت اغير المسميات بها ، مما جعلها لا تعمل ) وهنا الخيارات السابقة بعد تعديل الوحدة النمطية ، بالاضافة الى الطلب بين تاريخين كذلك (واستعلامتها تحمل مسمى Two في نهاية الاستعلام) مثلا: الاستعلام الجديد الذي ينادي الوحدة النمطية: جعفر 91.Database1.accdb.zip

رحم الله والديك ، كلك خير وبركة

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

السلام عليكم انا اعتذر أخوي رمهان لكن الصداع في طلب المعرفة غير عن الصداع وشئ مدوخ راسك انا غيرت تاريخ احد السجلات في الحقل Datee الى 1-1-2012 ، والان استطيع ان الخص برنامجي الذي ارفقته في مشاركتي رقم 19: جميع الطرق الثلاث تعمل بنفس الطريقة ، وهي: 1. اذا ادخلت اليوم والشهر فقط ، فالبرنامج يعتبر انك تريد يوم وتاريخ هذه السنة ، فعليه البرنامج يضيف هذه السنة ، وتحصل على النتائج 2. اذا ادخلت اليوم والشهر والسنة ، فلا يتدخل البرنامج في الادخال ، وتحصل على نتيجة ذلك التاريخ جعفر

وعليكم السلام أها ، انت تتكلم عن طريقة تنسيق معلومات الحقل نعم التنسيق في مربع النص العادي Plain Text ، عادي والتنسيق في مريع النص ، مع تغيير اعداداته الى "نص منسق" Rich Text ، يصبح شيخ التنسيق جعفر

السلام عليكم مادمت اخذت طريق الاستعلام CrossTab ، فهناك شئ جدا ضروري يجب ان تعرفه ، ولقد كلفني الكثير من العناء والمشقة والتفكير والتصليح والوقت في سبيل معرفته لما تعمل الاستعلام ، فانك تعمل حقل "عناوين الاعمدة" Column Headings ، والعناوين مثل ما ترى هنا ، هي "1-6" و "7-12": واذا القينا النظر الى بيانات الجدول ، سنرى انها تحتوي على بعض الاشهر من 1 الى 12 وعليه ، نتيجة الاستعلام ستكون: ونتيجة النموذج (او التقرير) ستكون: ولكن اذا لم تكن هناك قيمة لأحد الاعمدة (لاحظ في الصورة التالية) ، لقد حذفت سجلات الاشهر من 7 الى 12 من الجدول ، لذا فلا توجد بيانات للعمود 7-12 ، اي لا يوجد حقل اسمه 7-12: فنتيجة الاستعلام ستكون بدون ذلك الحقل (لاحظ عدم وجود عمود اسمه 7-12): ولكن نتيجة النموذج (او التقرير) ستكون: هناك طرق لحل هذه المشكلة: 1. برمجيا عن طريق QueryDef ، بحيث تعيد عمل الاستعلام: TRANSFORM Sum(Table1.ammount) AS Sumمنammount SELECT Year([dates]) AS السنة FROM Table1 GROUP BY Year([dates]) PIVOT IIf(Month([dates]) Between 1 And 6,"1-6","7-12"); وتعدل في عناوين اعمدة الاشهر ، بحيث اذا الاشهر ما موجودة في الجدول ، فانك لازم تحذفها من الاستعلام ، وتعيد حفظ الاستعلام بمعلوماته ، وكود التأكد والتغيير يجب ان تعمله في كل مرة تريد ان تشغل الاستعلام. 2. عند فتح النموذج (او التقرير) : بحيث تضع كود يفحص اذا كان هناك حقل اسمه 7-12 ، فاذا لم يوجد ، فيجب ان تحذف مصدر عنصر الحقل. 3. وهذا ما توصلت اليه أخيرا وبعد مشقة وعناء: في اعدادات الاستعلام ، اكتب اسماء الاعمدة في اعدادات الاستعلام ، وعليه اسماء الاعمدة ستكون دائما موجودة ، بغض النظر اذا كانت هناك بيانات ام لا: ونتيجة الاستعلام: ونتيجة النموذج (او التقرير): جعفر 87.1.Database1.accdb.zip

حياك الله بس هذا نص عادي في التقرير كذلك جعفر 92.New_Line.accdb.zip

انا اعتذر ، فكلامك صح ، لا يوجد 1/1/2012 في Datee جعفر

نعم شغلنا على Datee وعفوا ، هذا هو السجل: جعفر

بس الظاهر في الحلول 2 و3 ، اني وقعت في نفس المشكلة اللي وقع فيها أخوي رمهان ، وطريقته واجد ابسط من طريقتي فمافي إلا الحل رقم 1 جعفر

انا هنا ادمج لك 3 طرق: 1. عن طريق استخدام النموذج: الاستعلام: والنموذج عند الادخال: وكود بعد التحديث لحقل التاريخ هو: Private Sub myDate_AfterUpdate() If Len(Me.myDate) <= 5 Then Me.myDate = CDate(Me.myDate & "/" & Year(Now())) End If End Sub وعليه يصبح حقل التاريخ بالكامل ، وعندها تضغط على زر فتح الاستعلام: 2. عن طريق وحدة نمطية: الاستعلام: والوحدة النمطية Correct_This_Date: Function Correct_This_Date(D) If Len(D) <= 5 Then This_Date = CDate(D & "/" & Year(Now())) Exit Function Else This_Date = CDate(D) End If End Function 3. واخيرا ، وضعت كل شئ في الاستعلام ، بدون نموذج او وحدة نمطية: جعفر 91.Database1.accdb.zip

جربتها وما ضبطت للتاريخ 1/1/2012 يعني لازم تدخل 1/1 فقط ، والاستعلام لازم يعطيك سجل 1/1/2012 هذا كان شرط راعي الغنم ، ادخال اليوم والشهر ، بدون سنة : جعفر

يوجد في التاريخ معلومة في 1/1/2014 كيف يمكن ان يبحث عنها؟ جعفر

تفضل افتح النموذج ، وادخل التاريخ بطريقتك جعفر 91.Database1.accdb.zip

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

شوي شوي علينا يالطيب ، تراك سحرتني بطيبة كلماتك تفضل ="jaffar" & Chr(13) & Chr(10) & "Wrote" & Chr(13) & Chr(10) & "This Line" جعفر