اريد تعديل نموذج الادخال بحيث لا يقبل الا الارقام

[أ محمد عبد الصمد]

 بسم الله الرحمن الرحيم

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

 

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

لانى مستخدم دالة الجمع SUM  لجمع  عدد الجوال والكمية وتظهر الجملة فى الفواتير ولكن احيانا عند استخدام نموذج الادخال يدخل العدد والكمية رقما ولكن كنص ولذلك لا تظهر فى نتيجة الدالة

 

لذا ارجو التعديل فى تنسيق النموذج فى حقل العدد والكمية ليكون رقما فقط

 

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

 

ثلاجة معدل.rar

[ضاحي الغريب]

أخي الكريم// محمد عبدالصمد

 

محرر الاكواد محمي بباس ووور

وعلي اية حال لو فرضنا ان تريد ادخال ارقام فقط في تكست بوكس 1

استخدم الكود التالي

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
    Case 46, 48 To 57
    Case Else
        KeyAscii = 0
        MsgBox "فضـلا أستخدم الأرقام فقط"
End Select
End Sub

أو هذا الكود  

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

       If Not IsNumeric(TextBox1.Value) Then
               MsgBox "فضلا قم بادخال أرقام فقط"
               Cancel = True
      End If
 
End Sub

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

TextBox1.Text = Format(TextBox1.Text, "0")

[أ محمد عبد الصمد]

انا آسف نسيت والله بس أنا عامل الباس وورد علشان مستخدم البرنامج فى الثلاجة نص نص وخفت يتلف البرنامج على العموم كلمة السر aya123

[ضاحي الغريب]

أخي الحبيب// محمد 

اليك الملف بعد التعديل بالمرفقات

 

وخلي بالك ليكون عامل الثلاجة مشترك في الموقع ويكون عرف الباس وورد

 

تقبل تحياتي

ثلاجة معدل.rar

[بن علية حاجي]

السلام عليكم ورحمة الله

 

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

 

أخوك بن علية

 

 

الملف المرفق:  ثلاجة معدل.rar

[أ محمد عبد الصمد]

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

[ضاحي الغريب]

الاخ الكريم / محمد

انا عدلت عند الادخال فقط 

علي اية حال

تعديل اخي الحبيب بن علية حاجي ممتاز جدا

بارك الله فيه وجزاه خيرا

[أ محمد عبد الصمد]

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

[ضاحي الغريب]

الملف بعد التعديل بالمرفقات

تم اضافة التنسيق مع مفتاح التعديل

 

جرب ووافيني بالنتيجة

الثلاجة 2.rar

[أ محمد عبد الصمد]

عزيزى الفاضل ضاحى الغريب الف الف شكر لحضرتك تمام وهذا هو المراد

[حمادة عمر]

السلام عليكم

الاخ الحبيب / ضاحي الغريب

بارك الله فيك

ممتاااااااااااز ... متابعتك للمواضيع

والردود الاكثر من رااائعة

وبالطبع الشكر موصول للاخ والاستاذ القدير / بن عليه حاجي ... جزاه الله خيرا

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

[ضاحي الغريب]

اخي الحبيب // حمادة عمر (روح المنتدي والله)

بارك الله فيك علي مرورك الطيب

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

تقبل تحياتي 

[itch_az]

thxxxxxxxxxxxxxxxxxxxxxxxx