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]

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

[ابو جودي]

  في 28‏/5‏/2021 at 22:55, 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 للحقل المراد سحب النتيجة منه.

تحياتي لكم.

Expand  

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

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

 

 

[SEMO.Pa3x]

  في 29‏/5‏/2021 at 11:59, ابا جودى said:

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

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

 

 

Expand  

جرب:

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

 

UpdateDuringTyping.accdbFetching info...

[ابو جودي]

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

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

 

[SEMO.Pa3x]

  في 29‏/5‏/2021 at 12:20, ابا جودى said:

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

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

 

Expand  

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

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

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

[ابو جودي]

  في 29‏/5‏/2021 at 12:22, SEMO.Pa3x said:

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

Expand  

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

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

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

[ابو جودي]

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

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

tt.accdbFetching info...

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

[SEMO.Pa3x]

  في 29‏/5‏/2021 at 12:32, ابا جودى said:

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

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

tt.accdb 364 kB · 0 downloads

Expand  

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

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

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

[ابو جودي]

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

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