Abdelaziz Osman قام بنشر يناير 4 مشاركة قام بنشر يناير 4 السلام عليكم ورحمة الله لدى حقل تاريخ بنموذج اكسيس أريد عندما ادخل التاريخ باليد داخل الحقل يتم كتابة الوقت الحالى تلقائيا بجانب التاريخ الذى ادخلته باليد بعدما اضغط enter رابط هذا التعليق شارك More sharing options...
سامي الحداد قام بنشر يناير 4 مشاركة قام بنشر يناير 4 وعليكم السلام ورحمة الله وبركاته إدا كان لديك حقلين الاول للتاريخ والثاني للوقت اليك هذا الكود . استبدل 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 بالتوفيق رابط هذا التعليق شارك More sharing options...
Abdelaziz Osman قام بنشر يناير 4 الكاتب مشاركة قام بنشر يناير 4 بعدما كتبت 1/1/2024 اعطانى رسالة الخطأ المرفقة رابط هذا التعليق شارك More sharing options...
Abdelaziz Osman قام بنشر يناير 4 الكاتب مشاركة قام بنشر يناير 4 يرجى التجربة على الملف المرفق date.accdb رابط هذا التعليق شارك More sharing options...
Abdelaziz Osman قام بنشر يناير 4 الكاتب مشاركة قام بنشر يناير 4 ارجوا الإفادة رابط هذا التعليق شارك More sharing options...
سامي الحداد قام بنشر يناير 4 مشاركة قام بنشر يناير 4 عندي يعمل بشكل صحيح اخي رابط هذا التعليق شارك More sharing options...
Abdelaziz Osman قام بنشر يناير 4 الكاتب مشاركة قام بنشر يناير 4 ارجو ارسال لى الملف الاكسيس رابط هذا التعليق شارك More sharing options...
سامي الحداد قام بنشر يناير 4 مشاركة قام بنشر يناير 4 date.accdb رابط هذا التعليق شارك More sharing options...
Abdelaziz Osman قام بنشر يناير 4 الكاتب مشاركة قام بنشر يناير 4 ارجوا ارسال لى صورة الكود من فضلك الصورة من الاكسيس لانه لا يعمل لدى رابط هذا التعليق شارك More sharing options...
سامي الحداد قام بنشر يناير 4 مشاركة قام بنشر يناير 4 تفضل الكود 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 رابط هذا التعليق شارك More sharing options...
Abdelaziz Osman قام بنشر يناير 5 الكاتب مشاركة قام بنشر يناير 5 (معدل) استاذنا @سامي الحداد هل يمكن اظهار الوقت بنظام 24 ساعة بحيث تظهر الساعات من رقم 1 الى 12 مع باضافة am او pm تم تعديل يناير 5 بواسطه Abdelaziz Osman رابط هذا التعليق شارك More sharing options...
أفضل إجابة kkhalifa1960 قام بنشر يناير 5 أفضل إجابة مشاركة قام بنشر يناير 5 تفضل أخي 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 رابط هذا التعليق شارك More sharing options...
Abdelaziz Osman قام بنشر يناير 5 الكاتب مشاركة قام بنشر يناير 5 لم يعمل سيدى هل يمكن نستخدم هذا الامر yyyy\.mm\.dd;@ رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر يناير 5 مشاركة قام بنشر يناير 5 أخي لأنك بتستخدم (Now) أي زمن الجهاز فإذا تبغي (AM/PM) فلابد تفيير فورمات زمن الجهاز كما بالشرح . 1 رابط هذا التعليق شارك More sharing options...
Abdelaziz Osman قام بنشر يناير 5 الكاتب مشاركة قام بنشر يناير 5 ارجوا الافادة رابط هذا التعليق شارك More sharing options...
Abdelaziz Osman قام بنشر يناير 5 الكاتب مشاركة قام بنشر يناير 5 سيدى @kkhalifa1960 لك كل الشكر والتقدير 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان