- 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.