Hata mesajı

[sdegirmenci]

Merhaba;
Ekteki dosyamda UserForm üzerindeki tarih formatlı TextBox larda "Teminat geçerlilik tarihi" , "Teminat tarihi" nden daha önde bir tarih ise hata mesajı vermekte; Eğer "Teminat Geçerlilik tarihi " kutusuna tarih yerine "Süresiz" yazılması yada boş bırakılması halinde uyarı vermeden Sub dan çıkmasını istiyorum, çok denemeler yaptım, olmadı, yardımcı olabilirseniz çok sevinirim. Saygılarımla

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyiniz.

Private Sub teminatgeçerliliktarihi_AfterUpdate()
    If UCase(Replace(Replace(teminatgeçerliliktarihi, "ı", "I"), "i", "İ")) = "SÜRESİZ" Then Exit Sub
    On Error Resume Next
    If CDate(teminatteminattarihitxt) > 0 And CDate(teminatteminattarihitxt) > CDate(teminatgeçerliliktarihi) Then
    MsgBox "TEMİNAT GİRİŞ  TARİHİ  GEÇERLİLİK TARİHİNDEN ÖNDE OLAMAZ.", vbExclamation, "Dikkat !"
    teminatgeçerliliktarihi = ""
    Exit Sub: End If
    teminatgeçerliliktarihi = Format(teminatgeçerliliktarihi, "dd/mm/yyyy")
End Sub

 

[sdegirmenci]

Merhaba;
Korhan Hocam, Gecenin bu saatinde ilginizden dolayı çok teşekkür ediyorum, İstediğim oldu, Tekrar teşekkür ediyor hayırlı geceler diliyorum.