اذهب الي المحتوي
أوفيسنا

طلب تحويل أسماء الشهور العربية في الكود إلى الترميز العالمي

alsihran

بواسطه alsihran
في قسم الأكسيس Access

 مشاركة
إذهب إلى أفضل إجابة Solved by ابو جودي,

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

alsihran

alsihran

قام بنشر
قام بنشر

السلام عليكم 

بالمرفق تقويم أم القرى 

في الفورم Cal

توجد هذه الاكواد  

    Me.cboMonth.RowSource = "1;Moharram;محرم;2;Safar;صفر;3;Rabi I;ربيع الأول;4;Rabi II;ربيع الآخر;5;Jumada I;جمادى الأولى;6;Jumada II;" & _
                            "جمادى الآخرة;7;Rajab;رجب;8;Shaban;شعبان;9;Ramadhan;رمضان;10;Shawwal;شوال;11;Thul-Qudah;ذو القعدة;12;Thul-Hijjah;ذو الحجة"
    Me.cboMonth.RowSource = "1;January;يناير;2;February;فبراير;3;March;مارس;4;April;أبريل;5;May;مايو;6;June;" & _
                            "يونيو;7;July;يوليو;8;August;أغسطس;9;September;سبتمبر;10;October;أكتوبر;11;November;نوفمبر;12;December;ديسمبر"
    Me.cboMonth.RowSource = "1;Moharram;محرم;2;Safar;صفر;3;Rabi I;ربيع الأول;4;Rabi II;ربيع الآخر;5;Jumada I;جمادى الأولى;6;Jumada II;" & _
                            "جمادى الآخرة;7;Rajab;رجب;8;Shaban;شعبان;9;Ramadhan;رمضان;10;Shawwal;شوال;11;Thul-Qudah;ذو القعدة;12;Thul-Hijjah;ذو الحجة"

وبسبب مشاكل اللغة العربية في الاكود اريد تغيير اسماء الاشهر باللغة العربية الى الترميز العالمي 

UmAlQuraUp.mdb

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

ابو جودي

قام بنشر
قام بنشر (معدل)

اتفضل التطبيق الذى يساعدك ع التحويل 

وان اردتهم جاهزين  

'---------------------------Months---------------------------
'English Months
Public Function EngMonth(myData As Date)
        Select Case Month(myData)
            Case 1: MnNm = "January"
            Case 2: MnNm = "February"
            Case 3: MnNm = "March"
            Case 4: MnNm = "April"
            Case 5: MnNm = "May"
            Case 6: MnNm = "June"
            Case 7: MnNm = "July"
            Case 8: MnNm = "August"
            Case 9: MnNm = "September"
            Case 10: MnNm = "October"
            Case 11: MnNm = "November"
            Case 12: MnNm = "December"
        End Select
    EngMonth = MnNm
End Function
'--------------------------


'--------------------------
'Arabic Months
Public Function ArbMonth(myData As Date)
        Select Case Month(myData)
            Case 1: MnNm = ChrW("1610") & ChrW("1606") & ChrW("1575") & ChrW("1610") & ChrW("1585")
            Case 2: MnNm = ChrW("1601") & ChrW("1576") & ChrW("1585") & ChrW("1575") & ChrW("1610") & ChrW("1585")
            Case 3: MnNm = ChrW("1605") & ChrW("1575") & ChrW("1585") & ChrW("1587")
            Case 4: MnNm = ChrW("1571") & ChrW("1576") & ChrW("1585") & ChrW("1610") & ChrW("1604")
            Case 5: MnNm = ChrW("1605") & ChrW("1575") & ChrW("1610") & ChrW("1608")
            Case 6: MnNm = ChrW("1610") & ChrW("1608") & ChrW("1606") & ChrW("1610") & ChrW("1608")
            Case 7: MnNm = ChrW("1610") & ChrW("1608") & ChrW("1604") & ChrW("1610") & ChrW("1608")
            Case 8: MnNm = ChrW("1571") & ChrW("1594") & ChrW("1587") & ChrW("1591") & ChrW("1587")
            Case 9: MnNm = ChrW("1587") & ChrW("1576") & ChrW("1578") & ChrW("1605") & ChrW("1576") & ChrW("1585")
            Case 10: MnNm = ChrW("1571") & ChrW("1603") & ChrW("1578") & ChrW("1608") & ChrW("1576") & ChrW("1585")
            Case 11: MnNm = ChrW("1606") & ChrW("1608") & ChrW("1601") & ChrW("1605") & ChrW("1576") & ChrW("1585")
            Case 12: MnNm = ChrW("1583") & ChrW("1610") & ChrW("1587") & ChrW("1605") & ChrW("1576") & ChrW("1585")
        End Select
    ArbMonth = MnNm
