Hocam selamlar. Yardımlarınız için teşekkür ederim. Benim burada yapmak istediğim biraz farklı idi. Sizin yaazdığınız kod üyelik tarihi ile karılaştırma değil. Aidatın yatırıldığı tarihle karşılaştırma olmuş. Sizin yazdığınız kodu geliştirerek, İf if döngüsüni kullanınca amacıma ulaştım.Ancak küçük bir ayrıntıyı bilemiyorum Yaptıklarımı şöyle açıklayayım.

Tarih karılaştırmasını yapamayınca bende 2 farklı tarihal ve tarihal1(kırmızı çerçeveli) diye metin kutuları oluşturup, bunlara sizin oluşturduğunuz tdsharun (kırmızı çerçeveli) metin kutucuğundan ayları ve yılları yazdırdım

=Month([tdsharun]) =Year([tdsharun]) ile.

Sonrasında bu alınan değerlerle ilgili işlemi yapacak şu if döngüsünü b1,b2,b3... kutucuklarının olay yordamına Enter olarak yazdım.
--------------------------------
Dim Kriter1 As String

Kriter1 = IIf(Month(Date) >= 1, 5, 0)
If tarihal1 < 2009 Then
Me.b1.Value = Kriter1
ElseIf tarihal1 = 2009 And tarihal >= 1 Then
Me.b1.Value = 0
Else
Me.b1.Value = Kriter1
End If
---------------------------------
Bir yıl kullanılması için hazırladım bu programı. Çok yıllık nasıl yaparım bilemiyorum.
Buradaki amacım eğer üye bu yılda ve yeni üye olmuşsa üyelik tarihinden sonraki ay ödemeleri başlasın ve borç hanesine, bulunduğu aya göre 0 yada 5 TL yazsın. Bunu başardım. Ancak b1,b2,b3... kutucuklarının olay yordamına Enter olarak yazdığım için her seferinde bunların aktif olması için tıklamak zorundayım. Benim istediğim form açılır açılmaz bunlar otomatik gelsin. Ve ben gerekli düzenlemeyi yaptıktan sonra kaydet ile kaydedilsin.
Bu konuda yardımcı olursanız sevinirim. Teşekkür ediyorum...