الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف ابحث عن تاريخ معين

بدأه blue_casper في 12 يونيو 2009 · 16 رد · 720 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

يوجد برنامج خاص بالاقامات للمتعاقدين وارغب بوضع بحث عن تاريخ معين مثلا ابحث في شهر 6 يعطيني جميع الذين تنتهي اقاماتهم في شهر 6

وعددهم في بيان يتم طباعته...

اتمنى منكم المساعده..

دمتم بود

_____________.rar

#3

و هذا نفس الشىء مع تعديل بسيط

New_.rar

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#4

اخي mrnooo2000 اشكرك على تفاعلك

النموذج المرفق ارغب في اضافه نموذج فرعي يتم فيه ادخال البيانات

وكذلك مربع للبحث يعطي كل شهر على حده ويتم طباعته بشكل تقرير

ارجوا ان تكون وصلت الفكره

تقبل تحياتي

1_____________.rar

#5

بالنسبة للطباعة اعمل تقرير مبنى على الاستعلام و اضف زر فتحه فى النموذج

و بالنسبة لباقى المطلوب لا افهم ما تريد

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#6

mrnooo2000 اشكرك واقدر لك مجهودك

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

من يقدر على مساعتي في ادخال نموذج فرعي ومربع بحث يحتوي المطلوب؟؟

دمتم بود

تم تعديل هذه المشاركة بواسطة blue_casper في 14 يونيو 2009 في 21:09

#7

لازلت انتظر المساعده؟؟

#8

مطلوبك غير مفهوم

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#9

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

اتمنى ان اجد الحل لديكم....

المطلوب موجود بالملف المرفق

دمتم بود

New_10.rar

#10

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

لازلت انتظررر المساعده

#11

الخطأ في البحث يا عزيزي ف يكود الفلترة لمربع التص txtsearch حيث

 Private Sub txtSearch_Change()
Dim VarSearch As String
'VarSearch = "*" & txtSearch.Value & "*"
VarSearch = "*" & txtSearch.Text & "*"
If Not (txtSearch.Text = "") Then
Me.SearchList.Form.Filter = "wrdate like '" & VarSearch & "'"
Me.SearchList.Form.FilterOn = True
Else
Me.SearchList.Form.FilterOn = False
End If

حيث يقوم الكود بفلترة السجلات واظهار ما يشبه القيمة المدخلة في مربع النص سواء شهر او يوم او حتى سنوات

بدل السطر الخاص بالفلتر اكتب

Me.SearchList.Form.Filter = "Month(wrdate) = Forms![search]![txtsearch]"
Me.SearchList.Form.FilterOn = True

جرب ورد لي..

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

همام

تم تعديل هذه المشاركة بواسطة همام ابوعرقوب في 9 يوليو 2009 في 12:21

وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ

مواضيعي ومشاركاتي

#12

اسعد الله صباحك اخي همام

حاولت اضع الكود ولكن دون فائده

في مكان اضع الكود المعطى؟؟؟؟؟

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

دمت بود

#13

ساحاول اخي الكريم.. ولكن برنامجك اعطاني اخطاء كثيرة ويغلق الاكسس اكثر من مرة..حيث لا استطيع الدخول الى الكود ابدا لان الملف معطوب.. ارجو ان تعطيني بعض الوقت

تحياتي

تم تعديل هذه المشاركة بواسطة همام ابوعرقوب في 9 يوليو 2009 في 12:51

وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ

مواضيعي ومشاركاتي

#14

اوكي كل الوقت لك

دمت بود

#15

اخى جرب المرفق

يمكنك البحث باليوم او الشهر او السنة

New_.rar

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#16

mrnooo2000

اشكرك عزيزي

انا ارغب بالبحث عن طريق السجلات التي تنتهي في شهر معين

وكذلك عندما اضع معاينه يمكنني طباعه المعاينه

فقد حاولت لكن يعطي رساله خطا وهي موجوده في الملف المرفق

دمت بالود

New__10.rar

#17

تفضل اخى اعتقد هذا ماتريد

ملحوظة : انا استخدم التقويم الميلادى

last.rar

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

مواضيع مشابهة