مساعدة في تحديد خصائص textbox و combobox

[حسين العصلوجى]

كيف يمكن عمل الاتى :-

 

1- جعل التكست بوكس لايقبل الا ارقام موجبة

مثلا   اعدل ايه في الكود ده عشان اقول لو قيمة تكست بوكس 2 ليست رقم موجب  اظهر رسالة خطأ ولو موجبة يكون تكست 10 هو ضرب تكست 2 في تكست 3 في .85                 

Private Sub TextBox2_Change()
        If not Me.TextBox2.Value  
then
"MsgBox "must be positive number ", vbOKOnly, "error
Me.TextBox2.Value = 0
Else
On Error Resume Next
Me.TextBox10.Value = Me.TextBox2.Value * Me.TextBox3.Value * 0.85
End If
End Sub

 

 

 

 

 

2- عدم قبول اي قيمة غير موجودة بالكومبو بوكس

 

 

3-عدم قبول صيغة خاطئة للتاريخ

prob.rar

تم تعديل فبراير 9, 2013 بواسطه حسين العصلوجى

[حمادة عمر]

السلام عليكم

الاخ الكريم / حسين العصلوجى

 

اقدم لك في المرفقات ملفين للعبقري الاستاذ / عماد الحسامي في سلسلة شروحات خصائص اليوزفورم

وما تحتاج اليه الآن هو

خصائص التكست بوكس ـــــــــــ في المرفق الاول ( الدرس الثالث )

خصائص الكومبوبكس ــــــــــــــ في المرفق الثاني ( الدرس الرابع )

 

وان شاء الله ستجد بها طلبك ومعلومات اخري قيمة

 

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

 

الدرس الثالث textbox.rar

 

الدرس الرابع.rar

[حمادة عمر]

السلام عليكم

الاخ الكريم / حسين العصلوجى

 

اليك ايضا اخي الكريم رابط الموضوع الاساسي للاستاذ العبقري / عماد لحسامي

بعنوان  (  ( موضوع مميز ) ملف كامل عن كيفية استحدام ال UserForm والتعامل مع كافة جوانبه  )

الدروس الستة موجودة بالمشاركة رقم 12#

اليك الرابط

http://www.officena.net/ib/index.php?showtopic=34088

 

اظن انك ستستفيد منه كثيرا

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

[حمادة عمر]

السلام عليكم

الاخ الكريم / حسين العصلوجى

 

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

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

 

Private Sub TextBox1_Change()
If Me.TextBox1.Value < 0 Then
MsgBox "must be positive number ", vbOKOnly, "error"
Me.TextBox1.Value = 0
End If
End Sub

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

 

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox3.Value = Val(TextBox1) * Val(TextBox2) * (0.85)
End Sub

وبذلك تتم عملية الضرب عند تحريك الماوس للانتقال الي التكست الآخر

 

انظر الملف المرفق

 

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

 

Book11111.rar

[حسين العصلوجى]

الاخ / حماده عمر

اولا شكرا علي هذه الدروس الرائعه ولكن كلها تنصب علي التنسيقات

 

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

 

وهل من الممكن جعل الكومبو بوكس لايقبل الا القيم الموجوده في قائمته فقط في حالة ادخال قيمة اخر تظهر رسالة خطأ

 

ام هذا غير ممكن ؟

 

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

[أبو ردينة]

السلام عليكم و رحمة الله و بركاته 
الإخوة الكرام 

بارك الله فيكم و نفع بعلمكم
بعد إذن أخي الكريم / حسين 
سؤال لأخي / حمادة عمر - جزاه الله خيرا - عن رأس الكود الذي تفضل به 

 

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 

و تحديدا عن الوارد هنا  بين الأقواس ()

 

 (ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 

 

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

 

(ByVal Button As Integer)
 

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

 

[حمادة عمر]

السلام عليكم

الاخ الكريم / أبو ردينة

 

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

اما بالنسبة لاستفسارك بخصوص ( رأس الكود )

فهو ليس اضافة من المبرمج ولكنه يتعين تلقائياً من البرنامج ولكنه يتغير بتغير الامر

حيث الامر الموجود في المثال هو عند ااختيار الامر الخاص بتحريك الماويس علي الفورم

وهو 

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

ولكن في امر Scroll مثلاُ يكون بالشكل التالي

Private Sub UserForm_Scroll(ByVal ActionX As MSForms.fmScrollAction, ByVal ActionY As MSForms.fmScrollAction, ByVal RequestDx As Single, ByVal RequestDy As Single, ByVal ActualDx As MSForms.ReturnSingle, ByVal ActualDy As MSForms.ReturnSingle)

وهناك اوامر للفورم لا يتم كتابة اي شئ بين الاقواس مثل الامر Activate و Click

Private Sub UserForm_Activate()

وكذلك

Private Sub UserForm_Click()

وهذا حسب علمي ومعلوماتي وعلي حد علمي

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

 

[أبو ردينة]

و جزاك أحسنه 

شكرا اخي الحبيب بارك الله فيك و نفع بك و علمك ما ينفع

[حمادة عمر]

السلام عليكم

الاخ الكريم / أبو ردينة

 

شكرا اخي الكريم علي كلماتك الرقيقة

وبارك الله فيك

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