Skip to main content

AccessTr.neT


İzin_Rapor takibi

İzin_Rapor takibi

Çözüldü #13
mehmetdemiral hocam hala söylediklerinizi yapmaya çalışıyorum fakat bir türlü beceremedim.bu konuda arkadaşlardan yardım bekliyorum. Karakterleri düzeltmememin sebebi daha önce bu şekilde olduğundan. Şimdi olsa mümkünü yok tablolarda türkçe karekter kullanmazdım.
Son Düzenleme: 11/01/2010, 15:25, Düzenleyen: hegu.
Cevapla
Çözüldü #14
sayın hocalarım yokmu bu konuda yardımcı olabilecek
4.mesajdaki gibi birşeyler yapmak istiyorum tabi olursa yoksa bu şekilde olması zor mu? bu konuda bilgi olursa da hiç olmazsa ümidimi keserim.
ilgilenen herkese teşekkür ederim.
Cevapla
Çözüldü #15
Ümidinizi kesmenize gerek yok, yapılır yapılmasına ama mehmetdemiral'ın bahsettiği şekilde kod yazmak lazım.
Onun içinde zaman lazım, fırsat bulduğumda bir bakarım inşallah.
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla
Çözüldü #16
Aşağıdaki gibi bir fonksiyon yazdım.
Bu fonksiyonu kullanan "Izin_Hesaplama" adında bir sorgu hazırladım.
Sorguda fonksiyonun kullanım şeklini ve sonuçlarını göreceksiniz.
Gerisi size kalmış. İnceleyin, mantığını çözmeye çalışın, umarım işinize yarar.

Public Function IzinGunu(BasTar As Date, DonTar As Date, Donem As Byte) As Integer
Dim SonrakiAyBasi As Date
IzinGunu = 0
If Not IsDate(BasTar) Then Exit Function
If Not IsDate(DonTar) Then Exit Function
If Donem <> 1 And Donem <> 2 Then Donem = 1

If Donem = 1 Then
If Month(BasTar) = Month(DonTar) Then
IzinGunu = DateDiff("d", BasTar, DonTar)
Else
SonrakiAyBasi = DateAdd("m", 1, DateSerial(Year(BasTar), Month(BasTar), 1))
IzinGunu = DateDiff("d", BasTar, SonrakiAyBasi)
End If
Else
If Month(BasTar) = Month(DonTar) Then
IzinGunu = 0
Else
SonrakiAyBasi = DateAdd("m", 1, DateSerial(Year(BasTar), Month(BasTar), 1))
IzinGunu = DateDiff("d", SonrakiAyBasi, DonTar)
End If
End If
End Function
.rar izintakibi_Seruz.rar (Dosya Boyutu: 22,88 KB | İndirme Sayısı: 29)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla
Çözüldü #17
Yeni üyenizim. Tüm arkadaşlara merhaba.
Böyle bir ortama üye olduğum için gerçekten mutluluk duydum. Katkıda bulunanlara teşekkürler.
O kadar çok bilgi var ki, tümünü okumak çok zaman alacak. Ancak, acil öğrenmem gereken bir sorunum var: Puantaj yapmak istiyorum. Kişilerin haftalık ücretleri, ilgili ya otomatik işlensin. Örneğin; A kişisinin haftalık sabit ücreti, Pazartesi den Cuma ya 4-3-4-3-4 saat olsun. Bütün personelin ücretli saatleri, her yeni aya otomatik işlensin. İşlendikten sonra Rapor ya da İzin varsa bunları elle girebileyim. Olabilir mi? Yardımlarınızı bekliyor teşekkür ediyorum.
Cevapla
Çözüldü #18
Sn ssotkum öncelikle sitemize hoşgeldin. Site Kuralları gereği sıfırdan program yapmıyoruz. Örnek çalışmanızı ekleyin takıldığınız yerde sitede arama yapın, uygun örnek cevap bulamadığınızda, yeni konu açarak sorunuzu yazınız. Mutlaka yardım eden bulunur...Saygılar...
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi


Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task