كيف استطيع تحويل التاريخ الى العربي في التقرير

[ازهر عبد العزيز]

السلام عليكم ..... كيف استطيع تحويل التاريخ الى العربي في التقرير

المتغير.accdb

تم تعديل يوليو 8, 2019 بواسطه ازهر عبد العزيز

[Barna]

تريده مفصل كما هو موجود يعني مثلا 05 ذو القعدة 1440 او تاريخ فقط 1440/11/05

[jjafferr]

وعليكم السلام 🙂

 

جوابك قد تحصل عليه في احد هذه الروابط

 

 

.

 

.

 

.

جعفر

[ابو جودي]

اتفضل 

كل شئ بالعربى >>--->   التاريخ الميلادى -  التاريخ الهجرى - الوقت دونما التقيد بلغة النظام 

المتغير (1).accdb

تم تعديل يوليو 8, 2019 بواسطه ابا جودى

[ازهر عبد العزيز]

أستاذ @Barna  استاذي @ابا جودى استاذي @jjafferr شكرا جزيلا لكم احسنت تم الحل معكم شكرا لمروركم الكريم

[jo_2010]

الاستاذة الافاضل 

باقى الداتا الموجودة فى التقرير كيف يتم يحويلها ارجو المساعدة للاستفادة

[ابو جودي]

20 دقائق مضت, jo_2010 said:

الاستاذة الافاضل 

باقى الداتا الموجودة فى التقرير كيف يتم يحويلها ارجو المساعدة للاستفادة

شوف الاستعلام الذى هو مصدر التقرير

مررت كل ما اريد تعريبه الى الكود  
 

ArbNmbr(myData)

مع تغيير  muData   بـــ اسم الحقل الذى اريد تغير قيمه الى العربيه
 

ArbNmbr([FildeName])

 

المتغير (2) .accdb

تم تعديل يوليو 8, 2019 بواسطه ابا جودى

[jjafferr]

4 ساعات مضت, ابا جودى said:

دونما التقيد بلغة النظام 

 

اخوي ابا جودي 🙂

ملاحظتك غير دقيقة !!

 

لأنه اذا استعملت الكود حقك في نظام وندوز مافيه عربي ، فستحصل على هذه الرسالة ، لأن الكود عندك به كلمات عربية :

 

والطريقة اللي ممكن تجعل برامجك تشتغل بكل اللغات بدون الخطأ اعلاه :

 

 

ولكن ، صحيح انك ما راح تحصل على خطأ ، وصحيح انك استخرجت الارقام العربية من unicode الخط ، ولكن كلماتك العربية (اسماء الايام والاشهر) تحتاج ان يكون في الوندوز خطوط عربية 😞

 

جعفر

[ابو جودي]

عفو استاذى خاننى التعبيـــــر 

انا اقصد دونما التقييد بتنسيق الوقت والتاريخ واللغة المستخدمة لعرضهما 

لكن نعم استاذى لابد من وجود اللغة العربية طبعا والخطوط العربية

[ابو جودي]

6 ساعات مضت, jjafferr said:

 

 

.

جعفر

اذا استعملت الكود حقك في نظام وندوز مافيه عربي ، فستحصل ايضا على هذه الرسالة ، لأن الكود عندك به كلمات عربية 

6 ساعات مضت, jjafferr said:

 

جعفر

ولكن ما قصدته ان نخرج من تحت عباءه التعديل على اعدادت الويندوز مثل هذا الموضوع 

من يعدل يحصل على النتيحة ومن لا يعدل لن يحصل عليها

[jo_2010]

استاذنا الفاضل اب جودى

خالص الشكر على المثال المرسل الذى تعلمت منة وقمت بتطبيقة على عملى خالص الشكر

[ابو جودي]

19 دقائق مضت, jo_2010 said:

استاذنا الفاضل اب جودى

خالص الشكر على المثال المرسل الذى تعلمت منة وقمت بتطبيقة على عملى خالص الشكر

اخى الحبيب ان استوجب الامر الشكر فليكم لله تعالى ولاساتذتنا الكرام الذين لولا فضل الله تعالى علينا ثم افضالهم ما وصلنا الى هذه النتائج المبشرة بالخير 

[jjafferr]

23 ساعات مضت, ابا جودى said:

اذا استعملت الكود حقك في نظام وندوز مافيه عربي ، فستحصل ايضا على هذه الرسالة ، لأن الكود عندك به كلمات عربية 

 

اذا كانت الكلمات العربية في جدول ، فلن تحصل على رسالة الخطأ ، وانما لن يستطيع الاكسس قراءة الكلمات لأنه لا توجد خطوط عربية في الوندوز ، فيعطيك الاكسس علامات استفهام بدل الكلمة ، هكذا مثلا: ????? ???

 

🙂

جعفر

[ابو جودي]

الان, jjafferr said:

 

اذا كانت الكلمات العربية في جدول ، فلن تحصل على رسالة الخطأ ، وانما لن يستطيع الاكسس قراءة الكلمات لأنه لا توجد خطوط عربية في الوندوز ، فيعطيك الاكسس علامات استفهام بدل الكلمة ، هكذا مثلا: ????? ???

 

