هل يمكن إظهار سجل بتاريخ و وقت معينين ؟

Private Sub Command1_Click()
If Data1.Recordset.EOF Then Data1.Recordset.MoveFirst
If dtpicker1.Value = Date And dtpicker2.Value = Time Then
d = MsgBox("it s time", vbCritical, "HishamNasr")
Data1.Recordset.MoveNext
End If
End Sub

أشكرك أخي hishamnasr على تفضلك بالإجابة

وهل لي بتوضيح أكثر للكود الذي تفضلت به وخصوصا الجزء dtpicker1 و dtpicker2 هل هما أسماء الحقول التي سوف أقوم بإدخال التاريخ والوقت فيهما ؟

وهل هناك تصريحات عامة يجب الإعلان عنها ؟

أرجو المعذرة على كثرة تساؤلاتي .

مع شكري لك مجددا .

dtpicker هي اداة تجدها في project>components ثم قم باختيار microsoft windows common controle2-6 0ستجد مجموعة من الادوات اضيفت الى شريط الادوات من بينها dtpicker و هي اختصار ل date & time picker يمكن من custom من الخواص جعلها تقبل التاريخ او الوقت .

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

تحت الخدمة:)

أخي hishamnasr

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

أخي hishamnasr

السلام عليكم

لقد عملت مثالا وأدخلت الكود الذي تفضلت به ولكن توجد مشكلة ، وهي عدم إظهار السجل المطابق ، وأحيانا لا يظهر أي سجل مع العلم انني حصلت على رسالة خطأ في بداية تشغيل الكود وهي If Without End If وقد أدخلت بعض التغييرات ولكنني لم أحصل على نتيجة .

أخي المثال الذي قمت بعمله مرفق ، أرجو الإطلاع عليه مشكورا .

Calendar.rar

جرب الكود اتالي

Private Sub Command1_Click()
On Error Resume Next
While Not Data1.Recordset.EOF
If dtpicker1.Value = Date And dtpicker2.Value = Time Then
MsgBox "It's time"
Exit Sub
End If
Data1.Recordset.movenext
Wend
End Sub

:rolleyes:

أخي hishamnasr

لقد قمت بتجربة الكود ولم أحصل على نتيجة ، وأنا متأكد من وجود خطأ ما من ناحيتي ، حيث عندما أغير خاصية مربعي النص المروطين بأداتي Dtpicke1 و Dtpicker2 إلى تاريخ و وقت في قاعدة البيانات لم أستطع الإضافة ولا الحذف ، وعندما أقوم بجعل نوعهما نص يمكنني الإضافة ولكن توجد مشكلة في إظهار السجل في التاريخ و الوقت المحددين ، فقد حاولت أن أضع كود جملة SQL للبحث عن التاريخ والوقت المحددين ولم أستطع البحث في حقلين معا .

أرجو المعذرة يا عزيزي على كثرة تساؤلاتي .

سأرسل لك البرنامج كاملا قريبا

و بعدين نحن اخوة دائما تحت الخدمة:)

أخي hishamnasr

السلام عليكم

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

ألا يحق لنا أن نستفيد من البرنامج الكامل

وفقكم الله

لم انته منه بعد

ثم اني لن ارسله في رسالة خاصة:)

اليك البرنامج

كلما توافق احد الازمنة و التاريخ لآي سجل ينبه المستخدم برسالة

it's time

:)

اليك البرنامج

كلما توافق احد الازمنة و التاريخ لآي سجل ينبه المستخدم برسالة

it's time

:)

Hisham.zip

أخي hishamnasr

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