كيف يمكن كتابة كود شرط التركيز على حقل محدد _ عنوان معدل

[f16]

الاخوة اعضاء المنتدى الرائع 

كيف يمكن احول هذا الكلام الى كود برمجي عند الضغط على زرار في النموذج اريد الكود يقوم بالتأكد ان مؤشر الكتابة ليس في الحقل 1 او الحقل 2 

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

هذا باختصار ما اريده 

ولكم جزيل الشكر 

اخوكم 

[AlwaZeeR]

تفضل عزيزي

استخدم الوحدة النمطية التالية في النموذج الخاص بك

Public Function CheckFocusCtrl()

    On Error Resume Next
    
    If Screen.PreviousControl.Name = "a" Or Screen.PreviousControl.Name = "b" Then
      MsgBox ("مع اطيب التحايا ،،،المؤشر على (A) او (B)")
      Else
    End If

End Function

ثم قم باستدعائها تحت زر الامر الذي تريد 

هكذا:

CheckFocusCtrl

مع ملاحظة حقول:

A , b

هي الحقول التي على أحدها المؤشر

فقم بتغييرها بمسميات حقولك

 

[f16]

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

تفضل عزيزي

استخدم الوحدة النمطية التالية في النموذج الخاص بك

Public Function CheckFocusCtrl()

    On Error Resume Next
    
    If Screen.PreviousControl.Name = "a" Or Screen.PreviousControl.Name = "b" Then
      MsgBox ("مع اطيب التحايا ،،،المؤشر على (A) او (B)")
      Else
    End If

End Function

 

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

شكرا لك وسأخبرك بالنتيجة انشاء الله 

تحياتي لك 

[f16]

10 ساعات مضت, AlwaZeeR said:

تفضل عزيزي

استخدم الوحدة النمطية التالية في النموذج الخاص بك

Public Function CheckFocusCtrl()

    On Error Resume Next
    
    If Screen.PreviousControl.Name = "a" Or Screen.PreviousControl.Name = "b" Then
      MsgBox ("مع اطيب التحايا ،،،المؤشر على (A) او (B)")
      Else
    End If

End Function

 

مساء الخير  استاذي العزيز

بداية اشكرك على براعتك في هذا الكود .

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

مع تقديري لجهدك  

اخوك عمار 

مثال اوفيسنا في التاكد من الحقل الذي به تركيز.rar

تم تعديل ديسمبر 6, 2018 بواسطه f16

[f16]

في ٦‏/١٢‏/٢٠١٨ at 12:07, AlwaZeeR said:

تفضل عزيزي

استخدم الوحدة النمطية التالية في النموذج الخاص بك

Public Function CheckFocusCtrl()

    On Error Resume Next
    
    If Screen.PreviousControl.Name = "a" Or Screen.PreviousControl.Name = "b" Then
      MsgBox ("مع اطيب التحايا ،،،المؤشر على (A) او (B)")
      Else
    End If

End Function

 

اخي الوزير  

ما زلت انتظر ردك واتمنى ان يكون جوابه لديك 

 

[رمهان]

بعد اذن اخي الوزير

  If Me.جدول2.Form.ActiveControl.Name = "دائن" Or Me.جدول2.Form.ActiveControl.Name = "مدين" Then MsgBox ("يجب عليك الخروج من حقل المدين او الدائن اولاً")

مع التنبيه انك بالضغط هلى الزر قد خرجت في الاصل من العنصر

تحياتي

[f16]

13 ساعات مضت, رمهان said:

بعد اذن اخي الوزير

  If Me.جدول2.Form.ActiveControl.Name = "دائن" Or Me.جدول2.Form.ActiveControl.Name = "مدين" Then MsgBox ("يجب عليك الخروج من حقل المدين او الدائن اولاً")

مع التنبيه انك بالضغط هلى الزر قد خرجت في الاصل من العنصر

تحياتي

مساء الخير اخي رمهان 

اسعدني رؤيت اسمك كثيرا

شكراً لك على هذا الكود الرائع والذي نجح معي بشكل كبير ، والشكر موصول الى اخي الوزير على معلوماته القيمة 

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

تحياتي اخوكم عمار