مساعدة في وضع المؤشر في آخر مربع البحث مع تفعيل خيار (الانتقال إلى بداية الحقل)

[nssj]

الإخوة الكرام .. في الملف المرفق مربع بحث (tx0) والمشكلة التي واجهتها هو أنه عند عدم وجود نتائج في البحث أريد أن يرجع المؤشر إلى آخر الحقل، وبعبارة أخرى إلى آخر كلمة البحث

مع العلم أن فعلت خيار

 

حاولت عدة محاولات .. لكن المؤشر مصر على أن يبقى في أول الكلمة .. هل من طريقة للتفاهم معه 🙂

SelStart.accdb

[ابو جودي]

غير للكود ده

Private Sub tx0_Change()
On Error GoTo Proc_Err


        Dim txtsearch As String: txtsearch = Me.tx0.Text
        Me.Filter = "RAWY_NAME" & " Like ""*" & txtsearch & "*""": Me.FilterOn = True
        Me.tx0.SetFocus
        Me.tx0 = txtsearch
        Me.tx0.SelStart = Len(txtsearch)
        
Exit Sub
Proc_Err:

  Select Case Err.Number
    Case Is = 2185
      Me.FilterOn = False
      Me.tx0.SetFocus
      Me.tx0.SelStart = Me.tx0.SelLength
      Beep
      MsgBox "There are no results"
    Case Else
      MsgBox "Error  " & Err.Number & vbNewLine & Err.Description
  End Select
End Sub

 

تم تعديل يناير 3, 2022 بواسطه ابو جودي
تعديل الكود

[nssj]

جزاك الله خيراً أخي الكريم ..                 لكن لا تزال المشكلة قائمة .. المؤشر يبقى في أول الكلمة ولا بد أن أكبس (End) حتى ينتقل لآخرها

[ابو جودي]

جرب المرفق الاتى 

 

SelStart (1).accdb

[nssj]

نفس النتيجة 😟

أنا خايف تحكيلي إنو النتيجة عندك تمام وعندي مش تمام 🙄

[ابو جودي]

انا راح اصور لك الشاشة الحين

اتفضل شوف بنفسك

 

[nssj]

😐 🙄 🤔

الغريب .. إني جربت الملف على جهاز ثاني عليه أكسس (2010) والنتيجة تمام

أما على جهازي أكسس (2019) فمش تمام .. إيش يعني ؟؟؟ في مشكلة في نسخة الأكسس اللي عندي أو إنو في خيارات لازم أعدلها ؟؟

[ابو جودي]

3 دقائق مضت, nssj said:

😐 🙄 🤔

الغريب .. إني جربت الملف على جهاز ثاني عليه أكسس (2010) والنتيجة تمام

أما على جهازي أكسس (2019) فمش تمام .. إيش يعني ؟؟؟ في مشكلة في نسخة الأكسس اللي عندي أو إنو في خيارات لازم أعدلها ؟؟

وانا هذا اصدار الاوفيس عندى ولم اقم بأى تعديلات الا التى تمت على الكود فقط

[nssj]

شيء محير فعلا  🤔 🙄.. جربت الملف على جهاز تاني عليه أوفس (365) والنتيجة تمام

وحذفت الأوفس من جهازي ونزلت (2016) والنتيجة على جهازي نفسها: المؤشر في أول الحقل

وحملت (2021) نفس النسخة اللي عندك

 

والنتيجة نفسها .. يعني في مشكلة إعدادات أو خيارات جهازي

لكن .. لما نزلت أوفس (2013) على جهازي: النتيجة تمام

إشي محير ولا لأ ؟؟ المفروض إن الكود يعمل المطلوب بغض النظر عن نسخة الأوفس

مش المشكلة في هذا الكود .. إذا بتنحل المشكلة بكبسة (END) الأمر هين .. لكن إذا ما عرفت السبب ممكن يتكرر الموال في كود تاني وثالث  .. وحضرتي بحاول وبحاول وبطلب المساعدة ..  والمشكلة مش في الكود .. المشكلة في مكان تاني مش معروف 🤔

[jjafferr]

السلام عليكم 🙂

 

مع ان كود ابو جودي اشتغل عندي: اكسس 2019 ، 64بت ، ولكن بما ان:

21 ساعات مضت, nssj said:

إذا بتنحل المشكلة بكبسة (END)

 

انا اضفت الكبسة على زر END في كود ابو جودي ، مرتين ، فرجاء تجربته :

Private Sub tx0_Change()
On Error GoTo Proc_Err


        Dim txtsearch As String: txtsearch = Me.tx0.Text
        Me.Filter = "RAWY_NAME" & " Like ""*" & txtsearch & "*""": Me.FilterOn = True
        Me.tx0.SetFocus
        Me.tx0 = txtsearch
        'Me.tx0.SelStart = Len(txtsearch)
        Me.tx0.SelStart = vbKeyEnd      'الكبسة على زر END
        
