semo.pa3x [درس] عرض البيانات في الحقول عند الكتابة - display inputs of textbox1 in textbox2 in realtime

[SEMO.Pa3x]

السلام عليكم..

اقدم لكم حيلة قديمة ربما تفيدكم..

على سبيل المثال:

لدينا 3 حقول ( العدد 1 ) , ( العدد 2 ) , ( النتيجة )

وأريد ان اقوم بعملية جمع للحقلين 1 و 2 وعرض النتيجة..

الآن عند كتابة رقم في الحقل ( العدد 1 ) وبعدها كتابة رقم في الحقل ( العدد 2 )

تظهر النتيجة مباشرة بدون الخروج من الحقل بمعنى إعطاء النتيجة مباشرة اثناء الكتابة

 

Private Sub textbox1_Change()
    textbox3.Value = Nz(textbox1.Text, 1) + Nz(textbox2, 1)
End Sub

الفكرة كلها في اضافة الـ Value لحقل عرض النتيجة والخاصية Text للحقل المراد سحب النتيجة منه.

تحياتي لكم.

تم تعديل مايو 29, 2021 بواسطه SEMO.Pa3x

[ابوخليل]

جميل جدا استاذنا د. ابا مهاب

اشياء صغيرة في حجمها وجميلة ومفيدة في قيمتها

[abouelhassan]

شكر وتقدير واحترام من اخيك

[ابو جودي]

13 ساعات مضت, SEMO.Pa3x said:

السلام عليكم..

اقدم لكم حيلة قديمة ربما تفيدكم..

على سبيل المثال:

لدينا 3 حقول ( العدد 1 ) , ( العدد 2 ) , ( النتيجة )

وأريد ان اقوم بعملية جمع للحقلين 1 و 2 وعرض النتيجة..

الآن عند كتابة رقم في الحقل ( العدد 1 ) وبعدها كتابة رقم في الحقل ( العدد 2 )

تظهر النتيجة مباشرة بدون الخروج من الحقل بمعنى إعطاء النتيجة مباشرة اثناء الكتابة

 

Private Sub textbox1_Change()
    textbox3.Value = Nz(textbox1.Text, 1) + Nz(textbox2.Text, 1)
End Sub

الفكرة كلها في اضافة الـ Value لحقل عرض النتيجة والخاصية Text للحقل المراد سحب النتيجة منه.

تحياتي لكم.

أعطى خطأ معى عند التطبيق لانه لا يمكن نقل التركيز فى الحدث الى مربع النص 2 مع تنفيذ هذ الحدث عند التغير لمربع النص 1

ممكن مرفق لعلى أخطات بالتطبيق

 

 

[SEMO.Pa3x]

10 دقائق مضت, ابا جودى said:

أعطى خطأ معى عند التطبيق لانه لا يمكن نقل التركيز فى الحدث الى مربع النص 2 مع تنفيذ هذ الحدث عند التغير لمربع النص 1

ممكن مرفق لعلى أخطات بالتطبيق

 

 

جرب:

Private Sub txt2_Change()
    txt3.Value = Nz(txt2.Text, 1) * Nz(txt1, 1)
End Sub

 

UpdateDuringTyping.accdb

[ابو جودي]

يعنى الكود الاول اساس المشاركة يكون

Private Sub textbox1_Change()
    textbox3.Value = Nz(textbox1.Text, 1) + Nz(textbox2, 1)
End Sub

 

[SEMO.Pa3x]

2 دقائق مضت, ابا جودى said:

يعنى الكود الاول اساس المشاركة يكون

Private Sub textbox1_Change()
    textbox3.Value = Nz(textbox1.Text, 1) + Nz(textbox2, 1)
End Sub

 

صراحة انا لم اواجه مشكلة في الكود الاول، لذلك غيرت الكود وفقاً للمشكلة التي صادفتك.

لم تخبرني هل واجهت مشكلة؟ ام انه عمل بشكل صحيح

تم تعديل مايو 29, 2021 بواسطه SEMO.Pa3x

[ابو جودي]

1 دقيقه مضت, SEMO.Pa3x said:

لم تخبرني هل واجهت مشكلة؟ ام انه عمل بشكل صحيح

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

ولكن لاحظت مشكلة الان ولا ادرى سببها يا دكتور

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

[ابو جودي]

هذا ملف التطبيق الخاص بى

قمت بتعطيل الكود الذى عمل بشكل صحيح لاتلافى الخطأ من خلال الدالة CInt وذلك حتى يمكنكم الاطلاع عليه يا دكتور @SEMO.Pa3x

tt.accdb

تم تعديل مايو 29, 2021 بواسطه ابا جودى

[SEMO.Pa3x]

3 دقائق مضت, ابا جودى said:

هذا ملف التطبيق الخاص بى

قمت بتعطيل الكود الذى عمل بشكل صحيح لاتلافى الخطأ من خلال الدالة CInt وذلك حتى يمكنكم الاطلاع عليه يا دكتور @SEMO.Pa3x

tt.accdb 364 kB · 0 downloads

دعك من استخدام CInt وجرب هذه الطريقة:

فإنها كفيلة بتحويل الحقول من نصية الى رقمية وبذلك تتم العمليات الحسابية عليها

تم تعديل مايو 29, 2021 بواسطه SEMO.Pa3x

[ابو جودي]

تمام يا دكتور الان اتضحت المسألة بشكل سليم واكتملت كل الافكار تقريبا من النقاش

جزاكم الله خيرا