sayın üyeler puantaj günlük çalışma saatlerini izin vs. yazılması sebebiyle metin yaptık
ancak formda çalışma saatlerini toplamını her birgün değeri değiştikçe küsüratlı vs. 125,5 gibi
sağda ilgili sütunatolatmak istiyorum. şimdiden teşekkürederim
hangi tablodaki hangi alan?
form üzerinde : Çalş.Saat Top.
ekders tablosunda ise :ETOPSAAT
alanları
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
sayin berdus deneyip bilgi verecegim ilginize tesekkur ederim.