Skip to main content

AccessTr.neT


puantaj izin ilişkisi

puantaj izin ilişkisi

Çözüldü #1
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
Dünya düşünenler için bir komedi, Hissedenler için bir trajedidir ***
Hugh WALPOLE
Son Düzenleme: 04/02/2013, 22:44, Düzenleyen: karaayhan.
Cevapla
Çözüldü #2
https://accesstr.net/konu-izinli-gunleri...#pid104619 bakınız...
Please return your positive or negative ...
Cevapla
Çözüldü #3
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.
Dünya düşünenler için bir komedi, Hissedenler için bir trajedidir ***
Hugh WALPOLE
Cevapla
Çözüldü #4
 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?
Dünya düşünenler için bir komedi, Hissedenler için bir trajedidir ***
Hugh WALPOLE
Son Düzenleme: 05/02/2013, 23:12, Düzenleyen: karaayhan.
Cevapla
Çözüldü #5
 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
Please return your positive or negative ...
Cevapla
Çözüldü #6
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?
Dünya düşünenler için bir komedi, Hissedenler için bir trajedidir ***
Hugh WALPOLE
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task