arkadaşlar konu cevaplandı ama benim uygulamamda bir türlü çalışmadığı için
tekrar ekliyorum kusura bakmayın....
sayın power örneğimi ekliyorum nerede hata yapıyoruz da çalışmıyor anlamadım...
izinli günleri puantaja aktarmıyor???

http://www.dosya.tc/server28/sksSpm/PUAN..._.rar.html

https://accesstr.net/konu-izinli-gunleri...#pid104619 bakınız...

sayın power teşekkürler PERSONEL_NO ile çözüleceğini daha önceden de söylemiştiniz ama orasının 0 olduğunu yeni farkettim....
kolay gelsin sorun hallolmuştur.

 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?

 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

K1=0 '--------------- Bunu ekleyin ------------------

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

               K1=K1+1 '--------------- Bunu ekleyin -----------------  

          

                  

                  



100

               rst.MoveNext

               Loop

  

  Next intI



  rs.MoveNext



  Loop Until rs.EOF



  End If

Me.izintoplamı = K1 '-------------------- Bunu ekleyin -------------

Set rs = Nothing

Set conn = Nothing



End Function

sayın power çalışıyor ancak izintaplami'na birşey yazmıyor yani satır da izin var 20 gün izin kullanmış ama izintoplami=0 sorun nerde olabilir?