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

Dim  As  
Ma’lumotlarni e’lon qilishning asosan 4 ta usuli mavjud: Ular Dim, ReDim, 
Const, va Global xizmatchi so’zlar yordamida e’lon qilinadi. 
Massivlarni e’lon qilishda ReDim xizmatchi so’zi ishlatiladi: 
ReDim )>  
Massivlarni Dim orqali e’lon qilsa ham bo’ladi, lekin bunda elementlar 
sonini o’zgartirib bo’lmadi, ReDim dan foydalanganda esa elementlar sonini 
o’zgartirish mumkin. 
Misol: 
ReDim KursMassiv(5) As String 
Doimiy qiymat 
Const  = < Qiymat > 
Misol: Const Pi = 3.14159 
Global o’zgaruvchilar 
Bu o’zgaruvchilar dasturning bosh qismida e’lon qilinadi. Global 
o’zgaruvchilarni dasturning xoxlagan qismida ishlatish mumkin. Uning sintaksisi: 
 
Global < Global o’zgaruvchi nomi > As < Ma’lumotTipi > 
Eslatma: Global o’zgaruvchilarni imkon boricha kam e’lon qilish maqsadga 
muvofiq, sababi o’zgaruvchilar ko’payishi bilan noaniqliklar paydo bo’la 
boshlaydi.

---

Access da tarmoqlar tashkil etish 
Access VBA tilida eng ko’p ishlatiladigan konsturiktsiyz – bu quyidagi ifodadir: 
If (Shart) Then
 
‘ Tarmoq tanasi (Bir yoki bir necha dastur satri) 
End If 
Eslatma: Agar shart True bo’lsa, u holda “Tarmoq tanasi” bajariladi, aks holda 
yo’q. 
Misol: 
Sub IfTest() 
Const Taklif=”Olingan foyda qiymatini kiriting: ” 
Const Sarlavha=”Olingan foydadan soliq ” 
Const EslatmaAxborot=”Sizdan ko’p oladi, tabriklayman! ” 
Dim SoliqSumma As Double 
SoliqSumma=Val(Input(Taklif, Sarlavha, “500000”)) 
If (SoliqSumma>500000) Then 
MsgBox EslatmaAxborot 
End If 
Const Taklif_1=”Foydalanuvchi nomini kiriting: ” 
Const Sarlavha_1=”Foydalanuvchi nomi ” 
Const EslatmaAxborot_1=”Hush kelibsiz Administrator! ” 
Dim UserName As String 
UserName=”Mexmon ” 
UserName=InputBox(Taklif_1, Sarlavha_1, UserName)) 
If (UserName=”Admin”) Then 
MsgBox EslatmaAxborot_1 
End If 
End Sub