periyodik iş takibi yapmak istiyorum

[esmakaraman]

herkeze iyi çalışmalar 2 aydır access ile uğraşıyom bir periyodik iş takip programı oluşturdum .programın işleyişi kısaca ana ekrandan bir iş belirleniyor ve buna haftalık veya aylık olarak iki tane onay kutusu var hangisi tıklanırsa o periyotta iş önüme geliyor benim sorum ise; programda şu komut satırlarını kullandım

If h.Value = True Then a1 = İlkPazarGünü(DateAdd("d", 0, [t]))
If h.Value = True Then a2 = İlkPazarGünü(DateAdd("d", 7, [t]))
If h.Value = True Then a3 = İlkPazarGünü(DateAdd("d", 14, [t]))
If h.Value = True Then a4 = İlkPazarGünü(DateAdd("d", 21, [t]))
If h.Value = True Then a5 = İlkPazarGünü(DateAdd("d", 28, [t]))
If h.Value = True Then a6 = İlkPazarGünü(DateAdd("d", 35, [t]))
If h.Value = True Then a7 = İlkPazarGünü(DateAdd("d", 42, [t]))
If h.Value = True Then a8 = İlkPazarGünü(DateAdd("d", 49, [t]))
If h.Value = True Then a9 = İlkPazarGünü(DateAdd("d", 56, [t]))
If h.Value = True Then a10 = İlkPazarGünü(DateAdd("d", 63, [t]))
If h.Value = True Then a11 = İlkPazarGünü(DateAdd("d", 70, [t]))
If h.Value = True Then a12 = İlkPazarGünü(DateAdd("d", 77, [t]))
If h.Value = True Then a13 = İlkPazarGünü(DateAdd("d", 84, [t]))
If h.Value = True Then a14 = İlkPazarGünü(DateAdd("d", 91, [t]))
If h.Value = True Then a15 = İlkPazarGünü(DateAdd("d", 98, [t]))
If h.Value = True Then a16 = İlkPazarGünü(DateAdd("d", 105, [t]))
If h.Value = True Then a17 = İlkPazarGünü(DateAdd("d", 112, [t]))
If h.Value = True Then a18 = İlkPazarGünü(DateAdd("d", 119, [t]))
If h.Value = True Then a19 = İlkPazarGünü(DateAdd("d", 126, [t]))
If h.Value = True Then a20 = İlkPazarGünü(DateAdd("d", 133, [t]))


bu şekil bana periyodik veriyor.eğer farkettiyseniz bir sınırı var ama ben sınırsız olarak bana bu işi vermesini istiyorum nasıl yapabilirim.burda a1,a2,a3.. diye giden text boxlarım var bunlara yazdırıp sorguyla çektiriyom.acaba döngümü kullanmam gerekiyor eğer öyle bi döngü varsa komut satırını yazabilirmisiniz.yada başka bir yol ile olabilirmi?yardımcı olursanız çok memnun olurum.herkese şimdiden teşekkürler.

 

[esmakaraman]

arkadaşlar olumlu veya olumsuz bir cevap yazarsanız ona göre textbox sayılarını çoğaltıp süreyi uzatırım.sizlerden bir fikir istiyorum bana çok acele gerekli bu program.

 

[karaayhan]

küçük bir örnek eklerseniz veri olmasa bile çözümü daha kolay bulursunuz şimdi kimse oturup bu kodları içeren örnekler yapmaz ne dersiniz?

 

[esmakaraman]

teşekkürler sayın karaayhan formda yeni olduğum için bazı kuralları bilmiyorum eksikliği gördüğünüz ve uyardığınız için tekrar teşekkür ederim.yoksa cevap yazacaklar diye çok beklerdim.dosyamı gönderiyorum .

 

[esmakaraman]

arkadaşlar çok karışık mı oldu bilmiyorum ne olur bir şey yazın formda yeniyim farklı birşeymi yapmam gerekiyor.allah aşkına olumlu veya olumsuz bir fikir verin.

 

[akd]

Merhaba sayın esmakaraman,
Çalışmanı çok karmaşık hale getirmişsin,
hatırlatacak konuları yan yana yazdıktan sonra son kısma birtane hatırlatma tarihi diye sutun açın,
Sorguyada beetwen founksiyonunu uygulayın,
forma başlangıç tarihi ve bitiş tarihi diye iki tane metin kutusu ekleyin,
bundan sonra istediginiz aralıktaki iş takibini yapabilirsin.
İyi çalışmalar...

 

[esmakaraman]

sayın akd dediklerinizi anlayamadım.eğer size zahmet olmazsa komut satırlarını yazabilirmisinz.uygulamam dediğiniz gibi çok karışık belki daha basit bir yolu vardır. yinede çok teşekkürler.iyi çalışmalar

 

[esmakaraman]

arkadaşlar sizden bir ricam olacak a1 den başlayıp a20 ye kadar periyot veriyorum tabiki a20 de bitiyor.eğer a20 tarihi bugünün tarihi ise a1'den itibaren aynı periyotta yazdırma ihtimalim varmı .yani en başa dönüp önceki tarihleri silip yeni tarihe göre yazacak .böyle bir döngü yazabilirmisiniz.buna çok ihtiyacım var.iyi çalışmalar