اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

السلام عايكم

بعد التحية

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

ما مطلوب هو اما ان اضع اسم العميل ثم هنالك مريعين نص اضع فيها التاريخ او ل ثم التاريخ الثاني ثم زر للبحث سوف يستخرج جميع نتائج البحث ضمن هسن التاريخين

لكم الشكر مقدما وانا متاكد اناه سيصل الجواب الواضح من هذا المنتدى

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

قام بنشر (معدل)

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

between

[ادخل التاريخ الاول]

and

[ادخل التاريخ الثاني]

وطبعاً انت مخير في العبارة بين القوس الى ماينسبك من تعبير

تم تعديل بواسطه صباح حسين
قام بنشر

حياك اخي

الجواب ان شاء الله هو

اولا/في الاستعلام ضع في معيار التاريخ هذا الكود

Between [forms]![بحث]![a] And [forms]![بحث]!

ثم ضع لك نموذج به مريعي نص الاول سمه (a)والثاني سمة (b)وبعد ذلك اضف زر امر وفي حدث عند النقر ضع امر فتح تقرير والذي تكون قد اعددته سابقا

ان شاء الله تكون الفكره واضحه

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

قام بنشر

السلام عليك اخي العزيز ms662

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

حاولت اكثر من مرة ارفاق ملف مرفق ولكن لم اجد نفعا

الرجاء الرجاء ..............

اصنع لي معروفا ( وهذا الطلب ثقل علي ان اطلبه منك ) ولكن 00000 اعمل لي قاعدة فيها الاسم الطالب الدرجة تاريخ الامتحان التقدير

مثال محمد 30 1/2/2009 راسب

كمال 50 3/2/2009 ناجح

محمد 65 4/5/2009 ناجح

عمل نموذج فيه

1-قائمة منسدلة للاسم الطلب 2- مربع نص نضع فيه التاريخ البداية 3- مربع نص نضع فيه تاريخ النهاية 4- قائمة منسدلة نضع فيها اما راسب او ناجح او اي نتيجة

المطلوب ار يد البحث لقائمة منسدلة حسب الاسم اي اختار من القائمة المنسدلة اسم الطالب

ثم من مربعي النص اضع تا ريخ البداية ثم وتاريخ النهاية

ثم اختار من القائمة المنسدلة اما ر اسب

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

اي قائمة المنسدلة الاولى ومربعي النص والقائمة المنسدلة الاخيرة مرتبطة معا

كما اريد بحث عام لكل الطالب او كل درجات الطلبة

اي بحث عام او بحث خاص

قام بنشر

عذرا لقد تم تحميل المرفق على الاسم zz

وفيه ما اريده

المطلوب ار يد البحث لقائمة منسدلة حسب الاسم اي اختار من القائمة المنسدلة اسم الطالب مثل k

ثم من مربعي النص اضع تا ريخ البداية ثم وتاريخ النهاية

ثم اختار من القائمة المنسدلة اما ر اسب fail

فعند اختيار اسم الطالب ووضع التواريخ واختيار كلمة راسب fail او كلمة ناجح good فتظهر حقل درجات ومعلومات الطالب الذي اختارات فيه اسمه والصفة

اي قائمة المنسدلة الاولى ومربعي النص والقائمة المنسدلة الاخيرة مرتبطة معا

كما اريد بحث عام لكل الطالب او كل درجات الطلبة

اي بحث عام او بحث خاص

الرجاء المساعدة لااعلم مقدار الوقت والجهد الذي ممكنني من تحميل النلف

اشكرككم كثيرا هذه حقيقة ةوليس مجاملة

اجوا الاجابة سريعا ولك من كل المحبة

شكرا لك لتفدك اجابتي

zzz.rar

قام بنشر

لقد ادرجت الملف المطلوب ولا اجابة هل يوجد رد محب وكل محبين للخير مقدما لكم الشكر

قام بنشر

الاخ الكريم MS662 تحية طيبة على هذا المجهود والله يبارك فية

لو تسمح لي و ترفق صورة كيف اضع الكود لاني جديد في عالم الكسس

مع خالص الشكر

قام بنشر

الاخوة الاعزاء

ارجو المساعدة في عملية البحث بين تاريخين لدي نموذج اسمة اتعاب المكتب المطلوب في حالة كتابة التاريخ( من و الى ) تظهر النتائج بين التاريخين فقط

اتمنى منكم المساعدة وشكر لكم

مرفق لكم الملف

Office.rar

  • 5 years later...
  • 1 year later...
قام بنشر

اخي سوف ارفق لك كود لزر البحث عند انشاء حدث قم بتجربته واعلامي بالنتائج

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

Option Compare Database

Private Sub امر28_Click()

Call Search

End Sub

Sub Search()
Dim strCriteria, task As String

Me.Refresh
If IsNull(Me.OrderDateFrom) Or IsNull(Me.OrderDateTo) Then
    MsgBox "الرجاء ادخال تواريخ البحث", vbInformation, "حقول التواريخ مطلوبة"
    Me.OrderDateFrom.SetFocus
Else
    strCriteria = "([حقل اتواريخ الذي تريد مقارنته]>=#" & Me.OrderDateFrom & "# And [حقل التواريخ الذي تريد مقارنته]<=#" & Me.OrderDateTo & "#)"
    task = "select * from اسم الجدول المحتوي على الحقل where(" & strCriteria & ") "
    DoCmd.ApplyFilter task
End If
End Sub

 

  • 2 years later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information