End Function
'--------------------------

'--------------------------
'Hijri Months
Public Function HjrMonth(myData As Date)
        Select Case Month(myData)
            Case 1: MnNm = ChrW("1605") & ChrW("1581") & ChrW("1585") & ChrW("1605")
            Case 2: MnNm = ChrW("1589") & ChrW("1601") & ChrW("1585")
            Case 3: MnNm = ChrW("1585") & ChrW("1576") & ChrW("1610") & ChrW("1593") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1608") & ChrW("1604")
            Case 4: MnNm = ChrW("1585") & ChrW("1576") & ChrW("1610") & ChrW("1593") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1570") & ChrW("1582") & ChrW("1585")
            Case 5: MnNm = ChrW("1580") & ChrW("1605") & ChrW("1575") & ChrW("1583") & ChrW("1610") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1608") & ChrW("1604") & ChrW("1610")
            Case 6: MnNm = ChrW("1580") & ChrW("1605") & ChrW("1575") & ChrW("1583") & ChrW("1610") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1570") & ChrW("1582") & ChrW("1585") & ChrW("1577")
            Case 7: MnNm = ChrW("1585") & ChrW("1580") & ChrW("1576")
            Case 8: MnNm = ChrW("1588") & ChrW("1593") & ChrW("1576") & ChrW("1575") & ChrW("1606")
            Case 9: MnNm = ChrW("1585") & ChrW("1605") & ChrW("1590") & ChrW("1575") & ChrW("1606")
            Case 10: MnNm = ChrW("1588") & ChrW("1608") & ChrW("1575") & ChrW("1604")
            Case 11: MnNm = ChrW("1584") & ChrW("1608") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1602") & ChrW("1593") & ChrW("1583") & ChrW("1577")
            Case 12: MnNm = ChrW("1584") & ChrW("1608") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1581") & ChrW("1580") & ChrW("1577")
        End Select
    HjrMonth = MnNm
End Function
'--------------------------
'---------------------------Months---------------------------


'--------------------------
'Arabic Days
Public Function ArbDayName(myData As Date)
        Select Case Weekday(myData)
            Case 1: DyNm = ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1581") & ChrW("1583")                                                '01 |   Sunday    | Sun |
            Case 2: DyNm = ChrW("1575") & ChrW("1604") & ChrW("1573") & ChrW("1579") & ChrW("1606") & ChrW("1610") & ChrW("1606")                  '02 |   Monday    | Mon |
            Case 3: DyNm = ChrW("1575") & ChrW("1604") & ChrW("1579") & ChrW("1604") & ChrW("1575") & ChrW("1579") & ChrW("1575") & ChrW("1569")   '03 |   Tuesday   | Tue |
            Case 4: DyNm = ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1585") & ChrW("1576") & ChrW("1593") & ChrW("1575") & ChrW("1569")   '04 |   Wednesday | Wed |
            Case 5: DyNm = ChrW("1575") & ChrW("1604") & ChrW("1582") & ChrW("1605") & ChrW("1610") & ChrW("1587")                                 '05 |   Thursday  | Thu |
            Case 6: DyNm = ChrW("1575") & ChrW("1604") & ChrW("1580") & ChrW("1605") & ChrW("1593") & ChrW("1607")                                 '06 |   Friday    | Fri |
            Case 7: DyNm = ChrW("1575") & ChrW("1604") & ChrW("1587") & ChrW("1576") & ChrW("1578")                                                '07 |   Saturday  | Sat |
        End Select
    ArbDayName = DyNm
