خطاء تعارض في البرنامج

مغلق

بدأه wegoo في 23 نوفمبر 2001 · 2 رد · 928 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

مشاركة: واتساب X فيسبوك تيليجرام

#123 نوفمبر 2001 في 19:44 صاحب الموضوع

عند عمل برنامج مربوط بقاعدة بيانات

من ضمن الكماند الموجودبه كماند للحفظ وكتبت الكود الخاص به كالتالي

Private Sub Command6_Click()

tb1!Number = Text1.Text

tb1!DIGITAL = Text2.Text

tb1!SPARE = Text3.Text

tb1!ACCESSES = Text4.Text

tb1!BLOCK1 = Text5.Text

tb1!BLOCK2 = Text6.Text

tb1!BLOCK3 = Text7.Text

tb1!BLOCK4 = Text8.Text

tb1!BLOCK5 = Text9.Text

tb1!BLOCK6 = Text10.Text

tb1!BLDG_ROOM = Text11.Text

tb1!User = Text12.Text

tb1.Update

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

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

وشكراً على تعاونكم ويقوو

#224 نوفمبر 2001 في 02:14

لمسك الخطاء او ايقافه يمكن استعمال الامر on Error

Private Sub Command6_Click()

on error goto a1

اكتب كودك هنا تم اكتب

exit sub

A1:

msgbox err.description

end sub

ارجو ان يكون هذا مرادك

لك تحياتي

لا يتعلم العلم كل مستحي او مستكبر

#324 نوفمبر 2001 في 02:48

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

يمكن تنفيذ ما تطلب من خلال جمل الشرط

مثال

if text1.text ="" then msg box("your msg")

او يمكنك ان تأمر البرنامج بان يذهب الي سطر اخر

goto 10

هذا الموضوع مغلق.