Ekders Puantaj Programi

Katılım
22 Ocak 2007
Mesajlar
815
Excel Vers. ve Dili
2003
ekte gönderdiğim ekders puantaj programı program 2003 ofice de çalışır aylar yıllar otomotik gelir haftasonları otomotik kapanır program genel olarak şöyle çalışır öncelikle kurum bilgilerini kurum bilgileri düğmesine tıklayarak girersiniz program kapanır tekrar açtığınızda artık çizelgelerde sizin kurum bilgileri çıkmaya başlar sonra ekrana gelen aya yeni personel ekle düğmesine tıkladığınızda gelen ekrandan girdiğiniz personel sisteme ve o aya eklenir bir sonraki ay aya önceki ayın personelini aktar dediğiniz zaman sistemdeki personeli aktarır diyelim oay yaztatili ve çizelgede diğer öğretmenler çıkmayacak işte ozaman önce o aya personeli aktarırsınız sonra o aydan kaldıracağınız personelin yanındaki silme düğmesine tıkladığınız zaman önünüze 3 seçenekli bir düğme gelecek EVET personeli sistemden tamamen silerki bu bir sonraki ay aktar dediğiniz zaman o personel olmayacak demektir yani EVET seçeneğini personel sizden gittiği zaman kullanacaksınız HAYIR seçneği ise yalnızca içinde bulunduğumuz ay siler bir sonraki ay aktar dediğinizde bütün personel aktarılır İPTAL seçeneği ise silmeyi iptal eder hafta sonları yapılan ders dışı çalışma saatleri o haftanın cuma gününe eklenecek program otomotik olarak soyada göre sıralar mal müdürlüğünde soyada göre giriş yapılır.programın eksik yada arızası olduğunda yazarsanız haberimiz olur ve düzeltiriz
bu program daha önce eklediğim takvim uygulamasının bitirilmiş halidir
 
Katılım
30 Aralık 2005
Mesajlar
103
Excel Vers. ve Dili
Excel Vers. ve Dili:
Excel 2003 - Türkçe
güzel örnek

bu programda yazdığımız kişilere otomotik olarak hafta içi 9 hafta sonu 7,5 nasıl aktara biliriz bu konudada örnek verirseniz sevinirim
 
Katılım
22 Ocak 2007
Mesajlar
815
Excel Vers. ve Dili
2003
cevap

'PERSONEL TABLOSUNDAN PERSONEL BİLGİLERİNİ AKTARMA
Function TAR1()

If Me.Metin140 <> 0 Then
Exit Function
End If

If Me.Metin140 = 0 Then
Dim rs As New ADODB.Recordset
rs.Open "EKDERS", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Dim rs1 As New ADODB.Recordset
rs1.Open "PERSONEL", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If rs1.EOF = True Then
MsgBox "Tabloda kayıt yok."
Else
If rs1.EOF <> True Then
Do

rs.AddNew
rs("PERNO") = rs1("PERSONEL NO")
rs("SAYMANLIK NO") = rs1("SAYMANLIK NO")
rs("KADRO DURUMU") = rs1("KADRO DURUMU")
rs("HESAPLAMA ŞEKLİ") = rs1("HESAPLAMA ŞEKLİ")
rs("BRANŞI") = rs1("BRANŞI")
rs("ADI") = rs1("ADI")
rs("SOYADI") = rs1("SOYADI")
rs("YIL") = Me.cmbYear
rs("AY") = Me.cmbMonth
Dim intI As Integer, intJ As Integer, strnum As String
intMonth = Me!cmbMonth
intYear = Me!cmbYear
intFirst = 1
intLastDay = Day(DateAdd("m", 1, DateSerial(intYear, intMonth, 1)) - 1)
intLast = intFirst + intLastDay - 1
intJ = 1
For intI = intFirst To intLast
strnum = Format(intI, "00")
If Format(strnum & "/" & intMonth & "/" & intYear, "dddd") = "Cumartesi" Or Format(strnum & "/" & Me.cmbMonth & "/" & Me.cmbYear, "dddd") = "Pazar" Then
rs("E" & strnum) = "9"
Else
rs("E" & strnum) = "7,5"

End If
Next intI
rs.Update

rs1.MoveNext
Loop Until rs1.EOF
End If
Set rs1 = Nothing
Set rs = Nothing
Set conn = Nothing
End If
End If
Form.Requery
Metin140.SetFocus
top
End Function
bu şekilde olacak
 
Üst