معرفة تغير سلوك نموزج الادخال لكتابة الارقام باللغة العربية داخل الجدول

[أبو حوده]

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

ارجو الرد من الاخوة المشرفين او الاعضاء للاهمية 

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

[Elsayed Bn Gemy]

اخى الكريم من خصائص مربع النص الذى يظهر فيه قيمة التاريخ ظبط التنسيقات كالصورة التالية

 

[أبو حوده]

تمام الف الف الف شكر ياغالى ومعلش بكرر اسفى للالحاحى فى الطلب من حضرتك ظبطت معايا الطريقة 

 

دلوقتى كل المرفقات اللى الخوة الاعضاء رفعوها لمثال تجاهل الهمزة والتشكيل فى البحث مش زى القاعدة بتاعتى ولا شبيهة بقاعدة البيانات بتاعتى لان حقل البحث بيكون فى نفس الفورم  اما فى قاعدة البيانات الخاصة بيا فهى فى مربع منبثق فمشعارف اضع كود التجاهل فين بالظبط ودى صورة الفورم 

[Elsayed Bn Gemy]

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

وعموما يبدو انك ستحتاج الى وضع الكود فى الاستعلام الخاص بالبحث

عموما

قمت بتصميم مرفق لك يحاكى ما تطلب تم الاستغناء فيه عن رسالة ادخل اى مقطع من الاسم الدرجة فى الاستعلام بنموذج Form1

 

 

 

Search.rar

[أبو حوده]

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

[Elsayed Bn Gemy]

Function ClearText(ByVal inText As String) As String
  Dim myPos As Integer
  
    Do While InStr(1, inText, "أ") > 0
    inText = Replace(inText, "ا", "أ")
  Loop

  
  Do While InStr(1, inText, "") > 0
    inText = Replace(inText, "", "")
  Loop
  
  Do While InStr(1, inText, "") > 0
    inText = Replace(inText, "", "")
  Loop
  
  Do While InStr(1, inText, "") > 0
    inText = Replace(inText, "", "")
  Loop
  
  
  ClearText = inText
End Function

 اخى الكريم بارك الله لك قم بكتابة ما تريد بين علامات النصوص كما يترائى لك كما فى المثال الاول