1 - forma aşağıdaki fonksiyonu ekleyin
Private Sub SaatTpl(Optional id As Long)
StrAlan = ""
For x = 1 To 31
StrDgr = Format(x, "00")
StrDgr = "IIf(IsNumeric(E" & StrDgr & ") , cdbl(E" & StrDgr & "),0)"
StrAlan = StrAlan & "+" & StrDgr
Next x
SqlUpdt = "Update [EKDERS] " & _
"SET [ETOPSAAT] =" & StrAlan
If id > 0 Then SqlUpdt = SqlUpdt & " where ID=" & id
CurrentDb.Execute SqlUpdt
End Sub
2 - daha sonra form_current olayına aşağıdaki kodu ekleyin
SaatTpl Me.Recordset(2)
3 - form_load olayına da aşağıdaki kodu
SaatTpl