Çalıştığım form üzerinde bir butonun tıklandığında olayına nasıl bir kod eklemeliyim ki
işim bittiğinde Rapor alırken kriter olarak kullandığım Kaynak Tablo veya Sorgudaki onay kutularını temizleyebileyim.

Tablo adı:TeslimEdilenMalzeme
Onay kutusu Alanının adı: Onay
Sorgu adı:Srg_TeslimEdilenMalzeme

Mantık yürüterek bir kaç şekil denedim ama olmadı

üstadlarım diyelim ki 5 metin kutumuz olsun
id otomatik sayı
a kutusu
b kutusu
c kutusu
d kutusu
e kutusu (not)

a,b,c,d,kutuları boş olduğunda e kutusunda yazsın istiyorum bunu nasıl yapabiliriz. yani a kutusu boş olduğunda e kutusunda "a boş" a ve b boş ise "a ve b boş" yazsın if ile çok uzun sürdü case ilede aynı bunun daha kolay yolu varmı acaba. yoksa hepsine tek tek if mi yamma lazım a ve b boş ise , a ve c boş ise b ve c boş ise diye diye gidecek

Merhaba Arkadaşlar.

Dört adet Metin kutusundan dolu olanları toplamak istiyor. 

Örneğin: Sadece Metin1 Dolu diğer Metin2, Metin3, Metin4 kutuları boş ise sadece Metin1 deki rakam Metin5 de görünsün. Yani iki metin kutusu dolu ise 2 metin kutusunu 3 metin kutusu dolu ise 3 metin kutusunun toplamını metin kutusunda göstersin. Eğer bir metin kutusu dolu ise dolu olan metin kutusunu toplamda göstersin.

Bu konuda yardımlarınıza ihtiyacım var.

[code=vba]Sub FormMetinKutusuListele()
   Dim ctrl As Control
   Dim frm As Form
   Dim mesaj As String
   
   ' Aktif formu al (kullanıcı o anda hangi formdaysa)
   Set frm = Screen.ActiveForm
   
   ' Formdaki tüm kontrolleri dolaş
   For Each ctrl In frm.Controls
       ' Metin kutusu veya birleşik giriş kutusu ise ekle
       If TypeOf ctrl Is TextBox Or TypeOf ctrl Is ComboBox Then
           If mesaj <> "" Then mesaj = mesaj & ", "
           mesaj = mesaj & ctrl.