VBA da kod yazma

Aşağıdaki kod SZT MDL 2000C de kullanılmaktadır. Bu fonksiyon çeşitli özelliklerin kullanımına
örnek olarak buraya konulmuştur.

Public Function modelgy()
Set db = CurrentDb
Set rs1 = db.OpenRecordset("anatablomodel") ' anatablomodel tablosundaki kayıtlar rs1 kayıt kümesine atanıyor
If Not rs1.EOF Then 'rs1 Kayıt kümesi boş değilse (kayıt varsa)
    With rs1
    	.MoveLast 'rs1 kayıt kümesinin sonuna git
    	ks1 = .RecordCount ' rs1 kayıt kümesindeki kayıt sayısı ks1 değişkenine atanıyor
    	.MoveFirst 'rs1 kayıt kümesinin başına git
    End With
End If
strmsg = "Anatabloda Göğüs yüzeyi hesaplanıyor..."
'durum çubuğunda progresbar gösteriliyor ve maximum değeri kayıtsayısına eşitlenirken
'strmsg mesajı görüntüleniyor.
varReturn = SysCmd(acSysCmdInitMeter, strmsg, ks1) 

For sayac = 1 To ks1 'kayıtsayısı kadar çalışacak döngü kuruluyor
	varReturn = SysCmd(acSysCmdUpdateMeter, sayac) 'progresbar çubuğu kayıt sayısına paralel olarak ilerletiliyor
	ÇAP = (rs1!cap) / 2 'YARIÇAP
	GY = ÇAP * ÇAP
	GY = GY * 3.14159
	GY = GY / 10000 'cap alanındaki çapdan göğüs yüzeyi hesaplanıyor ve GY değişkenine atanıyor
	GY = Int(((GY) * 1000) + 0.4999) / 1000 'Bulunan GY değeri virgülden sonra 3 haneli olacak şekilde yuvarlanıyor
	rs1.Edit ' kayıt kümesi, veri yazabilmek için edit moduna alınıyor
		rs1!GY = GY ' GY alanına hesaplanan GY değeri yazılıyor
	rs1.Update ' Kayıt kümesi güncelleniyor.(yazılan veri kaydediliyor)
	rs1.MoveNext 'Kayıt kümesinde bir sonraki kayda geçiliyor
Next ' döngü bir adım ilerletiliyor
rs1.Close ' kayıt kümesi kapatılıyor
'Plan adı registry deki szt kaydındaki modelplan klasöründen plan anahtarından okutuluyor ve
'progresbar çubuğu kaldırılarak durum çubuğuna plan adı yazdırılıyor. 
varReturn = SysCmd(acSysCmdSetStatus, " Plan Adı : " & GetSetting("szt", "modelplan", "plan", " "))
End Function