🙂

جعفر

بصراحة هذه معلومة لم اكن اعلم عنها انا كنت اظن ان كل الكلمات العربية ان لم يكن الويندوز يدعم اللغة العربية فلن يستطع قرائتها

طيب استاذى الجليل ومعلمى القدير و والدى الجبيب لى سؤال
حضرتك قمت بالاطلاع على فكرتى والالية التى استخدمتها بوضع كل شئ بالموديول
 

هل حضرتك تنصح بان انقل كل شئ الى جداول واقوم بجلب ما اريد منها على طريقتكم بدمج الطريقتين 

[ابو جودي]

وبهذا نحصل على تعريب الارقام دون التقيد بتنسيق الويندوز او التعديلاعلى اعداداته
كما اننا نتلافى ما اشرتم اليه بعاليه 
انتظر رايكم أستاذى الجليل و ومعلمى القدير و والدى الحبيب استاذ @jjafferr

واعتذر لاثقالى عليكم بكثرة اسألتى

حزاكم الله الفردوس الأعلى

[jjafferr]

1 دقيقه مضت, ابا جودى said:

هل حضرتك تنصح بان انقل كل شئ الى جداول واقوم بجلب ما اريد منها على طريقتكم بدمج الطريقتين 

نعم ، أي شيء غير الانجليزي (حتى الملاحظات) ، يجب ان لا تكون في الكود ،

وطبعا الكود الانجليزي يظل في الكود 🙂

 

واذا تسمح لي ، فقد عملت دمج للدالتين ToHijri و ToMilady ، ويمكنك ان تضع ملاحظاتك بالانجليزي بدل العربي ،

والشيء الوحيد المتبقي بالعربي هو معلومات رسالة الخطأ ، والتي يجب ان تضعها في جدول ، وتناديها منه :

Public Function ToWhat(ByRef myData As String, To_Hijri_Milady As String) As String
On Error GoTo ErrorHandler

'to call the Function
'Hijri to Milady
'txt Milady date = ToWhat(txt Hijri date, "H")
'
'Milady to Hijri
'txt Hijri date = ToWhat(txt Milady date, "M")


  Dim CorctAdjustDay As Integer
  
  CorctAdjustDay = DLookup("[AdjustDay]", "tblAdjustHjriDate")
      
      If To_Hijri_Milady = "M" Then
        
        myData = Trim(Format(DateAdd("d", -1 * CorctAdjustDay, myData), "dd/mm/yyyy"))
        SavedCal = Calendar
        VBA.Calendar = 1
        d = CDate(myData)
        VBA.Calendar = 0
        
      Else
        
        myData = Trim(Format(DateAdd("d", CorctAdjustDay, myData), "dd/mm/yyyy"))
        SavedCal = Calendar
        VBA.Calendar = 0
        d = CDate(myData)
        VBA.Calendar = 1
  
      End If
      
      
  s = CStr(d)
  ToWhat = Format(s, "dd/mm/yyyy")
  VBA.Calendar = SavedCal


ErrorHandlerExit:
    Exit Function
ErrorHandler:
    If Err = 13 Then
            MsgBox "لم تقم بإداخال قيمة صحيحة للتاريخ", vbOKOnly + vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيه"
        Exit Function
        'Resume Next
    Else
        Resume ErrorHandlerExit
    End If
End Function

جعفر

[ابو جودي]

19 دقائق مضت, jjafferr said:

نعم ، أي شيء غير الانجليزي (حتى الملاحظات) ، يجب ان لا تكون في الكود ،

وطبعا الكود الانجليزي يظل في الكود 🙂

 

واذا تسمح لي ، فقد عملت دمج للدالتين ToHijri و ToMilady ، ويمكنك ان تضع ملاحظاتك بالانجليزي بدل العربي ،

والشيء الوحيد المتبقي بالعربي هو معلومات رسالة الخطأ ، والتي يجب ان تضعها في جدول ، وتناديها منه :

جعفر

جزاكم الله خيرا على معلوماتكم الرائعة وتوجيهاتكم الرشيدة

وبعدين ايه اذا تسمح لى دى

انا وما املك ملك يمينك لبيك يا استاذى الجليل ومعلمى القدير و والدى الحبيب يا استاذ @jjafferr لم تبخلوا يوما على اى طالب علم وانا منهم بشئ زادكم الله من فضله

شكرا على دمج الدالتين بصراحة ولا اروع 

ان شاء الله تعالى مستقبلا اعود نفسيى على ذلك بامر الله تعالى 

اسال الله تعالى لكم البركة فى العلم والعمر والعمل واسال الله تعالى ان يرزقكم القبول وان يتقبل منكم اعمالكم ويرضى عنكم ويرضيكم 

وللعلم استاذى الجليل ومعلمى القدير والدى الحبيب استاذ @jjafferr 
هذا هو المرفق الاخير لى بهذا الصدد ان احببتم الاطلاع عليه
 

التحويل من هجرى الى ميلادى.accdb

تم تعديل يوليو 9, 2019 بواسطه ابا جودى

[jjafferr]

شكرا بشمهندس 🙂

جعفر