End Function
'--------------------------

'--------------------------
'English Days
Public Function EngDayName(myData As Date)
        Select Case Weekday(myData)
            Case 1: DyNm = "Sunday"         '01 |     Sunday    | Sun |
            Case 2: DyNm = "Monday"         '02 |     Monday    | Mon |
            Case 3: DyNm = "Tuesday"        '03 |     Tuesday   | Tue |
            Case 4: DyNm = "Wednesday"      '04 |     Wednesday | Wed |
            Case 5: DyNm = "Thursday"       '05 |     Thursday  | Thu |
            Case 6: DyNm = "Friday"         '06 |     Friday    | Fri |
            Case 7: DyNm = "Saturday"       '07 |     Saturday  | Sat |
        End Select
    EngDayName = DyNm
End Function
'--------------------------

'--------------------------
'Short Names English Days
Public Function ShortDayName(myData As Date)
        Select Case Weekday(myData)
            Case 1: DyNm = "Sun"            '01 |     Sunday    | Sun |
            Case 2: DyNm = "Mon"            '02 |     Monday    | Mon |
            Case 3: DyNm = "Tue"            '03 |     Tuesday   | Tue |
            Case 4: DyNm = "Wed"            '04 |     Wednesday | Wed |
            Case 5: DyNm = "Thu"            '05 |     Thursday  | Thu |
            Case 6: DyNm = "Fri"            '06 |     Friday    | Fri |
            Case 7: DyNm = "Sat"            '07 |     Saturday  | Sat |
        End Select
    ShortDayName = DyNm
End Function
'--------------------------
'---------------------------Days---------------------------

 

 

Converter Arabic and Unicode (v. 2).mdb

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

alsihran

قام بنشر
  • الكاتب
قام بنشر
15 دقائق مضت, ابا جودى said:

اتفضل التطبيق الذى يساعدك ع التحويل 

شكرا لك أخ محمد 

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

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

alsihran

قام بنشر
  • الكاتب
قام بنشر
الان, ابا جودى said:

جربتها وتمام الحمد لله ...

هل تم حل مشكلتك

100/%

بارك الله فيك 

وبما ان احنا في نفس الموضوع 

ياليت تشوف لي هذا الكود خاص بعمل اختصار على سطح المكتب مايقبل الترميز مش عارف ليه  

    DB_Name = Application.CurrentProject.Name
    DB_Path = Application.CurrentProject.Path
    icon_Name = "Arc5.ico"
    icon_Path = Application.CurrentProject.Path
   ' icon_Name_Path = icon_Path & "\" & icon_Name
 icon_Name_Path = icon_Path & "\icon\" & icon_Name
With CreateObject("WScript.Shell")
  With .CreateShortcut(.SpecialFolders("Desktop") & "\البرنامج.lnk")
    .TargetPath = DB_Path & "\" & DB_Name
    .WindowStyle = 1
    .Hotkey = ""
    .IconLocation = icon_Name_Path
    .Description = "برنامج  "
    .WorkingDirectory = DB_Path & "\"
      .Save
  End With
End With

 

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

ابو جودي

قام بنشر
قام بنشر 

DB_Name = Application.CurrentProject.Name DB_Path = Application.CurrentProject.Path icon_Name = "Arc5.ico" icon_Path = Application.CurrentProject.Path ' icon_Name_Path = icon_Path & "\" & icon_Name icon_Name_Path = icon_Path & "\icon\" & icon_Name With CreateObject("WScript.Shell") With .CreateShortcut(.SpecialFolders("Desktop") & "\" & اسم البرنامج بالتركيز العالمي & ".lnk") .TargetPath = DB_Path & "\" & DB_Name .WindowStyle = 1 .Hotkey = "" .IconLocation = icon_Name_Path .Description = وصف البرنامج بالترميز العالمى .WorkingDirectory = DB_Path & "\" .Save End With End With

