AccessTr.neT

(25/06/2020, 15:45)berduş yazdı: [ -> ]hangi koşullarda kilitleniyor?
siz çıkılan metin kutusuna dönüş yapsın dediğiniz için ve tarihi değiştirene yada metin kutusunu boşaltana kadar dönüp durur
böyle bir durumda alandaki veriyi silip çıkmayı yada tarihi değiştirmeyi denediniz mi?

hocam tarihi değiştirip normal olması gereken şekline getirdiğim halede kilitleniyor.

son_tarih çıkış olayı

Private Sub son_tarih_Exit(Cancel As Integer)

If (Len(ilk_tarih & "") > 0 And Len(son_tarih.Text & "") > 0) And ilk_tarih > son_tarih Then

MsgBox " ilk tarih son tarihten büyük olamaz"

DoCmd.CancelEvent

Me.ActiveControl.SetFocus

Exit Sub

End If

TmListeGncl

End Sub

ilkTarih çıkış olayı

Private Sub ilk_tarih_Exit(Cancel As Integer)

If (Len(ilk_tarih.Text & "") > 0 And Len(son_tarih & "") > 0) And ilk_tarih > son_tarih Then

MsgBox " ilk tarih son tarihten büyük olamaz"

DoCmd.CancelEvent

Me.ActiveControl.SetFocus

Exit Sub

End If

TmListeGncl

End Sub

Hocam verdiğiniz kodları da denedim sonuç

---

ilk tarihi giriyorum sonra ikinci tarihi bilerek küçük giriyorum hata alıyorum
daha sonra son tarihi siliyorum ve son tarihi tekrar giriyorum yine hata alıyorum

artık bu da olmazsa benden pes

Private Sub son_tarih_Exit(Cancel As Integer)

If Len(ilk_tarih & "") > 0 And Len(son_tarih.Text & "") > 0 Then

    If CLng(ilk_tarih.Value) > CLng(son_tarih.Text) Then

        MsgBox " ilk tarih son tarihten büyük olamaz"

        DoCmd.CancelEvent

        Me.ActiveControl.SetFocus

        Exit Sub

    End If

End If

TmListeGncl

End Sub

Private Sub ilk_tarih_Exit(Cancel As Integer)

If (Len(ilk_tarih.Text & "") > 0 And Len(son_tarih & "") > 0) Then

    If CLng(ilk_tarih.Text) > CLng(son_tarih.Value) Then

        MsgBox " ilk tarih son tarihten büyük olamaz"

        DoCmd.CancelEvent

        Me.ActiveControl.SetFocus

    Exit Sub

    End If

End If

TmListeGncl

End Sub

Hocam elinize sağlık şimdi oldu teşekkür ederim.

Iyi çalışmalar)