PDA

View Full Version : برگشت به اجرای کد خط بالا



hamid-nice
شنبه 03 فروردین 1392, 00:06 صبح
سلام

یک دستور با if دارم که می خوام وقتی کاربر NO را انتخاب می کنه برگرده به دستوری که در خط بالایی (خط قبل ) هست و دوباره از اونجا عملیات تکرار بشه

چه کدی باید بعد از vbNo Then= بنویسم ؟

با تشکر

Abbas Amiri
شنبه 03 فروردین 1392, 00:14 صبح
سلام

یک دستور با if دارم که می خوام وقتی کاربر NO را انتخاب می کنه برگرده به دستوری که در خط بالایی (خط قبل ) هست و دوباره از اونجا عملیات تکرار بشه

چه کدی باید بعد از vbNo Then= بنویسم ؟

با تشکر
سلام
دو کار میتوانید انجام دهید یک اینکه یک لیبل قبل از کدی که میخواهید به آنجا پرش کنید بگذارید


' Some code
StartAgian:
=vbNo Then GoTo StartAgain
' some code


م یک مورد هم یک متغیر جهت جواب MsgBox ایجاد کنید ودر یک حلقه While تا زمانی که مقدار آن مخالف VbNo از آن خارج نشود

hamid-nice
شنبه 03 فروردین 1392, 00:58 صبح
دوست گرامی

روش اول شما را که بکار می برم هنگام compile ارور می ده که Lable Not defined

کاری که کردم عبارت :StartAgian را قبل از کد خط بالا نوشتم و بعد از عبارت شرطی درست بعد از vbNo Then= عبارت
GoTo StartAgain را نوشتم

ایراد از کجاست در واقع داره می گه Lable درست تعریف نشده ؟

با تشکر

hamid-nice
شنبه 03 فروردین 1392, 11:28 صبح
سلام

دوست گرامی از پاسختون خیلی ممنون مشکل حل شد به جای StartAgian عدد 1 را بکار بردم و درست عمل کرد

نمی دونم چرا StartAgian درست عمل نمی کرد

به هر حال مساله حل شد

با سپاس فراوان

Abbas Amiri
شنبه 03 فروردین 1392, 11:32 صبح
سلام

دوست گرامی از پاسختون خیلی ممنون مشکل حل شد به جای StartAgian عدد 1 را بکار بردم و درست عمل کرد

نمی دونم چرا StartAgian درست عمل نمی کرد

به هر حال مساله حل شد

با سپاس فراوان
سلام
علت اشتباه تایپی بود . یکجا StartAgain بود ویک جاStartAgian