انا عدلت الكود من خلال الموبايل اعتذر لعدم وجود مرفق

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

alsihran

قام بنشر
  • الكاتب
قام بنشر (معدل)
34 دقائق مضت, ابا جودى said:

انا عدلت الكود من خلال الموبايل اعتذر لعدم وجود مرفق

image.png.371f52e25f63f9a264da432b33246b7f.png

image.png.15845660e619b0682b22f44057a77366.png

طلع عندي نفس الخطأ اللي بالكود السابق 

واذا جعلت اسم الاختصار بالانجليزي يشتغل تمام

تم تعديل بواسطه alsihran
رابط هذا التعليق
شارك
alsihran

alsihran

قام بنشر
  • الكاتب
قام بنشر (معدل)
15 ساعات مضت, ابا جودى said:

 اتفضل انا استخدم هذا الروتين فى تنقيذ الشورت كت

نفس الشي حتى برنامجك يطلع لي خطأ لمى اشغلة 

image.png.6a838ec9895967268b5ffb93aab645ed.png

تم تعديل بواسطه alsihran
  • Confused 1
رابط هذا التعليق
شارك
jjafferr

jjafferr

قام بنشر
قام بنشر
في ٢٧‏/١٢‏/٢٠٢٠ at 21:24, alsihran said:

وبسبب مشاكل اللغة العربية في الاكود اريد تغيير اسماء الاشهر باللغة العربية الى الترميز العالمي

 

رجاء مراجعة هذا الرابط

.

ولا يوجد شيء اسمه ترميز عالمي ، كل اللي تحتاج لما تريد مناداة الشهر 2 من الاشهر العربية : 

Me.Moth_Hijri = DLookup("[Months_Hijri]", "tbl_Months", "[Months_Number]=" & 2)

.

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

ثم تستعملها للمربع السرد ComboBox ، وبدون اكواد.

 

 

 

خليني اوضح لك نقطة انت محتار فيها ، والاكواد اعلاه تخليك تضيع اكثر :

لا تكتب الكلمات العربية في الكود ، ولكن اكتبها في الجدول ، وناديها من الجدول ، وما بتصادف اي مشكلة 🙂

 

جعفر

 

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

ابو جودي

قام بنشر
قام بنشر (معدل)
5 ساعات مضت, alsihran said:

نفس الشي حتى برنامجك يطلع لي خطأ لمى اشغلة 

image.png.6a838ec9895967268b5ffb93aab645ed.png

طيب لو تكرنت تتفضل بتحربة المرفق الاتى سوف يتم وضع الاختصار للبرنامج فى القطاع   D

ان تم وضع اختصار بدون مشاكل أخبرنى

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

يمكن عمل جدول وتقوم بإستدعاء البيانات منه من خلال كود بدون التطرق الى استخدام نظام الترميز الموحد unicode :yes:

 

Creat Shortcut (D).zip

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

alsihran

قام بنشر
  • الكاتب
قام بنشر
40 دقائق مضت, jjafferr said:

وما بتصادف اي مشكلة

حياك الله استاذ

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

ضخم وفيها اكواد كثيرة ويعتمد على متى يتم استدعاء الشهر والتاريخ بالعربي ومتى يتم استدعائهم

باللغة الانجليزية وعلى اي تقويم ميلادي او هجري او ام القرى الموضوع شائك جدا جدا بالنسبة لي 

 

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

خليني اوضح لك نقطة انت محتار فيها ، والاكواد اعلاه تخليك تضيع اكثر :

 

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

ما عرفت ادمج الرسالة مع الدوال 

 

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 مشاركة
الذهاب الي قائمه المواضيع

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

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

Important Information

  I accept