حل مشكلة اللغة العربية داخل محرر الأكواد ادة تحويل من العربي الى الترميز العالمي والعكس

[ابو جودي]

في ٢٦‏/٩‏/٢٠١٩ at 00:54, مصطفى010 said:

السلام عليكم

حاولت استخدم الترميز العالمي لكن الامور غير سليمة ممكن المساعدة

Private Sub Command10_Click()
Form.FilterOn = False
Form.Filter = "[stage]='ابتدائي'And [sex]='انثى'"
Form.FilterOn = True
DoCmd.SetOrderBy "swname ASC"

End Sub

 

Private Sub Command10_Click()
Form.FilterOn = False
Form.Filter = stage = ChrW("1575") & ChrW("1576") & ChrW("1578") & ChrW("1583") & ChrW("1575") & ChrW("1574") & ChrW("1610") And sex = ChrW("1575") & ChrW("1606") & ChrW("1579") & ChrW("1609")
Form.FilterOn = True
DoCmd.SetOrderBy "swname ASC"

End Sub

وهنا ايضا

 

Text32 = DCount("[swname]", "usyssworker", "[idara]='Èäí ÓæíÝ'and[case]='ÇÕáí'and[stage]='ÇÈÊÏÇÆí'")

 

ممكن المرفق الاصلى

[مصطفى010]

اتفضل

يوجد نموذجين  الاول يعمل بالكتابة العربية الثاني حاولت التحويل به ولم يعمل برجاء تعديل الخطأ

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

الرجاء التحويل في النموذج والتقرير.............. وشكرا

unicode.accdb

[ابو جودي]

في ٢٦‏/٩‏/٢٠١٩ at 14:58, مصطفى010 said:

اتفضل

يوجد نموذجين  الاول يعمل بالكتابة العربية الثاني حاولت التحويل به ولم يعمل برجاء تعديل الخطأ

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

الرجاء التحويل في النموذج والتقرير.............. وشكرا

unicode.accdb 684 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 3 downloads

اتفضل يا افندم 

unicode.accdb

[مصطفى010]

شكرا باشمهندس محمد (ابو جودي) فكرة جميلة فكرة المديول لكن ليه انا ما عرفتش اعملها هنا   

7 دقائق مضت, ابا جودى said:

اتفضل يا افندم 

unicode.accdb 756 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 0 downloads

وما هي قواعد الكتابة لانني عملنها ونفعت لكن بمعيارين ولما كانت المعايير كثيرة اصبح من الصعب ؟

[ابو جودي]

في ٢٦‏/٩‏/٢٠١٩ at 17:41, مصطفى010 said:

شكرا باشمهندس محمد (ابو جودي) فكرة جميلة فكرة المديول لكن ليه انا ما عرفتش اعملها هنا   

وما هي قواعد الكتابة لانني عملنها ونفعت لكن بمعيارين ولما كانت المعايير كثيرة اصبح من الصعب ؟

بص انا هقول لك ليه فكرت بالموديول 

لان كلمة انثى تكررت مثلا اربع مرات 

كان ممكن ما اعمل الموديول ومثلا فى كل زر امر اقوم بعمل الاتى 

مثلا الكود الاتى 

Private Sub Command10_Click()
Form.FilterOn = False
Form.Filter = "[stage]='ابتدائي'And [sex]='انثى'"
Form.FilterOn = True
DoCmd.SetOrderBy "swname ASC"
End Sub

ببساطة وبدون موديول ممكن يكون كده

Private Sub Command10_Click()
Dim StrSex   	As String
dim StrStage	As String 

StrSex = ChrW("1575") & ChrW("1606") & ChrW("1579") & ChrW("1609")
StrStage = ChrW("1575") & ChrW("1576") & ChrW("1578") & ChrW("1583") & ChrW("1575") & ChrW("1574") & ChrW("1610")

Form.FilterOn = False
'Form.Filter = "[stage]='ابتدائي'And [sex]='انثى'"
Form.Filter = "[stage]='" & StrStage & "' And [sex]='" & StrSex & "'"
Form.FilterOn = True
DoCmd.SetOrderBy "swname ASC"
End Sub

 

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

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

[مصطفى010]

6 دقائق مضت, ابا جودى said:

بص انا هقول لك ليه فكرت بالموديول 

لان كلمة انثى تكررت مثلا اربع مرات 

كان ممكن ما اعمل الموديول ومثلا فى كل زر امر اقوم بعمل الاتى 

