1- ) Yazdığınız kod

Private Sub Form_Current()

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

bu şekilde kod yazım şekli yok. Doğru kod;

Private Sub Form_Current()

Call Hesapla

End Sub



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

Ayrıca, formdaki alt formunun kaynak nesnesi "Calisan_Puantaj_Hes" isimli form olmasına rağmen siz kodu "Calisan_Puantaj_Hes1" isimli alt forma eklemişsiniz.

2- Önceki mesajımda "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." şeklinde ibare var. Eklediğiniz örnekte alt formun satır kaynağındaki sorguda halen 

Gun: ([G01]+[G02]+[G03]+[G04]+[G05]+[G06]+[G07]+[G08]+[G09]+[G10]+[G11]+[G12]+[G13]+[G14]+[G15]+[G16]+[G17]+[G18]+[G19]+[G20]+[G21]+[G22]+[G23]+[G24]+[G25]+[G26]+[G27]+[G28]+[G29]+[G30]+[G31])*1

Şeklinde kod mevcut, bunun silinip Sadece Gun yazılması gerekiyor.

Bunları düzeltirseniz çalışır,