(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.