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,