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

[ابو جودي]

  في 25‏/9‏/2019 at 22: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]='ÇÈÊÏÇÆí'")

 

Expand  

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

[مصطفى010]

اتفضل

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

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

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

unicode.accdbFetching info...

[ابو جودي]

  في 26‏/9‏/2019 at 12:58, مصطفى010 said:

اتفضل

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

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

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

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

Expand  

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

unicode.accdbFetching info...

[مصطفى010]

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

  في 26‏/9‏/2019 at 15:33, ابا جودى said:

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

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

Expand  

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

[ابو جودي]

  في 26‏/9‏/2019 at 15:41, مصطفى010 said:

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

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

Expand  

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

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

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

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

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]

  في 26‏/9‏/2019 at 15:49, ابا جودى 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

 

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

Expand  

تمام شكرا

[jo_2010]

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

[ابو جودي]

  في 26‏/9‏/2019 at 17:14, jo_2010 said:

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

Expand  

هو سبقنى 

[مصطفى010]

السلام عليكم

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

[jo_2010]

ربنا يكرمكم

[مصطفى010]

السلام عليكم

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

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

ChrW(1576)   Chr(199)

new 20201 - Copy.accdbFetching info...

[مصطفى010]

هل من مساعدة

[ابو جودي]

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

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

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

[مصطفى010]

 

  في 10‏/3‏/2020 at 21:04, ابا جودى said:

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

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

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

Expand  

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

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

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

[مصطفى010]

  في 11‏/3‏/2020 at 13:19, مصطفى010 said:

 

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

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

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

برجاء الرد

Expand  

 

[أبوبسمله]

  في 9‏/3‏/2020 at 16:56, مصطفى010 said:

السلام عليكم

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

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

ChrW(1576)   Chr(199)

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

Expand  

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

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

فالنموذج 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).accdbFetching info...

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