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

[nssj]

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

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

 

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

SelStart.accdbFetching info...

[ابو جودي]

غير للكود ده

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).accdbFetching info...

[nssj]

نفس النتيجة 😟

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

[ابو جودي]

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

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

 

[nssj]

😐 🙄 🤔

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

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

[ابو جودي]

  في 3‏/1‏/2022 at 21:23, nssj said:

😐 🙄 🤔

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

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

Expand  

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

[nssj]

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

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

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

 

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

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

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

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

[jjafferr]

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

 

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

  في 4‏/1‏/2022 at 17:33, nssj said:

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

Expand  

 

انا اضفت الكبسة على زر 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]

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

ولكن بما إن

  في 5‏/1‏/2022 at 14:59, jjafferr said:

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

Expand  

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

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

 

[jjafferr]

  في 5‏/1‏/2022 at 17:43, nssj said:

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

Expand  

كيف ؟

 

  في 5‏/1‏/2022 at 17:43, nssj said:

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

Expand  

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

.

جعفر

[nssj]

  في 5‏/1‏/2022 at 18:25, jjafferr said:

كيف ؟

Expand  

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

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

[ابو جودي]

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

[nssj]

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

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

[ابو جودي]

  في 5‏/1‏/2022 at 21:07, nssj said:

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

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

Expand  

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

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

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

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

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

[jjafferr]

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

 

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

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

 

  في 5‏/1‏/2022 at 21:07, nssj said:

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

Expand  

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

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

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

 

جعفر

[ابو جودي]

  في 6‏/1‏/2022 at 06:45, jjafferr said:

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

Expand  

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

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

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

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

 

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

  في 6‏/1‏/2022 at 06:45, jjafferr said:

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

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

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

 

Expand  

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

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