Exit Sub
Proc_Err:

  Select Case Err.Number
    Case Is = 2185
      Me.FilterOn = False
      Me.tx0.SetFocus
      'Me.tx0.SelStart = Me.tx0.SelLength
      Me.tx0.SelStart = vbKeyEnd         'الكبسة على زر END
      Beep
      MsgBox "There are no results"
    Case Else
      MsgBox "Error  " & Err.Number & vbNewLine & Err.Description
  End Select
End Sub

 

جعفر

[nssj]

الحمد لله .. زبطت أخيراً 😁

ولكن بما إن

2 ساعات مضت, jjafferr said:

مع ان كود ابو جودي اشتغل عندي: اكسس 2019 ، 64بت

هذا يؤكد إن المشكلة عندي .. يمكن من كثرة التجارب والاختراعات اللي أكثرها (فاشلة .. 🙂) صار في إشي غلط عندي في خيارات وإعدادات أكسس .. إشي ما بيروح حتى بإزالة البرنامج وإعادة تحميله .. مع إني حريص إن كل التجارب تكون في الأكواد والاستعلامات وتصميم النماذج  مش في خيارات البرنامج

بس إيش هو  (هذا الإشي الغلط)  بلاش يعمل معي مشاكل تانية وتالثة و .. 🤔 

 

[jjafferr]

39 دقائق مضت, nssj said:

الحمد لله .. زبطت أخيراً 😁

كيف ؟

 

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

هذا يؤكد إن المشكلة عندي .. يمكن من كثرة التجارب

انصحك باستعمال المرفق في هذا الرابط ، كلما تنتهي من تجربة في برنامجك ، فهو يحذف بقايا البرمجة القديمة التي لم يحذفها الاكسس من ذاكرته

.

جعفر

[nssj]

1 ساعه مضت, jjafferr said:

كيف ؟

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

وأشكرك على النصيحة .. وسوف أعمل بها بعون الله

[ابو جودي]

يا استاذ @nssj رجاء لو تكرمت تغير افضل اجابة باجابة استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr لان طريقته لا تدع اى مجال لاجهاض العملية مهما كانت الظروف

[nssj]

بصراحة أخي الكريم   ابو جودي  مو أنا اللي اخترت أفضل إجابة 🙂 .. مع إنو كنت ناوي أختارها أصلا 😁 من باب إنها كانت بداية الحل .. بس أنا أحيانا أتجنب اختيار أفضل إجابة عندما بشارك أكثر من أخ في الحل

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

[ابو جودي]

10 دقائق مضت, nssj said:

بصراحة أخي الكريم   ابو جودي  مو أنا اللي اخترت أفضل إجابة 🙂 .. مع إنو كنت ناوي أختارها أصلا 😁 من باب إنها كانت بداية الحل .. بس أنا أحيانا أتجنب اختيار أفضل إجابة عندما بشارك أكثر من أخ في الحل

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

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

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

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

رابعا شكرا على شعورك النبيل ولكن ما سردته سابقا للصالح العام

وبعدين يا اخى اذا حضر الماء بطل التيمم 

[jjafferr]

السلام عليكم 🙂

 

انا الذي اختار الاجابة الصحيحة ، اجابة ابو جودي ، بينما تدخلي كان بجزئية معينة فقط ، 

لذلك ، واقعا جواب ابو جودي هو الاصح في اختياره ، وسأعيد اختياره مرة اخرى 🙂

 

9 ساعات مضت, nssj said:

أتجنب اختيار أفضل إجابة عندما بشارك أكثر من أخ في الحل

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

لذا ، وبحسب قوانين المنتدى:

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

 

جعفر

[ابو جودي]

7 ساعات مضت, jjafferr said:

بينما تدخلي كان بجزئية معينة فقط

نعم بالفعل استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr  اعلم ان اجابتى هى الاجابة الصريحة التى تتمتم العمل طبقا للسؤال وهذا من فضل الله ثم افضالكم كما تعلمنا على اياديكم

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

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

لم اضع اى ايموشن على مشاركتكم كذك لانها تنقسم قسمان الشق الذىى يخص سبب اختيارك هذا لا احبذ ان اضع له اى ايموشن تعبيرى لاننى ضده بصراحة

 

اما الشق الثانى من مشاركتكم استاذى 

7 ساعات مضت, jjafferr said:

اختيار الاجابة الصحيحة تعطي الاعضاء الذين يبحثون في الموضوع لاحقا ، بوصلة الى مكان الحل او بداية الحل ،

لذا ، وبحسب قوانين المنتدى:

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

 

يستاهل مليون لايك  

تم تعديل يناير 6, 2022 بواسطه ابو جودي