Merhaba, X için Gün alanına X Sayısını toplatmak için,

- G01 den G31'e kadar tüm metin kutularının isimlerini değiştir, metin kutusunun denetim kaynağı G11 ise metin kutusunun adı da G11 olmalı, şu anda alt formda denetim kaynağı G10 olan metin kutusunun adı Metin107. Metin107 değil G10 olacak.

- Calisan_Puantaj_Hes tablosundaki G01, G02.... G31 şeklindeki alanların veri türünü metin olarak değiştir. bu tabloya Gun adında yeni alan ekle,

- Calisan_Puantaj_Hes 1 isimli alt formun satır kaynağına eklenen Gun : G01 + G02 şeklinde alan var bu alanı iptal et, yerine tablodaki Gun alanını ekle.

- Calisan_Puantaj_Hes 1 isimli alt forma 

Sub Hesapla()



Dim GSayi As Integer



GSayi = 0

For ss = 1 To 31



ss = Format(ss, "00")





If Controls("G" & ss).Value = "X" Then



GSayi = GSayi + 1



End If



Next ss



Me.Gun = GSayi



End Sub

kodu ekle,

Alt formun geçerli olduğunda olayına ve G01, G02 isimli metin kutularının (G31'e kadar) güncelleştirme sonrasında olayına

Call Hesapla

Kodu ekle. Bu şekilde, metin kutusuna X yazdığında Gun alanına X toplamını yazar.

Anlaşılmayan durum var ise belirtin.