برنامج البحث بالتاريخ

السلام عليكم اخي هذا امر سهل

ولكن احب ان اعرف هل استعملت ال sql في كود البحث ادا كن قد استعملت لغة sql فعليك اضافة المكتبة الخاصة بها وهي

microsoft dao opject 3.6

واتمنى لك التوفيق

aimn19852004@hotmail.com

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

اولا اختي الكريمة المشكلة انك تركتي الكوماند تايب الخاص بالــ Adodc1 في وضع adCmdTable

بينما انتي تستخدمين كوماند تايب من نوع adCmdText

هذه اول غلطة

ثانيا وضعتي جملة الـ Select بصورة خاطئة وهي انك وضعتي الرموز & "#" في الصب الخاص بالمتغيرات StrD1 و StrD2

وهذا خطأ لان هذه الرموز خاصة بجملة السيكوال وليس الفيجوال بيزك

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

تفضلي حملي المثال بعد التعديل

===================

الى اللقاء

Search_in_Date.rar

أخوتى شكرا لكم لكن البرنامج لم يعمل ويضع اللون الاصفر عند الاجراء sub Kind r معن ذلك أن هناك مشكلة

وبلنسبة للمكتبة لقد أدرجتها لكنه لم يعمل

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

عفوا البرنامج يعمل عندي بدون مشاكل

ممكن حضرتك تكتبي رسالة الخطأ التي تظهر حتى نعرف ماهي المشكلة بالضبط

======

الى اللقاء

أخى اليك الرسالة

the comiper:can not find project or library

ثانيا يتجه الموشر نحو الاجراء

sub kindr

وعطنى سهم ومعه اللون الاصفر ثم حينما أضغط على الdefntion تظهر رسالة مفادهها أن المتغير غير معرف

هل يجب تعريف الkindr rقبل التعامل معه كاجراء

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

اختي هل الخطأ يظهر في Form1 أم في Form 2 ?

لان لاحظي ان التعديل قمت بعمله على Form2 فقط

وللعلم ان KINDR هو عبارة عن Sub وهذا لا يتم تعريفه

=======

الى اللقاء

الخطا فى الفورم2 أمالفورم 1 فلقد لغيته حتى أتاكد منعما الفورم2

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

اختي الكريمة المشكلة ان البرنامج يعمل عندي بشكل طبيعي ولكن ربما تكوني عدلتي شئ وحصل فيه خطأ

المهم

طالما ان الصب فيه مشكلة فيمكنك الاستغناء عنه

حملي المثال منا هنا مرة اخرى وجربي

-------------------

ملحوظة :

ستواجهك مشكلة عند الاستعلام عن المجموع خلال شهر لأن الطريقة التي استخدمتيها بها خطأ منطقي

عموما جربي كده البرنامج وبعدها اقولك حل مشكلة الاستعلام الشهري

=================

الى اللقاء

Search_in_Date.rar

أشكرك على اهتمامك ومتابعة الموضوع لكن قد عرفت المشكلة أين وأرسلها لك مكتوبة أمام الكود الذ عط عمل البرنامج عندى ثانيا ماهو الخطا المنطقى الذى قصدت

Search_in_Date.zip

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

الحمد لله ان المشكلة اتحلت

اما الخطأ المنطقي الذي أتحدث عنه هو

حضرتك وضعتي الكود التالي لحساب القيمة لمدة شهر سابق من التاريخ الحالي

'شهري
StrD1 = Format(Date, "yyyy/mm/dd")
StrD2 = Year(Now) & "/" & Month(Now) - 1 & "/" & Day(Now)
StrD2 = Format(StrD2, "yyyy/mm/dd")

قومي بالخطوات التالية وستعرفي الخطأ

اجعلي التاريخ في الكمبيوتر 31\7\2006

ثم من البرنامج اختاري حساب القيمة لمدة شهر وهو بالطبع سيستخد الكود السابق لعمل ذلك

ستظهر رسالتين خطأ

الاولى ان الـ Adodc1 لا تستطيع حساب القيمة لوجود خطأ في جملة الاستعلام والثانية طبعا في كود Adodc1.Refresh

والسبب هو

انك اخذتي قيمة الشهر الحالي وطرحتي منها 1 ثم ارسلتيها لجملة الاستعلام دون ان تلاحظي ان شهر 7 به 31 يوم بينما شهر 6 يحتوي على 30 يوم فقط

وهذا ما يسبب الخطأ

ولهذا يسمى خطأ منطقي لأن الكود سليم لكنه منطقيا لا يمكن تطبيقه

وصراحة لا اعرف ان كان هناك دالة لعمل ذلك ام لا ولكني فكرت في الحل بنفسي والحمد لله توصلت اليه بحيث أتفادى تلك المشكلة واحصل على نتائج سليمة

وسأقوم بوضع الكود الذي توصلت ليه قريبا ان شاء الله لأنه ضمن مشروع كبير اقوم بعمله حاليا سأحضره في مثال لكي تعم الفائدة ان شاء الله

تمنياتي بالتوفيق

=======================

الى اللقاء

أخى شكرا لك لكن بصراحة محتاجة للكود دا ضرورى جدا لان بعمل مشروع أيضا الرجاء كتابته ثم بعد ذلك جهز المثال على راحتك

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

اختي الكريمة تفضلي هذا هو الكود :

	Dim mon As Integer
	Dim MONT, D As String
	mon = Month(Date)
	If mon = 0 Then mon = 12
	D = Day(Date)
	If mon = 3 And Day(Date) = 31 Then D = 30
	If mon = 5 And Day(Date) = 31 Then D = 30
	If mon = 7 And Day(Date) = 31 Then D = 30
	If mon = 8 And Day(Date) = 31 Then D = 30
	If mon = 10 And Day(Date) = 31 Then D = 30
	If mon = 12 And Day(Date) = 31 Then D = 30
	mon = mon - 1
	MONT = D & "/" & mon & "/" & Year(Date)

	Dim MyDat As Date
	MyDat = Date

لاحظي ان المتغيرين اللذين سيتم استخدامهم في جملة الاستعلام هما

MONT و MyDat

أرجو ان يكون الكود واضح

هو سهل ولكن يحتاج بعض التفكير ليس أكثر

بالتوفيق :)

=================

الى اللقاء ولا تنسونا من صالح الدعاء

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