Güncellemeleri bizimle paylaştığınız için çok teşekkürler.. Dosya adı aynı ise ekli mesajda eski dosyanın yerine güncel olanı koyabilirsiniz..

Bitince Access Örnekleri kısmına da ekleyin bence.. Böyle güzel ve faydalı bir çalışmanın sorular kısmında kaybolmasına gönül izin vermez..

Sn. Taruz

Tavsiyenizi mutlaka yerine getirecegim... Sizin gibi Ustadligi kabul gormus bir sahsiyetten ovgu almak benim icin ayri bir gururdur...

sagolun...

Maas bordrosunda kod calismiyor.

kod QryInkaMaas icinde calismasi lazim


  Herkul2.rar (Boyut: 970,2 KB / İndirilme: 76)

YaRdimM. Bekliyorum?

Arkadaslar

Ekli dosya 2007 de calistirinca problem yok, fakat 2010 access te problem veriyor.

2 Kod var

1 saatlik mesai
2 gunluk mesai


Public Function SMaasHesapla(Veri1 As Integer, Veri2 As Double, Tarih As Date)
Dim SonGun As Date
SonGun = (DateSerial(Format$(Tarih, "yyyy"), Format$(Tarih, "mm") + 1, 1) - 1)
SonGun = Format(SonGun, "dd")

Select Case Veri1
Case Is = 1
SMaasHesapla = (((Veri2 * 12) / (8 + (4 * 1)))) ' Uretim
Case Is = 2
SMaasHesapla = (Veri2 / 8) ' Gunluk
Case Is = 3
SMaasHesapla = (((Veri2) / SonGun) / 8) ' Aylik
Case Is = 4
SMaasHesapla = (Veri2) ' Saatlik
Case Is = 5
SMaasHesapla = (((Veri2) / SonGun) / (8 + (1 * 1))) ' AylikFM
End Select
'MaasHesapla = Format(SMaasHesapla, "Currency") 'sonucu para birimi biçimne çevirir..
End Function

Public Function GMaasHesapla(Veri1 As Integer, Veri2 As Double, Tarih As Date)
Dim SonGun As Date
SonGun = (DateSerial(Format$(Tarih, "yyyy"), Format$(Tarih, "mm") + 1, 1) - 1)
SonGun = Format(SonGun, "dd")

Select Case Veri1
Case Is = 1
GMaasHesapla = ((((Veri2 * 12) / (8 + (4 * 1)))) * 8) ' Uretim
Case Is = 2
GMaasHesapla = (Veri2) ' Gunluk
Case Is = 3
GMaasHesapla = ((((Veri2) / SonGun) / 8) * 8) ' Aylik
Case Is = 4
GMaasHesapla = (Veri2 * 8) ' Saatlik
Case Is = 5
GMaasHesapla = ((((Veri2) / SonGun) / (8 + (1 * 1))) * 8) ' AylikFM
End Select
'MaasHesapla = Format(GMaasHesapla, "Currency") 'sonucu para birimi biçimne çevirir..
End Function

Sayın MuazTurkyilmaz, hatanın nerede gerçekleştiğini belirtmemişsiniz. Onu belirtirseniz hatayı gidermek daha kolay olur düşüncesindeyim. iyi çalışmalar