+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Satır Ve Sütun Koşullu Değerlendirme (/konu-satir-ve-sutun-kosullu-degerlendirme.html)
RE: Satır Ve Sütun Koşullu Değerlendirme - berduş - 27/06/2021
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 GSayiRE: Satır Ve Sütun Koşullu Değerlendirme - temre - 27/06/2021
(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
(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.