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

هل هذا هو المطلوب

على فكره راجع انواع البيانات في الجدول يبدو لي انه مليئ بالأخطاء حيث ان حقول التاريخ هي من النوع نص بينما من المفروض ان تكون تاريخ ووقت

تحياتي لك

A5.zip

كيف يتم ادخال التاريخ أخى الكريم

هل يتم يدويا ام عن طريق نموذج

عموما اعتقد انك تدخل التاريخ يدويا

لذلك عملت دالة لتعديل التاريخ

جرب المرفق

A5.rar

bumb كتب:

هل هذا هو المطلوب

على فكره راجع انواع البيانات في الجدول يبدو لي انه مليئ بالأخطاء حيث ان حقول التاريخ هي من النوع نص بينما من المفروض ان تكون تاريخ ووقت

تحياتي لك

لا اخى الكريم حقل النص افضل فى حالة التاريخ الهجرى

أخي الكريم بارك الله فيك يالغالي

أخي الغالي الإدخال من نفس هذا النموذج .

أخي الغالي جرب وشوف أدخل التاريخ التالي لأنه عقدني

التاريخ هو

30 الذي هو اليوم ثم

8 الذي هو الشهر ثم

1418 هـ

أخي الغالي حاولة ونفس المشكلة أرجو أن تتأكد لي من الطريقة

لأن الإدخال من نفس النموذج .

معليش تحملني على ثقل دمي .

تم اضافة المرفق فى المشاركة السابقة

أخي أبو يوسف الغالي بارك الله فيك

جرب أدخل التاريخ أولا

اليوم ثم الشهر ثم السنة ثم حرف هـ

نفس المشكلة

اعتقد انك تكتب حرف الهاء فقط

لكن الموجود بالجدول هو حرف هاء ثم شرطه

و هذا ماتم عليه الكود

عموما تم تعديل الدالة لتلافى ذلك

Private Function myformat(dt As String) As String
Dim abb As String, r As Integer
Dim abx As String, m, d, y As String

For r = Len(dt) To 1 Step -1
   If IsNumeric(Mid(dt, r, 1)) Then Exit For
Next
abb = Right(dt, Len(dt) - r)
abx = Left(dt, r)

For r = Len(abx) To 1 Step -1
   If Mid(abx, r, 1) = "/" Then Exit For
Next
   y = Right(abx, Len(abx) - r)
   abx = Left(abx, r - 1)
   If Len(y) < 4 Then myformat = dt:  Exit Function

For r = Len(abx) To 1 Step -1
  If Mid(abx, r, 1) = "/" Then Exit For
Next
   m = Right(abx, Len(abx) - r)
   d = Left(abx, IIf(r > 0, r - 1, 0))

myformat = y & "/" & m & "/" & d
myformat = myformat & " " & abb & " "
End Function

الله لا يحرمنا منك ومن مشاركاتك

وكل من شارك في حل المشكلة .

الله يرزقك من حيث لا تحتسب ويرحم والديك .

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

بارك الله فيك أستاذنا أبويوسف .. زادك الله علماً.

أخي أبو يوسف الغالي

نقلت الكود إلى نموذج آخر

وطلعت الرسالة التالية

راجعت الفرق بين النموذجين مش عارف ليه طلعت هذه الرسالة .

هناك متغير او دالة مكررة فى النموذج

بارك الله فيك وحفظك من كل مكروه

نعم أخي الحبيب وجدت الخطأ دائماً المستعجل ما يجيب خير :tantrum:

بارك الله فيك وفي علمك .

وكل عام وأنت بألف ألف خير .