درخواست کمک برای استفاده از دستور if

سلام
من وقتی از دستور if استفاده میکنم این ارورو میده میخواستم بدونم برای چیه؟
ممنون

Compile error:
End If without block If

این یعنی شما یه end if اضلفی گذاشتی

ساختار دستور if :

if a=b then
msgbox a
end if

نقل قول:

---

نوشته شده توسط vb_lord_AR [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

این یعنی شما یه end if اضلفی گذاشتی

ساختار دستور if :

if a=b then
msgbox a
end if

---

نه دوست عزیز من یه end if گذاشتم کد اینه:
Private Sub Command1_Click()
If Me.Caption = "form1" Then Beep
End If
End Sub

میشه مشکل از برنامه باشه؟

نقل قول:

---

نوشته شده توسط Tom Clancy's [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

نه دوست عزیز من یه end if گذاشتم کد اینه:
Private Sub Command1_Click()
If Me.Caption = "form1" Then Beep
End If
End Sub

میشه مشکل از برنامه باشه؟

---

سلام
کد درست اینطوری است
Private Sub Command1_Click()
If Me.Caption = "form1" Then
Beep
End If
End Sub
یعنی دستور را باید در خط دوم بنویسید
یا اینکه دستور را می تونی در یک خط بنویسی اینطوری :
Private Sub Command1_Click()
If Me.Caption = "form1" Then Beep
End Sub
که در این صورت end if لازم نمی باشد و اون خطا هم بخاطر همین بوده است

اون کد شما هم درسته فقط باید
end if
رو برداری

به طور کلی دستور if چندین نوع داره
s=شرط
t=دستوری که اگر شرط برقرار بود اجرا می شود
f=دستوری که اگر شرط درست نبود اجرا می شود
1.
if s then t


2.
if s then t else f


3.
if s then
t1
t2
t3
.
.
.
tn
end if


4.
if s then
t1
t2
tn
else
f1
f2
fn
end if


5.
if s1 then
t1
elseif s2 then
t2
elseif s3 then
t3
else if sn then
tn
end if

امیدوارم فهمیده باشی [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]