آشنایی با عبارت شرطی If و کاربرد آن درمحیط اکسس

آشنایی با ساختار عبارت IF

یکی از عبارت های بسیار مهم و کاربردی در زبان برنامه نویسی VBA عبارت IF  می باشد .

در این پست آموزشی می خواهیم به طور کامل به بررسی این عبارت پرداخته و با حالات مختلف این عبارت آشنا شویم . 

و در انتهای همین مطلب با یک مثال کاربردی با نحوه استفاده از آن در محیط اکسس آشنا خواهیم شد . 

 

ساختار عبارت IF 

عبارت IF یکی از ستورات پرکاربرد در برنامه نویسی VBA می باشد . 

با اسفاده از این عبارت ما می توانیم به بررسی یک یا چند شرط پرداخته و با تجزیه و تحلیل نتایج حاصل از آن از برنامه بخواهیم که کار خاصی را انجام بدهد .

واقعیت امر این است که ما در زندگی روزمره خود نیز با موقعیت های مختلف سر و کار داریم که انجام دادند و یا ندادن کارهای خاص را مشروط به بعضی از شرایط می نماییم.

به عنوان مثال به عبارت های شرطی زیر توجه نمایید:

– اگر فردا باران ببارد با خود چتر خواهم برد و گر نه نیازی به این کار نیست . 

-اگر فردا تعطیل باشد به مسافرت خواهم رفت و گر نه در خانه خواهم ماند .

-اگر فرصت کافی داشته باشند مطالعه کنم و گر نه باید کارهای عقب مانده ام را انجام دهم .

اینها تنها  سه نمونه از انواع موقعیتهای  شرطی بود که در زندگی روزمره با آنها سر و کار داریم

در تمامی این موارد انجام شدن یک کار منوط به فراهم آمدن شرایط آن شده است.

در دنیای برنامه نویسی وی بی ای نیز  می توانیم با استفاده از عبارت های شرطی شرایطی را تعریف نماییم که اگر این شرایط مهیا باشند برنامه برای ما کار خاصی را انجام بدهد و یا از انجام کار خاصی صرفنظر نماید

برای شبیه سازی موقعیت های شرطی در  در برنامه نویسی VBA  میتوانیم از عبارت شرطی if استفاده نماییم

ساختار فرمول کلی عبارت  if به قرار زیر است .

عبارت if



همانگونه که ملاحظه می نماییداین عبارت از دو قسمت مجزا تشکیل شده است.

در قسمت اول ما در ستی یک شرط را بررسی می‌کنیم که اگر بر قرار باشد به برنامه می گوییم کار خاصی را انجام بدهد

در بخش دوم عبارت که با کلمه کلیدی Else  آغاز می شود برنامه را برای انجام کاری آماده می نماییم  که شرط مورد نظر ما برقرار  نباشد. 

بررسی عبارت IF  با یک مثال ساده

بیایید با هم  یک مثال ساده در این زمینه را بررسی نماییم . 

به فرم زیر دقت نمایید . 

دستور if در اکسس

در این فرم یک تکس باکس و یک برچسب  قرار داده شده است  .

نام تکس باکس مورد نظر را txt-1  نام برچسب خود را lbl-1  تعریف می نماییم .

در این تکس باکس می خواهیم نمرات فرضی را برای چند دانش آموز وارد کنیم .

حال می خواهیم کدی بنویسیم که با استفاده از آن نمرات وارد شده در این تکس باکس را از لحاظ قبول و یا  مردود بودن نمرات تفسیر نماییم .

برای این منظور کدهای زیر را در رویداد مربوط به On click  دکمه خود  وارد می نماییم . 

عبارت شرطی در اکسس

اکنون فرم خود را باز نموده و با وارد کردن نمرات مختلف در تکس باکس خود و زدن دکمه موجود بر روی فرم خود نتایج را مشاهده نمایید . 

این مثالی ساده از نحوه کنترل جریان برنامه با استفاده از عبارت شرطی بود . 

اجازه بدهید با هم مثالی دیگر را بررسی نماییم تا ببینیم که چگونه می توانیم از این دستور کاربردی استفاده های بیشتری ببریم . 

ایجاد  قابلیت انیمیشن در  متن با استفاده از دستور IF……ELSE

 در این مثال می خواهیم با استفاده از قابلیت IF……ELSE امکانی را فراهم آوریم که در صورت قبول شدن فرد مورد نظر ما در مثال بالا متنی که قرار است برای وی به نمایش در آید حاوی یک افکت انیمیشن باشد . 

برای این منظور مراحل زیر را دنبال نمایید . 

۱٫ ابتدا فرم خود را طبق مراحل توضیح داده شده در مثال قبلی ایجاد نمایید . 

۲٫در رویداد مربوط به کلیک دکمه موجود در فرم خود کدهای زیر را وارد نمایید . 

Dim i As Integer

Dim anim As String

()Private Sub cmd_1_Click
If Me.txt_1 >= 10 Then
“تبریک شما قبول شده اید”=Me.lbl_1.Caption 

Else
If Me.txt_1 < 10 Then
“متاسفانه شما مردود شده اید “=Me.lbl_1.Caption 
End If
End If
i = 0

anim = Me.lbl_1.Caption
Then “تبریک شما قبول شده اید”=If anim

Me.TimerInterval = 300
Else
Me.TimerInterval = 0
End If

End Sub

۳٫ در رویداد مربوط به Load  فرم خود نیز کدهای زیر را وارد نمایید . 

()Private Sub Form_Timer

If i < Len(anim) Then

i = i + 1

(Me.lbl_1.Caption = Left(anim, i

Else: i = 0

End If

(Me.lbl_1.ForeColor = RGB(85 + CInt(Rnd() * 300), 110 + CInt(Rnd() * 100), 0

End Sub

اکنون کافی است به محیط فرم خود رفته و با درج عددی بالاتر از ۱۰  بر روی دکمه موجود در فرم خود کلیک نموده و نتیجه را مشاهده نمایید . 

تصویر زیر نتیجه این کار را نمایش می دهد . 

کار با دستور if در اکسس

آنچه که در این مطلب به آن پرداختیم آشنایی با دستور IF و نحوه کاربرد آن در کد نویسی VBA بود . 

آموزش اکسس2016 بازدید : 258 views ۱۴ فروردین, ۱۳۹۸ ۰