اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

اتفضل :fff:

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

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

:eek2:

0001.thumb.jpg.b1f54841ee84298486e5b4263c751d43.jpg

تم تعديل بواسطه ابا جودى
  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

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

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

ArbNmbr(myData)

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

ArbNmbr([FildeName])

 

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

تم تعديل بواسطه ابا جودى
  • Like 1
رابط هذا التعليق
شارك

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

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

 

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

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

 

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

Image

 

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

 

 

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

 

جعفر

  • Like 1
  • Haha 1
رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

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

 

 

.

جعفر

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


Image

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

 

جعفر

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

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

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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

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

 

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

 

🙂

جعفر

رابط هذا التعليق
شارك

الان, jjafferr said:

 

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

 

🙂

جعفر

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

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

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

رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

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


جعفر

  • Like 1
رابط هذا التعليق
شارك

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

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

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

 

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

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


جعفر

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

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

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

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

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

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

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

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

تم تعديل بواسطه ابا جودى
  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information