اظهار الوقت الحالى للكمبيوتر تلقائيا بجانب ادخال التاريخ باليد

[Abdelaziz Osman]

السلام عليكم ورحمة الله 

لدى حقل تاريخ بنموذج اكسيس

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

يتم كتابة الوقت الحالى تلقائيا بجانب التاريخ الذى ادخلته باليد بعدما اضغط enter

 

[سامي الحداد]

 وعليكم السلام ورحمة الله وبركاته

إدا كان لديك حقلين الاول للتاريخ والثاني  للوقت اليك هذا الكود .  استبدل YourDateField و YourTimeField بالأسماء الفعلية لحقول التاريخ والوقت في برنامجك.

Private Sub YourDateField_AfterUpdate()
        If Not IsNull(Me.YourDateField) Then
           Me.YourTimeField = Now
    End If
End Sub

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

Private Sub YourDateTimeField_AfterUpdate()
    If Not IsNull(Me.YourDateTimeField) Then
        Dim currentDate As Date
        currentDate = DateValue(Me.YourDateTimeField)
        Me.YourDateTimeField = currentDate + TimeValue(Now)
    End If
End Sub

بالتوفيق

[Abdelaziz Osman]

بعدما كتبت 1/1/2024 

اعطانى رسالة الخطأ المرفقة

[Abdelaziz Osman]

يرجى التجربة على الملف المرفق

date.accdb

[Abdelaziz Osman]

ارجوا الإفادة

 

[سامي الحداد]

عندي يعمل بشكل صحيح اخي

 

[Abdelaziz Osman]

ارجو ارسال لى الملف الاكسيس

[سامي الحداد]

date.accdb

[Abdelaziz Osman]

ارجوا ارسال لى صورة الكود من فضلك الصورة من الاكسيس  لانه لا يعمل لدى

[سامي الحداد]

تفضل الكود 

Private Sub MyDato_AfterUpdate()

    If Not IsNull(Me.iDate) Then
        Dim currentDate As Date
        currentDate = DateValue(Me.iDate)
        Me.iDate = currentDate + TimeValue(Now)
    End If
End Sub

وهذا الملف من عنديDatabase9.accdb

[Abdelaziz Osman]

استاذنا @سامي الحداد 

هل يمكن اظهار الوقت بنظام 24 ساعة  بحيث تظهر الساعات من رقم 1 الى 12 مع باضافة  am او pm 

تم تعديل يناير 5 بواسطه Abdelaziz Osman

[kkhalifa1960]

تفضل أخي

Private Sub P_O_date_AfterUpdate()
   If Not IsNull(Me.P_O_date) Then
        Dim currentdate As Date
        currentdate = DateValue(Me.P_O_date)
        Me.P_O_date = currentdate + TimeValue(Format(Now, "hh:nn:ss AM/PM"))
    End If
End Sub

 

[Abdelaziz Osman]

لم يعمل سيدى    هل يمكن نستخدم هذا الامر       yyyy\.mm\.dd;@

[kkhalifa1960]

أخي لأنك بتستخدم (Now) أي زمن الجهاز فإذا تبغي (AM/PM) فلابد تفيير فورمات زمن الجهاز كما بالشرح .

[Abdelaziz Osman]

ارجوا الافادة

[Abdelaziz Osman]

سيدى @kkhalifa1960 لك كل الشكر والتقدير