كود بسيط للغاية

هذا هو الكود

     
 For I = 0 To 1
 Rem"'عندك فى مثالك هنا عددهم 2text طبعآ الرقم 1 على حسب عدد ال"
If text(I).Text = "" Then  
       Z = MsgBox("من فضلك أدخل جميع بياناتك", vbOKOnly, "ماهذا؟  ")

     text(I).SetFocus: GoTo 400
End If
 A=text(0).Text
B=text(1).Text
M = Val(B * 100 / A)
400end sub

وفى مثالك هذا لأن عدد الtext بسيط (2فقط) يمكن كتابته كالآتى

If text1.Text = "" Then 
       Z = MsgBox("من فضلك أدخل جميع بياناتك", vbOKOnly, "ماهذا؟ ")
     text1.SetFocus: GoTo 400
End If

If text2.Text = "" Then
       Z = MsgBox("من فضلك أدخل جميع بياناتك", vbOKOnly, "ماهذا؟ ")
     text2.SetFocus: GoTo 400
End If
 

A=text(0).Text
B=text(1).Text
M = Val(B * 100 / A)
400end sub

شكرا لك علي تعب حضرتك معايا سأجرب الكود وارد علي حضرتك

لاسف لم اعرف اخي الفاضل ولكن اليك المشروع وانت ضع الكود

النسبة.rar

فعلآ كان هناك خطأ فى كتابة الكود

اليك البرنامج به فورمين كل فورم مكتوبة بطريقة من الطريقتين

راعى اسم كل تكست فى كل فورم (من خواصه)

النسبة.rar

شكرا لك اخي الكريم  بالفعل يعمل جيد جدا المشروع شكرا علي تعبك

الاخ الكريم الاستاذ اسلام 

شكرا على مساعدتك الاخ السائل 

ولي سؤال هوا رغبتي في الحصول على اسماء الليبل والكوماند من جدول بقواعد البيانات مكون من حقلين مثلا الحقل 1 والحقل 2 ومتعدد السجلات مثل القاموس عربي انجليزي فمثلا اسم الحقل موجود بالانجليزي فاريد ان اغيره الى عربي في حالة اختيار اللغة العربية ويبقى كما هوا انجليزي لانه بالفعل مكتوب كأسم للحقل وهي تعتبر ترجمة من عربي لانجليزي وبالعكس

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

لكلك جزيل الشكر مقدما على علمك الذي لم تبخل ووقتك الثمين وبارك الله في والديك  

عفوآ

لا تسألنى عن قواعد البيانات أو عن الاكسيل أو عن غيرها

لأن هذه الأمور أنا السائل فيها  دائمآ

انما تسألنى فقط عن أكواد الVB نفسها (دون ارتباط بأى برنامج آخر)

اسلام الكبابى كتب:

عفوآ

لا تسألنى عن قواعد البيانات أو عن الاكسيل أو عن غيرها

لأن هذه الأمور أنا السائل فيها  دائمآ

انما تسألنى فقط عن أكواد الVB نفسها (دون ارتباط بأى برنامج آخر)

الاستاذ أسلام 

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

وشكرا اخي الكريم

هذا برنامج بسيط يخاللي الليبال يتغير من حالة الى اخرى في حالة تحقق شرط معين

ولك أن تطبق مثله على أى خاصية أخرى

ولك أن تطبق مثله على الكوماند أو أى كائن آخر

LABELتغيير خواص ال.rar

الاستاذ اسلام

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

خالد

اقتباس

 

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

 

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

كنت قد أجبتك على سؤالك الأصلى بخصوص رسالة الخطأ

ولم أجبك على موضوع التقريب

للتقريب دالة بسيطة round تكتب لها الرقم المطلوب تقريبه وعدد الأرقام العشرية المطلوبة

وهذ برنامج بسيط عملته لك مخصوص لتقريب الأموال   وهوعبارة عن فورمين

FORM1 تعليمية للتقريب لأقرب ربع جنيه

FORM2 وهى الأساسية  للتقريب حسب المبلغ الذى تريده

تقريب الأموال.rar