كيف ادخل بيانات في أكثر من مربع نص من لوحة ازرار داخل النموذج

[ًعبد من عباد الله]

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

Key.accdb

تم تعديل أبريل 1, 2019 بواسطه وائل أبو عبد الرحمن

[ًعبد من عباد الله]

لا حول ولا قوة إلا بالله

[essam rabea]

اخى الكريم المثال المرفق تقريبا به وحدة نمطية غير موجودة ولذلك قمت بعمل فورم جديد .. ولا ادرى ان كان هذا ما تريد

Key.accdb

[ًعبد من عباد الله]

1 ساعه مضت, essam rabea said:

ولا ادرى ان كان هذا ما تريد

شاكر لحضرتك جداً مشاركتك الإيجابية وبالفعل المرفق السابق كان به إشكال لم انتبه له من كثرة المحاولة وقد رفعت مرفق أخر يعمل ولكن علي مربع نص واحد وأريد عند الضغط مفتاح انتر أن ينتقل للمربع التالي للكتابة فيه من خلال لوحة ازرار الأرقام وأكرر شكري لحضرتك

Key.mdb

[wael_rafat]

شوف هاذا المثال

 

Keynumbers.accdb

[ًعبد من عباد الله]

أخي أستاذ  wael_rafat السلام عليكم

51 دقائق مضت, wael_rafat said:

شوف هاذا المثال

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

 

[ًعبد من عباد الله]

للرفع

مازلت منتظراً لإيجاد حل علي مثالي المرفق

Key.mdb

[أبو إبراهيم الغامدي]

أهلا بك @وائل أبو عبد الرحمن

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

العنصر الملائم لهذا الغرض هو  غنصر التحكم (عنوان Label).

جرب هذا التعديل:  Advanced KeyPad.mdb

 

تم تعديل أبريل 5, 2019 بواسطه أبو إبراهيم الغامدي

[أبو إبراهيم الغامدي]

أهلا بكم

في المرفق السابق كان هناك إشكالية مع زر الإدخال قمت بضبطه..

كما أضفت مسح جميع الحقول إلى حدث النقرر المزدوج للزر Clear..

منع إدخال الأرقام من لوحة المفاتيح..

إليكم المرفق: Advanced KeyPad.mdb

[wael_rafat]

ماشاء الله عليك استاذنا  مبدع

زادك الله من علمه وفضله ....

9 ساعات مضت, أبو إبراهيم الغامدي said:

منع إدخال الأرقام من لوحة المفاتيح..

بعد اذنك ممكن توضيح هذه الجزئية  ..

كل التقدير والاحترام استاذنا

تم تعديل أبريل 5, 2019 بواسطه wael_rafat

[ًعبد من عباد الله]

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

[أبو عبدالله الحلوانى]

جزاك الله خيرا أستاذنا @أبو إبراهيم الغامدي  زادك الله من فضله 

 

أخى @وائل أبو عبد الرحمن  أعتقد أن اخوتك بالمنتدى ينتهجون نهج المثل القائل: (علمنى الصيد ولا تعطنى سمكة)

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

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

 

 

 

[ًعبد من عباد الله]

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

20 دقائق مضت, أبو عبدالله الحلوانى said:

أعتقد أن هذا سيعود أثره على منشئ الموضوع خاصة

لا أزال أرغب بالتعديل علي مثالي كما هو "إن أمكن" لأسباب تتعلق بعملي الأساسي وشكراً لمساعدتكم الكريمة لي ولعملي

[أبو إبراهيم الغامدي]

12 ساعات مضت, وائل أبو عبد الرحمن said:

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

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

لا يوجد فرق بين  مثالي ومثالك إلا التعقيد! أنت تبني الأشياء بطرق معقدة! وأنا أبنيها بطرق  سهلة!

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

 

[أبو إبراهيم الغامدي]

أستاذ @أبو عبدالله الحلوانى

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

محبك.. أبو إبراهيم

[أبو إبراهيم الغامدي]

أهلا @wael_rafat

كل ما في الأمر أني نشطت خاصية Locked في مربع النص في النموذج

ثم أعيد تعطيلها عند النقر على الرقم.. وأعيد تنشيطها بعد ذلك..

Function XActiveVal(TagVal)
  With Me.ActiveControl
    .Locked = False
    .Value = .Value & TagVal
    .SelStart = Len(.Value)
    .Locked = True
  End With
End Function

 

 

تم تعديل أبريل 6, 2019 بواسطه أبو إبراهيم الغامدي

[ًعبد من عباد الله]

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

تم تعديل أبريل 6, 2019 بواسطه وائل أبو عبد الرحمن

[ًعبد من عباد الله]

للرفع

[أبو عبدالله الحلوانى]

في ٦‏/٤‏/٢٠١٩ at 09:28, أبو إبراهيم الغامدي said:

محبك.. أبو إبراهيم

أحبك الله الذى أحببتنى فيه - وانى والله احبكم فى الله (وكذلك سائر الإخوة الكرام بالمنتدى)

وجزاكم الله خيرا على تلك الدعوة الطيبة @أبو إبراهيم الغامدي

في ٦‏/٤‏/٢٠١٩ at 11:39, وائل أبو عبد الرحمن said:

فأنا مازالت طارئاً علي علمكم

أخى @وائل أبو عبد الرحمن كلنا ذلك الرجل فأن أدخل هنا لأتعلم ولأسأل عما لا أعرف - ولكنى أعتقد أنك بحاجة لقليل من المحاولة فحسب فغالبا ما أرى أن موضوعك قد انتهى واجابك أحدهم عنه ثم أنت تسأل وتسأل عن نفس الشىء - رغم أن الاجابة بين يديك حاول تكتشف ماذا تم تغيره بالداخل حتى ظهرت النتيجة هكذا - أو التسيق هكذا ... الخ

فأنت خير من يعلم أن التجربة والخطأ هما وسيلتين من وسائل التعلم

محبك فى الله - ومريد لك الخير - وألا تنتظر ما لا داعى لانتظاره -  أبو عبدالله الحلوانى