السلام عليكم و رحمة الله
إخواني الأعزاء
ارفقت لكم ملف لاستخدام اداة msflexgrid .
ما اريده من البحث ،أن أضع مثلا تاريخ معين و لنقل (1/12/2002) ، ما اريده عند البحث أن تظهر قائمة بسجلات الاعضاء التي ستنتهي صلاحية اشتراكاتهم قبل هذا التاريخ .أي يكون البحث ضمن تاريخ معين أضعه قبل عملية البحث .
ثانيا طباعة النتيجة بعد البحث .
كل عام وانتم بخير
مع تحياتي
SELECT Table1.HirDate, Table1.EndDAte
FROM Table1
WHERE (((Table1.HirDate)=[Enter Start DAte]) AND ((Table1.EndDAte)=[Enter End DAte]));
:Dان شاء الله فهمت السؤال صح مو خطاء
والله الموفق
;) :D
بسم الله الرحمن الرحيم
السلام عليكم و رحمة الله و بركاته
يوجد العديد من الطرق لعل أسهلها تعديل الشفرة إلى التالي :
' البحث عن طريق التاريخ
Private Sub Command1_Click()
On Error GoTo err
Dim r As Date
Dim SQL As String
r = CDate(InputBox("أدخل كلمة البحث", "بحث"))
SQL = "select * from table1 where ExpDate > #" & r & "#"
Set rd1 = db1.OpenRecordset(SQL, dbOpenDynaset)
showdata
err:
End Sub
حيث قمنا بتعديل تعريف المتغير r على على أساس أنه Date و غيرنا اسم الحقل 3 إلى ExpDate و تم تعديل سطر جملة البحث كما ترى مع أني أفضل استخدام between
السلام عليكم و رحمة الله
أعتذر بالتأخير على الرد عليك أخي حسين عبد الله و الاخ pcbat فقد قمت برحلة عمرة و الحمد لله ،وشكرا لكما على ردكما على سؤالي .
قمت بتنفيذ الحل الثاني فالحل الاول لم استطع تنفيذه وقد كان ناجحا ولكن ما عقدني في الموضوع و لمدة يومين أنه عند البحث لابد من وضع الشهر قبل اليوم عند وضع التاريخ مع ان التاريخ موضوع في القاعدة هو بالترتيب اليوم ثم الشهر ثم السنة .
أخي العزيز pcbat و الأخ حسين عبد الله أطمع في كرمكما أن توضحا لي كيفية طباعة التقرير بعد عملية البحث ،حتى تكتمل الفائدة .
مع تحياتي
بسم الله الرحمن الرحيم
تحية طيبة و بعد
الشهر قبل اليوم في التاريخ هذا النظام المعمول به في الولايات المتحدة الأمريكية و الذي تضبط عليه الأجهزة عموما و لكي تتخلص من المشكلة يمكنك تعديل النظام في الجهاز ، و لكن الأنسب و الأصح هو استخدام الدالة Format(Date, "dd/mm/yyyy") حيث أن Date تمثل التاريخ الحالي أو أي تاريخ آخر تريده
و بانسبة لطباعة التقارير فإن كنت تقصد التقارير المطبوعة بالطابعة فهناك عدة طرق لعل أشهرها الكريستال ريبورت و الداتا ريبورت و كائن الطباعة Printer
و في كل منها مبحث ، و بالنسبة لي فأفضل استخدام الطريقة الثالثة لا سيما إن كان التقرير بسيطا و أرجو التوضيح عن طبيعة التقرير إن كنت لا تزال بحاجة لرد عن استفسارك
و الله الموفق
اخي العزيز
شكر لك على التوضيح بخصوص التاريخ .
بالنسبة لطباعة التقرير أنا استخدم دائما كائن الطباعه printer ،حاولت باستخدام هذه الطريقه و لم أحصل على شيء ،ولا أريد استخدام printform حيث أنه لا يطبع الا السجلات الظاهره فقط على الفورم ، ما أريده من الطباعه ان يطبع ما يخرج من سجلات بعد عمل عملية البحث .
مع تحياتي
الملف لا يعمل نرجو اعادة وضع الملف لكي نستفيد
السلام عليكم و رحمة الله
أخي العزيز
أشكرك على ردك و كان ناجحا ،جزاك الله خيرا .
مع تحياتي
على الرحب و السعة
بسم الله الرحمن الرحيم
الأخ ray500
ما هي المشكلة التي واجهتك تحديدا ؟
أخي العزيز pcbat
تحية طيبة و بعد ،
تعقيبا على موضوع الطباعة باستخدام الكائن printer ،هناك مشكلة أرجو منك أخي الكريم حلها ،
عند طباعة التقرير ولنقل 50 سجل ، أي اكثر من محتوى صفحة واحدة ، تظهر العشرون سجل الأولى في صفحة واحدة ثم الباقي كل سجل في صفحة منفرده ، فخرج التقرير في ثلاثون صفحة بدلا من صفحتين .
فما السبيل لحل هذه المعضلة و ترتيب مثلا كل 20 سجل في صفحة و هكذا .
أرجو تلبي طلبي .
و شكرا
هذا الموضوع مغلق.