تجاهل الهمزة و تغيير السجل الحالي

بالنسبة للسؤال الأول :

Dim Rec2Go As Long
    DoCmd.GoToRecord , , acLast
    Randomize
    Rec2Go = Int(Rnd(-Timer) * Me.Recordset.RecordCount - 1) + 1
    DoCmd.GoToRecord , , acGoTo, Rec2Go

بالنسبة للسؤال الثاني فإن الFunction الذي كتبته فوق للسيد أبو هاجر غير صحيح ..

وهذا Function عملته لنفس الموضوع :

Function changesearch(Mytxt) As String
   Dim tempstr As String
   tempstr = Nz(Mytxt, "")
   tempstr = ReplaceChar(tempstr, "أإآا")
   tempstr = ReplaceChar(tempstr, "ةه")
   tempstr = ReplaceChar(tempstr, "ىي")
   changesearch = tempstr
End Function

Private Function ReplaceChar(W As String, C As String) As String
   Dim R As Byte
   Dim S As String, I As String
   For R = 1 To Len(W)
      I = Mid(W, R, 1)
      If InStr(C, I) > 0 Then
         S = S & "[" & C & "]"
      Else
         S = S + I
      End If
   Next R
   ReplaceChar = S
End Function

أخي مهند عاجز عن الشكر على سرعة ردك وتجاوبك فجزاك الله عني خير الجزاء ونفع بعلمك الإسلام والمسلمين وجعل الله هذا العلم من العلم الصالح الذي ينفع صاحبه في الدنيا والآخرة .. اللهم آمين .

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

أما الوحدة النمطية الثانية فلم أسطتع التعامل معها فهل تتكرم بتطبيقها على البرنامج الذي قمت بإرفاقه في مشاركتي الأولى .. أرجو أن تعذرني على الإزعاج وكثرة الأسئلة فما فعلت ذلك إلا لأني أعرف كرمك جزاك الله خيراً .

ولك تحياتي ..

تفضل أخي فهد ..

هذا المثال بعد تطبيق جواب السؤالين عليه

توضيح.rar

أخي مهند شكرا لك

حاولت تجربة المثال الذي قمت أنت بتطبيق الدالة الثانية عليه وجدت ما يلي :-

1- إذا كان في الحقل العلوي أي كلمة يوجد فيها (أإآا) فإنه يعطي رسالة الكلمة غير مطابقة حتى ولو كتابتها مثل ماهي مثال الكلمة فوق ( ام ) أقوم بكتابتها في الحقل الأسفل ( أم ) فتخرج الرسالة غير متطابقة حتى لو كتبتها ( ام ) كما هي في الأعلا تخرج غير متطابقة أما باقي الكلمات التي ليس فيها (أإآا) فتخرج رسالة الكلمة مطابقة .

ما أدري ما هو السبب .

تحياتي ..

الأمر غريب أخي فهد ..

لقد جربت البرنامج على كل الكلمات التي تحتوي على أآإا .. وكانت النتيجة صحيحة !!

راجع الكود .. ربما تغيّر أثناء عملية التحميل !!

السلام عليكم

بعد اذن الاخ مهند

أخي فهد

راجع هذا الموضوع

http://www.officena.com/ib/index.php?showt...=1912&hl=الهمزة

أخي فهد الدوسري ،،، لقد عمل معي المثال الذي وضعه الاستاذ / مهند

100 %

للمعلومية

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

أخي مهند .. الأمر غريب جداً . فقد حملت البرنامج مرة أخرى ودققت في الدالة فلم أحصل أي تغيير فيها أبداً وحاولت الكتابة ومع ذلك لم أفلح بل أنه أحيانا تكون في الحقل الأعلى كلمة (قمر ) وأكتبها كما هي وأحيانا أنسخها وألصقها في الحقل الأسفل فتخرج رسالة تفيد أن الكلمتين غير متطابقتين وإذا أزلت الدالة التي وضعتها أنت تخرج رسالة تفيد أن الكلمتين متطابقتين رغم أنه لا يوجد فيها همزة ولا تاء مربوطة ولا ياء . فما الحل ؟

جهازي يعمل على ويندوز ملينيوم والأوفيس فيه هو أكس بي فهل لذلك تأثير أو أنه يريد إضافة مرجع معين أو ماذا يا ترى ؟؟؟!!!!!!!!!!!

يبدو أني دوختكم معاي الله يعينكم علي .

تحياتي ..

ألا يوجد دالة أخرى في هذا المجال فربما أن الدالة التي كتبتها تتطلب أشياء قد لا توجد في بعض الأجهزة ربما ذلك .

لا أعرف ماذا أقول لك .. ولكن قم بإعادة تثبيت الأكسس بخيارات كاملة وجرب مرة أخرى

عموماً أستاذي مهند ( كفيت ووفيت وما حصل منك تقصير) وأنا أشكرك من كل أعماق قلبي على سعة صدرك وتقبل إزعاجي .

تحياتي ..

أخي فهد .. يبدو أن تعليمة Like عندك لا تعمل كما يجب ..

لذلك فلن يعمل عندك أي Function آخر بشكل صحيح لأن العلة ليست بالFunction ولكن الظاهر أنها في الأكسس

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

احيانا يفي اعادة الترتيب للمراجع فى الاكسيس بحل بعض مشاكل شبيه

و لكن اذا كانت مشكلة مراجع ، فسيتوقف الكود عند الدالة المعنية اذا عملت Debug

فجرب عمل debug أولا ثم اعادة الترتيب

أيضا

جرب استبدال الحروف العربية فى الكود ، بال asci code المناظر كما فى الموضوع المشار اليه عاليا

فاحيانا مع بعض النسخ يحدث مشاكل مع وجود حروف عربية وسط الكود

و اذا لم يتم عمل الكود بعد هذا كله

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

أيضا توجد اضافة من الأخ أبو هادي هنا

http://www.officena.com/ib/index.php?act=S...st=0#entry16856

أصبحت الوحدة النمطية تعمل على ما يرام بعد تعديل الأستاذ أبو هادي

يمكنك احتياطا تبديل هذا السطر :

If Arabic_word Like changesearch(Arabic1) Then

بهذا السطر :

If changesearch(Trim(Arabic_word)) = changesearch(Trim(Arabic1)) Then

تحياتي لكل من تعب معي .

أخي فهد .. استعمال الدالة Like هو أسرع من هذا الأسلوب إذا كان القصد البحث في قاعدة البيانات .. لذلك أرجع وأؤكد لك أنه توجد مشكلة في الأكسس في جهازك

الشيء الثاني لا داعي لاستعمال Trim .. لأن الدالة changesearch تحتوي على Trim وبالتالي السطر هذا يكفي :

f changesearch(Arabic_word) = changesearch(Arabic1) Then

نبهني الأخ أبو هادي إلى أن Trim غير موجودة في الدالة changesearch وكنت أحسبها موجودة سهواً ..

لذلك إما أن تعود إلى سطر أخي أبو هادي أو أن تضيف هذا السطر في برمجة الدالة changesearch بعد سطر :

 Tempstr = Nz(Mytxt, "")
  Tempstr = Trim( tempstr )

أخي مهند .. أخي أبو هادي .. لكما مني جزيل الشكر والعرفان على كل ما تقدمانه من فائدة وعلم .

تحياتي ..