حقل التاريخ التلقائي

الأخ أبو محمد

ضع فى حقل التاريخ فى بند القيمة الافتراضية من الخصائص ما يلي

=Now()

وإذا كنت تضغط زر ENTER سوف يقوم بحفظ القيمة تلقائيا

أشرف خليل

الأخ ابو محمد

إن كفتك طريقة الأخ أشرف وهي تغنيك من الضغط وغيره لأنك كلما أدرجت سجل جديد تجد التاريخ جاهز في الحقل أما بالطريقة التي تطلبها فضع في حدث عند الضغط على مفتاح لحقل التاريخ التالي :

If KeyAscii = 9 Then [اسم حقل التاريخ] = Date

لإدراج التاريخ اضغط TAB والتركيز في حقل الجدولة السابق يعني انتقل لحقل التاريخ بضغط TAB .

ولك تحياتي

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

ولكن إذا سمحتم لي أعتقد ومن واقع التجربة أن في الحلول السابقة مشكلة وهي أنه عند الرجوع إلى السجلات السابقة ( القديمة ) وعند التركيز على حقل التاريخ سوف يلغي التاريخ المسجل في الحقل ويكتب التاريخ الحالي ، ويمكن لذلك كتابة الكود التالي في حدث ( عند التركيز ) لحقل التاريخ ، كحل ثالث لهذا الموضوع :-

if IsNull(text) then me.text = date

ملاحظة : text اسم حقل التاريخ .

الأخ الغريب

ملاحظة جيدة ، ولكن هذه الملاحظة تقع في حالة الطريقة التي ذكرتها دون التي ذكرها الأخ أشرف .

تعديل الكود :

If IsNull([اسم حقل التاريخ]) And KeyAscii = 9 Then [اسم حقل التاريخ] = Date

علما أن إدراج التاريخ لا يحدث عند التركيز وإنما يحدث عند نقر مفتاح TAB .

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

وللجميع التحية

الاخ الغريب

السلام عليكم وكل عام وانتم بخير

لقد جربت الطريقة التي قلت بها بخصوص التاريخ ولكن بعد ان قمت بتعبئة النموذج ظهرت لي رساله تقول انه لم يجد الماكرو ، ارجو المساعدة واطلب طلب من الاخوه حارث وابو هادي هو الرد على الموضوع مع الشكر .

ملاحظة انا استخدم اكسس 97.

مع تحياتي

علاوي

يظهر لي أنك وضعت السطر :

if IsNull(text) then me.text = date

في حدث عند التركيز في صفحة الخصائص ... أليس كذلك ؟

ولك تحياتي

أخي علاوي هل وضعت الكود في حدث التركيز لحقل التاريخ في النموذج الخاص بك وهل غيرت عبارة Text ( وهي مكررة مرتين في الكود) إلى اسم حقل التاريخ لديك . وهل نوع الحقل لديك تاريخ أونص .

أرجو أن تلاحظ ماسبق .

وبالتوفيق .

الاخ الغريب

لقد وضعت الكود في حدث التركيز لحقل التاريخ وغيرت عبارة text الى اسم الحقل تاريخ ونوع الحقل تاريخ وليس نص .

وهي : if IsNull (Date) then me.Date = date

مع تحياتي

علاوي

إذا كنت وضعت السطر الذي ذكرته في الوحدة النمطية وليس في صفحة الخصائص (وإن كنت أشك في ذلك) فغير اسم الحقل لأنه مشابه للكلمة المحجوزة في الـ VBA وهي DATE() غيرها إلى MyDate مثلا وإلا لن يظهر لك شيء في الحقل ، وإن استعملت NOW() في الأخير فسوف يظهر لك التاريخ والوقت .

ملاحظة هامة : اجعل السطر في الوحدة النمطية وليس الخصائص .

ولك تحياتي