Accessda dastur yozish uchun, hattoki oddiy dastur – Siz 5 ta tashkil etuvchi haqida ma’lumotga EGA bo’lishingiz lozim

If (Shart) Then
 
‘ Shart=True bo’lsa bajariladigan Tarmoq tanasi (Bir yoki bir necha 
dastur satri) 
Else 
 
‘ Shart=False bo’lsa bajariladigan Tarmoq tanasi (Bir yoki bir necha 
dastur satri) 
End If 
Agarda bir nacha tarmoqlar ichma-ich joylashgan bo’lsa, u holda Case 
operatoridan foydalanish qulaylik tug’diradi. Uning strukturasi: 
Select Case  
Case Shart_1 
‘ Shart_1=True bo’lsa, bajarilishi lozim bo’lgan tana 
Case Shart_2 

---

‘ Shart_2=True bo’lsa, bajarilishi lozim bo’lgan tana 
... 
Case Shart_N 
‘ Shart_N=True bo’lsa, bajarilishi lozim bo’lgan tana 
Case Else 
‘ bajarilishi lozim bo’lgan tana 
End Select 
‘vbExclation – Ogoxlantiruvchi oknoni hosil qiladi 
Takrorlanish jarayonlarini tashkil etish 
While (shartli ifoda) 
 
‘ Sharti ifoda = True da bajariladigan tana 
Wend 
Misol: 
Sub WhileWendDemo() 
Dim User As String 
User = InputBox(“Foydalanuvchini kiriting “, “Foydalanuvchini kiritish”, 
User) 
While (Len(User)>0) 
MsgBox User & “ foydalanuvchini qo’shish”, vbInformation 
User = InputBox(“Foydalanuvchini kiriting “, “Foydalanuvchini 
kiritish”, User) 
Wend 
End Sub 
‘ vbInformation 
‘ Len – O’zgaruvchidagi simvollar sonini hisoblaydi 
Sharti oldin tekshiriladigan takrorlanish 
Do [ {While | Untel } ] 
‘ Bajariladigan tana (While “>” da bajarsa, u holda Untel “=<” bajaradi)