AccessTr.neT
puantaj izin ilişkisi - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: puantaj izin ilişkisi (/konu-puantaj-izin-iliskisi.html)

Sayfalar: 1 2 3


puantaj izin ilişkisi - karaayhan - 04/02/2013

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


Cvp: puantaj izin ilişkisi - POWER - 04/02/2013

https://accesstr.net/konu-izinli-gunleri-puantaja-aktarmak.html?pid=104619#pid104619 bakınız...


Cvp: puantaj izin ilişkisi - karaayhan - 04/02/2013

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.


Cvp: puantaj izin ilişkisi - karaayhan - 05/02/2013

 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?


Cvp: puantaj izin ilişkisi - POWER - 06/02/2013

 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



Cvp: puantaj izin ilişkisi - karaayhan - 06/02/2013

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?