تاريخ الارجاع خلال ساعتين؟؟

[نيروز]

السلام عليكم

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

بحيث يكون بعد ساعتين من تاريخ الاستعارة

أي ان مدة الاستعارة ساعتين

علما بان لدي حقل تاريخ الاستعارة

وحقل تاريخ الارجاع

[rudwan]

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

RetDate=DateAdd("h", 2, "DateBorrow")

[نيروز]

مساء الخير

شكرا أخي رضوان على الرد على مشاركتي ولكن المشكلة اني لم استطع تطبيق الكود في النوذج

وهل من طريقة لتطبيقه في الاستعلام؟

[rudwan]

بكل تأكيد , و يكون كما يلي :

RetDate:DateAdd("h"; 2; "DateBorrow")

[نيروز]

عندما اكتب الكود تظهر لي هذه الرسالة:

Data Type mismatch in criteria expression

[rudwan]

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

اذا كان كذلك عدلي الى تنسيق تاريخ

[نيروز]

مرحبا

حقلا تاريخ الاستعارة والارجاع كلاهما تاريخ

ولكن المشكلة ما زالت قائمة

فكرت في تغيير format او input mask ولكن دون جدوى

قد تكون المشكلة بسيطة ولكن لا اعرف ما الحل

[نيروز]

احاول ان افهم هذا الكود

هل "h" في الكود ترمز للساعات مباشرة ام هنالك حقل يجب أن يضاف ويسمى h

ثانيا هل يجب ان يكون هنالك صيغة معينة للتاريخ لكي يعمل الكود؟؟؟

ولكل جزيل الشكر

[نيروز]

السلام عليكم

هذا هو البرنامج

http://www.officena.net/ib/index.php?act=A...pe=post&id=3332

[rudwan]

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

Private Sub BorrowingDate_AfterUpdate()
Me.ReturendDate = DateAdd("h", 2, "BorrowingDate")


End Sub

واحذفي الكود

Private Sub BorrowingDate_Click()
'BorrowingDate = Date
End Sub

[نيروز]

شكرا لك اخي رضوان على المساعدة ومتابعة استفساراتي

ولكن المشكلة أن الكود بمجرد وضعه يظهر لي error عند التشغيل

اعتذر ولكن لم اعرف ما المشكلة

هل له علاقة بتنسيق التاريخ أم ماذا؟؟

[rudwan]

انظري ملفك بعد التعديل

Copy_of__________.rar