Tarih karşılaştırma

[mrkync]

Arkadaşlar userformda textbox3 de 24.04.2013 örneği gibi tarih var ve textbox10'da da aynı şekilde bir tarih var. Benim isteğim ise şu; textbox10 a tarih girildiğinde textbox3 bakarak eğer tarih textbox3'den önceki bir tarih ise önce bir tarih giremezsiniz diye uyarı vermesi. Bu arada tarih girme işlemini aşağıdaki kod ile yapıyorum.

Şimdiden çok teşekkür ederim.

Private Sub textbox10_Change()
If UserForm1.TextBox10 <> "" Then
If Len(TextBox10) = 2 Then
TextBox10 = Format(TextBox10, "0#"".")
End If
If Len(TextBox10) = 5 Then
TextBox10 = Format(TextBox10, "0#"".""##"".")
End If
If Len(TextBox10) = 10 Then
TextBox10 = Format(TextBox10, "0#"".""##"".""####")
End If
End If
End Sub

 

[Necdet]

Merhaba,

Tam denemedim, aşağıdaki kodları dener misiniz?

Private Sub TextBox10_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox10.Value = Format(TextBox10.Value, "dd.mm.yyyy")
    
    If CDate(TextBox10.Value) < CDate(TextBox3.Value) Then
        MsgBox "Küçük Tarih Giremezsiniz"
        TextBox10.Value = ""
        TextBox10.SetFocus
    End If
    
End Sub

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox3.Value = Format(TextBox3.Value, "dd.mm.yyyy")
End Sub

 

[mrkync]

çok teşekkürler işimi gördü

 

[mrkync]

Merhaba vermiş olduğunuz kodlar çalışıyor ancak küçük bir sıkıntı var. Örneğin textbox3 boş olup da textbox10'a tıklayınca textbox3 boş olduğu için hata veriyor hata yeri olarak da

   If CDate(TextBox10.Value) < CDate(TextBox3.Value) Then

burayı gösteriyor. Bunu nasıl düzeltebiliriz?

 

[mrkync]

Arkadaşlar bir yardım edebilir misiniz takıldım kaldım.

 

[suleyman242]

Arkadaşlar bir yardım edebilir misiniz takıldım kaldım.

userform initalize kısmına textboxa bir değer ver
zaten bu değeri sonra değiştirirsin
yada

on error resume next

kodunu kod başlangıcına yaz
for next döngüsü yoksa

on error goto hata
.
.
.
.
hata:
'hata durumunda ne yapmasını istiyorsan onu yaz

 

[mrkync]

teşekkürler