puantaj kısmında şöyle bir sorunumuz oldu;

kodların bulunduğu sayfada
Private Sub top()
Dim i As Integer
Dim TOPLAM As Integer
For i = 1 To 31
       
        strnum1 = Format(i, "00")
If Me("txt" & strnum1).Enabled = True And Me("txt" & strnum1) <> 0 Then
TOPLAM = TOPLAM + Val(Nz(Me("txt" & strnum1), 0))
End If
Next i
Me.ETOP = TOPLAM / 10
ETOP1
End Sub

burada ETOP değeri en fazla 30 gün olmalı bu değeri aşan durumlarda
fazla çalışmaya(MESAI) yazılmalı ?
bunun için nasıl bir değişiklik yapmalıyız..?