Function aktar13()
Set db = CurrentDb
Dim rs As New ADODB.Recordset
strSQL = "SELECT * From Srg "
strSQL = strSQL & "WHERE süz=" & cmbMonth & "" & cmbYear
rs.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If rs.EOF <> True Then
Do
intMonth = Me!cmbMonth
intYear = Me!cmbYear
intFirst = 1
intLastDay = Day(DateAdd("m", 1, DateSerial(intYear, intMonth, 1)) - 1)
intLast = intFirst + intLastDay - 1
For intI = intFirst To intLast
strnum = Format(intI, "00")
Set rst = db.OpenRecordset("tblİzinAltTablosu")
Do Until rst.EOF
If (Me.cmbYear & Format(Me.cmbMonth, "00") & strnum) < Format(rst![AYRILIŞ TARİHİ], "yyyymmdd") Then GoTo 100
If (Me.cmbYear & Format(Me.cmbMonth, "00") & strnum) > Format(rst![KATILIŞ TARİHİ], "yyyymmdd") Then GoTo 100
If rst![SıraNo] <> rs![PERSONEL NO] Then GoTo 100
If IsNumeric(rs("E" & strnum)) Then rs("ETOP") = rs("ETOP") - rs("E" & strnum) / 10
rs("E" & strnum) = "İ"
rs.Update
' Me.izintoplami = rs("E" & strnum) = "İ"
100
rst.MoveNext
Loop
Next intI
rs.MoveNext
Loop Until rs.EOF
End If
Set rs = Nothing
Set conn = Nothing
End Function
sayın power hocam burada izinli günlerin sayısını bulmak ve işaretlediğim alana (me.izintoplami)yazdırmak istiyorum kod'da nasıl bir değişiklik yapmam gerekir size zahmet bi bakarmıasınız?