Sanırım gözünüzden kaçtı ama sayın diker "Yıl kısmını nasıl silebilirim" demiş. Yani tam tersi
Yukardaki tarihi girdiğiniz "ilkcalistirmatar" metin kutusunun güncelleme sonrasında olay yordamını şu şekilde düzeltiniz:
Kod:
Private Sub ilkcalistirmatar_AfterUpdate()
Dim a, b, c, d
Dim MyResult, MyDate
metin = ilkcalistirmatar.Value
a = Day(ilkcalistirmatar)
b = Month(ilkcalistirmatar)
c = Format(a, "00")
d = Format(b, "00")
Me.ilkcalkisa = c & "." & d
MyDate = ilkcalistirmatar.Value
MyResult = Format(MyDate, "mm/dd")
ilkcalkisa.Value = MyResult
End SubDaha sonra kayıt değiştiğinde de alanın doğru veriyi göstermesi için yukardaki kodları formun "geçerli olduğunda" olayına da yerleştirin.
Kolay gelsin. Yapamazsanız yazın, örnek üzerinde yapayım...
