(26/05/2011, 16:30)saslan33 yazdı: teşekkürler sledgeab elinize sağlık
2. dediğim konuda yapılabilinirmi?

Aşağıdaki kodu ekle

Sub SureEkle()

Select Case Me.Kimlik.Value

    Case "1"

        Me.Süresi = "90"

    Case "2"

        Me.Süresi = "90"

    Case "3"

        Me.Süresi = "90"

    Case "4"

       Me.Süresi = "50"

    Case "5"

       Me.Süresi = "50"

    Case "6"

       Me.Süresi = "50"

    Case Else

       Me.Süresi = ""

End Select

End Sub

Tarihi metin kutusunun girildiğinde olayınada aşağıdakini ekle

Call SureEkle