Microsoft Access ile hazırlamış olduğunuz bir formunuz var ve bir butona silerek tüm metin kutusu, açılır kutu vb. alanları temizlemek istiyorsunuz. Bunun için yapmanız gereken işlemler şunlardır:

Microsoft Access 2010 ile hazırladığımız örnek programda çok sayıda formda bu işleri yaptıracağımızı varsayarsak her defasında aynı kodları yazmamız biraz hamallık olacaktır bunun için bir fonksiyon oluşturalım. Mevcut metin kutularının ve onay kutularının içini temizleyen ve açılır kutular ile seçenek kutularının varsayılan değerlerini geri getiren fonksiyonumuzun kodlarını boş bir modüle ekleyeceğiz:

Modül ile işlerimizi otomatikleştirelim
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15	Function Temizle(SeciliForm As Form) Dim kontrol As Control   For Each kontrol In SeciliForm.Controls Select Case kontrol.ControlType Case acTextBox kontrol.Value = "" Case acOptionGroup, acComboBox, acListBox kontrol.Value = Null Case acCheckBox kontrol.Value = False End Select Next   End Function

Microsoft Access Form üzerinde bir butona tıkladığımızda fonksiyonumuzu çalıştıracağız ve mevcut formumuzun adını fonksiyona göndereceğiz.

Örnek dosyayı Dosyalar --> Access --> Access Örnek Programlar kategorisinden indirebilirsiniz.

< Önceki		Sonraki >