Skip to main content

AccessTr.neT


Satır Ve Sütun Koşullu Değerlendirme

Satır Ve Sütun Koşullu Değerlendirme

#13
aşağıdaki kodu dener misiniz? önceki koddan daha hızlı gibi geldi.
Not: sonuçları tam kontrol edemedim
Dim GSayi As Integer
Dim GTarih As Date

    For GSayi = 1 To 30
    GTarih = DateAdd("d", GSayi - 1, DateSerial(Year(Date), 7, 1))
    CurrentDb.Execute "update tbl_PERSONEL set Tarih" & GSayi & "= '' "
    Controls("Tarih" & GSayi & "_Etiket").Caption = Format(GTarih, "dd mmm")
    Next GSayi
   
  For GSayi = 1 To 30
        GTarih = DateAdd("d", GSayi - 1, DateSerial(Year(Date), 7, 1))
        txtSQL = "update tbl_PERSONEL set Tarih" & GSayi & _
            "='X' where SICILNO in(" & _
            "SELECT SICILNO " & _
            "FROM tbl_IZINLER " & _
            "WHERE (IZINBASLANGICTARIHI <=" & CLng(GTarih) & ") AND (IZINBITISTARIHI >=" & CLng(GTarih) & ") " & _
            ")"
        CurrentDb.Execute txtSQL
  Next GSayi
Cevapla
#14
(27/06/2021, 08:17)berduş yazdı: Rica ederim
Iyi çalışmalar
Not: çalışmada önce personel tablosundaki tüm izin tarihleri siliniyor, istenirse sadece belirli bir doneminki de silinebilir.
Not2: siz doğrudan 30 gün için ayarlamışsınız ama aya gore 28-31 arası olması gerekmez mi?

Haklısınız,

Tarih varyasyonunu gün+gün ya da hafta+hafta ya da ay+ay ilerleten butonlarla geliştirmeyi düşünüyorum.

Yine yardımınıza ihtiyacım olacaktır Img-grin

(27/06/2021, 10:15)berduş yazdı: aşağıdaki kodu dener misiniz? önceki koddan daha hızlı gibi geldi.
Not: sonuçları tam kontrol edemedim
Dim GSayi As Integer
Dim GTarih As Date

    For GSayi = 1 To 30
    GTarih = DateAdd("d", GSayi - 1, DateSerial(Year(Date), 7, 1))
    CurrentDb.Execute "update tbl_PERSONEL set Tarih" & GSayi & "= '' " 'where SICILNO=" & rs(0)
    Controls("Tarih" & GSayi & "_Etiket").Caption = Format(GTarih, "dd mmm")
    Next GSayi
   
  For GSayi = 1 To 30
        GTarih = DateAdd("d", GSayi - 1, DateSerial(Year(Date), 7, 1))
        txtSQL = "update tbl_PERSONEL set Tarih" & GSayi & _
            "='X' where SICILNO in(" & _
            "SELECT SICILNO " & _
            "FROM tbl_IZINLER " & _
            "WHERE (IZINBASLANGICTARIHI <=" & CLng(GTarih) & ") AND (IZINBITISTARIHI >=" & CLng(GTarih) & ") " & _
            ")"
        CurrentDb.Execute txtSQL
  Next GSayi

Uygulayıp paylaşacağım.

Saygılar.
temre, 18-02-2010 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 27/06/2021, 10:52, Düzenleyen: temre.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da