مثلا الكود الاتى 

Private Sub Command10_Click()
Form.FilterOn = False
Form.Filter = "[stage]='ابتدائي'And [sex]='انثى'"
Form.FilterOn = True
DoCmd.SetOrderBy "swname ASC"
End Sub

ببساطة وبدون موديول ممكن يكون كده

Private Sub Command10_Click()
Dim StrSex   	As String
dim StrStage	As String 

StrSex = ChrW("1575") & ChrW("1606") & ChrW("1579") & ChrW("1609")
StrStage = ChrW("1575") & ChrW("1576") & ChrW("1578") & ChrW("1583") & ChrW("1575") & ChrW("1574") & ChrW("1610")

Form.FilterOn = False
'Form.Filter = "[stage]='ابتدائي'And [sex]='انثى'"
Form.Filter = "[stage]='" & StrStage & "' And [sex]='" & StrSex & "'"
Form.FilterOn = True
DoCmd.SetOrderBy "swname ASC"
End Sub

 

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

تمام شكرا

[jo_2010]

شكرا اخى الفاضل  مصطفى010

[ابو جودي]

في ٢٦‏/٩‏/٢٠١٩ at 19:14, jo_2010 said:

شكرا اخى الفاضل  مصطفى010

هو سبقنى 

[مصطفى010]

السلام عليكم

جاولت اطبق في التقرير بالمثال لم انجح برجاء التطبيق لو تكرمت

[jo_2010]

ربنا يكرمكم

[مصطفى010]

السلام عليكم

ممكن في الفورمين تحويل الحروف العربية المكتوبة إلى ترميز

حاولت كثيرا لكن اجهل قواعد الكتابة  

ChrW(1576)   Chr(199)

new 20201 - Copy.accdb

[مصطفى010]

هل من مساعدة

[ابو جودي]

انا اسف انا فاتح من موبايل

انا لم افهم المطلوب ممكن توضيحه مع ارفاق مثال واتمنى ان يساعدك احبابنا لان الانترنت منقطع 😠

او تحمل تاخرى فى الرد عليكم 😒😩

[مصطفى010]

 

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

انا اسف انا فاتح من موبايل

انا لم افهم المطلوب ممكن توضيحه مع ارفاق مثال واتمنى ان يساعدك احبابنا لان الانترنت منقطع 😠

او تحمل تاخرى فى الرد عليكم 😒😩

السلام عليكم ابا جودي

المطلوب كما بالصورة اريد استبدال حرف "ا" بالترميز العالمي

الصيغة حاولت كتابتها لم اتمكن

[مصطفى010]

في ١١‏/٣‏/٢٠٢٠ at 15:19, مصطفى010 said:

 

السلام عليكم ابا جودي

المطلوب كما بالصورة اريد استبدال حرف "ا" بالترميز العالمي

الصيغة حاولت كتابتها لم اتمكن

برجاء الرد

 

[أبوبسمله]

في ٩‏/٣‏/٢٠٢٠ at 18:56, مصطفى010 said:

السلام عليكم

ممكن في الفورمين تحويل الحروف العربية المكتوبة إلى ترميز

حاولت كثيرا لكن اجهل قواعد الكتابة  

ChrW(1576)   Chr(199)

new 20201 - Copy.accdb 808 kB · 25 تنزيلات

بعد اذن اخى واستاذى محمد @ابا جودى اشارك معكم للاستفاده والتعلم

اخى الفاضل مصطفى محاوله منى على قد معرفت

فالنموذج fsearchwithletter

عدلت لك الاربع احرف الاولى اكمل الباقى

Private Sub XFilter_Click()
Select Case XFilter
        Case Is = 1
            DoCmd.ApplyFilter , "[swname] Like '" & ChrW(1575) & "*'"
        Case Is = 2
            DoCmd.ApplyFilter , "[swname] Like '" & ChrW(1576) & "*'"
        Case Is = 3
            DoCmd.ApplyFilter , "[swname] Like '" & ChrW(1578) & "*'"
        Case Is = 4
            DoCmd.ApplyFilter , "[swname] Like '" & ChrW(1579) & "*'"

ع ما اعتقد النموذج الثانى مش هتنفع لانك تكتب الحرف فحقل البحث ولن تكتب ChrW(1575) فحقل البحث

تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

new 20201 - Copy(3).accdb

تم تعديل مارس 13, 2020 بواسطه أحمد الفلاحجى