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.