syn huseyin arslan;
sürekli güncel olmasını istiyorum demişsin zaten öyle sen bugunun tarihine göre örnek üzerinde çalıştığın için sürekli sonuçlar 30-90-180-360 şeklinde değişecektir zaten.yani standart kaldığı felan yok.Denemek için sistem tarihini ileri bi tarihe al ve programını yeniden çalıştır bak bakalım aynı mı kalacak.Değiştiğini göreceksin.Eğer bugunün tarihine göre işlem yaptıracaksan 1-3-6-12 ay şeklindeki periyotlara göre neden hesaplatıyorsun.18.02.2013 tarihinden bitiş tarihini çıkartmasını istiyorsan eğer anladığım kadarıyla girilen bir kaydın üye kayıt tarihini manuel elle değiştireceksen uye başlangıç tarihi kutusunun güncelleştirme sonrası olayına;

Select Case uyelikpaketi.ListIndex

Case 0

Me.Metin91.Value = Me.uyebaslangictarihi + 30

Case 1

Me.Metin91.Value = Me.uyebaslangictarihi + 90

Case 2

Me.Metin91.Value = Me.uyebaslangictarihi + 180

Case 3

Me.Metin91.Value = Me.uyebaslangictarihi + 365

End Select

bu kodu yazman yeterli olacaktır.Ama benim anlamadığım üyenin "üyebaşlangıçtarihi" değişmez.Üyelik biter ve yeniden aktifleştirme yoluna gidersin.Bu şekilde yapmak istersende uygulamanın yapısını değiştirmemiz gerekir.