AccessTr.neT

Tam Versiyon: Liste Kutusunda Listelenen Verilerin Süre Ortalaması
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4
(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

[Resim: do.php?img=10366]
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)
Sayfalar: 1 2 3 4