+- 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ığı: Otomatik İş Planı Tarihi (/konu-otomatik-is-plani-tarihi.html)
Sayfalar:
1
2
Cvp: Otomatik İş Planı Tarihi - siyahca - 13/03/2016
çok teşekkür ederim.Ancak Ben bir tablo daha oluşturmuştum.Orada tüm günler var.Günleri oradan seçmesini istiyordum.
Cvp: Otomatik İş Planı Tarihi - ozanakkaya - 13/03/2016
Function UygunIsGunu(GeciciTarih As Date, Zorluk As Integer) As Date
Dim i As Long
i = 1
Do While i <= 3
If Weekday(GeciciTarih) <> 1 And Weekday(GeciciTarih) <> 7 And Dsum ("[ZORLUK_PUAN]", "Tablo1", "CALISILACAK_HAFTA = " & Format(GeciciTarih, "\#mm\/dd\/yyyy\#")) + Zorluk <= 4 And DCount("*", "tbl_tatil", "tatilgunu = " & Format(GeciciTarih, "\#mm\/dd\/yyyy\#")) = 0 Then
i = i + 1
GeciciTarih = DateAdd("d", 1, GeciciTarih)
Else
Exit Do
End If
Loop
Do While Weekday(GeciciTarih) = 1 Or Weekday(GeciciTarih) = 7 Or Dsum ("[ZORLUK_PUAN]", "Tablo1", "CALISILACAK_HAFTA = " & Format(GeciciTarih, "\#mm\/dd\/yyyy\#")) + Zorluk > 4 Or DCount("*", "tbl_tatil", "tatilgunu = " & Format(GeciciTarih, "\#mm\/dd\/yyyy\#")) <> 0
GeciciTarih = DateAdd("d", 1, GeciciTarih)
Loop
UygunIsGunu = GeciciTarih
End FunctionCvp: Otomatik İş Planı Tarihi - siyahca - 13/03/2016
Çok teşekkür ederim ozan bey. Artık haftasonu ve diğer belirttiğim tatil günlerinide atamıyor.
sorunum çözüldü