(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