Skip to main content

AccessTr.neT


Liste Kutusunda Listelenen Verilerin Süre Ortalaması

Liste Kutusunda Listelenen Verilerin Süre Ortalaması

#19
(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.
itfaiyeci_26, 11-04-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#20
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
Cevapla
#21
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]
itfaiyeci_26, 11-04-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 25/06/2020, 16:25, Düzenleyen: itfaiyeci_26.
Cevapla
#22
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
Cevapla
#23
Hocam elinize sağlık şimdi oldu teşekkür ederim.
itfaiyeci_26, 11-04-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#24
Iyi çalışmalar)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da