- Katılım
- 22 Mart 2007
- Mesajlar
- 45
- Excel Vers. ve Dili
- 2003
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.
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.