Alt Yordamların Oluşturulması ve Kullanılması
Alt Yordam Nedir?
Bazı işlemleri bir çok yerde tekrar etmemiz gerekebilir. İşte böyle durumlarda Alt yordamlardan faydalanırız. Alt yordamlar kullanılarak aynı işlemler daha az kod kullanılarak gerçekleştirilebilir.
Fonksiyonlarda olduğu gibi alt yordamlarda da Private ve Public olarak tanımlanabilirler. Alt yordamlara Subroutines olarak ta adlandırılmaktadır. Şimdi örneklerimize geçelim.
Public Sub YeniKayıtEkle()
On Error GoTo YeniKayit_Err
With CodeContextObject
DoCmd.GoToRecord , "", acNewRec
If (Err.Number <> 0) Then
Beep
MsgBox Err.Number, vbOKOnly, ""
End If
End With
YeniKayit_Exit:
Exit Sub
YeniKayit_Err:
MsgBox Error$
Resume YeniKayit_Exit
End Sub
Yukarıdaki altyordamı tüm formlarınızın Yeni Kayıt Ekle butonundan çağırabilirsiniz. Sadece butonun Click olayına aşağıdaki kodu yazmanız yeterlidir.
Private cmdYeniKayıtEkle()
Call YeniKayıtEkle
End Sub
Tekrarlayan tüm işlemlerinizi bu şekilde alt yordam oluşturarak kullanabilirsiniz. Bu sayede büyük ölçüde kod satırından tasarruf edebilirsiniz.
Access formlarınızda veya raporlarınızda kullandığınız her olay aslında bir alt yordamdır. Genelde bir defa çalıştırılır. Fakat ihtiyaç halinde bu yordamları da farklı alt yordamlardan çağırma imkanına sahipsiniz. Şöyle ki formunuzda bir Yenile butonu varsa bunu yeni kayıt ekledikten sonra Yenile butonunun Click olayını çağırabilirsiniz. Şu şekilde;
Private Form_AfterInsert()
........
........
........
Call cmdYenile_Click()
End Sub
0 Yorumlar