AccessTr.neT

tcno alanından çıkarken boş ise günün tarihi ve saati ile ilgili bir kayıt oluştursun istiyorum.

Örn: X2408123045 gibi...

Bunun için şu 04_olenler Altformunun tcno kısmına kodu yazıyorum ama olmuyor.. Nedendir? Ben nerde yanlış yaptım?

Private Sub TcNo_Exit(Cancel As Integer)
If IsNull(Me.tsmno) Or Me.tsmno <> 0 Then

Else
Me.TcNo = "X" & Format(Date, "mmdd") & Format(Time, "hhmmss")
End If
End Sub

kodu aşağıdaki şekile çevirin.

If IsNull(Me.TcNo) Or Me.TcNo = "" Then
Me.TcNo = "X" & Format(Date, "mmdd") & Format(Time, "hhmmss")
End If

)

If IsNull(Me.tsmno) Or Me.tsmno <> 0 Then

Eğer Tsmno boşsa veya 0 değilse demişsiniz. Yani boşsa da doluysa da durum aynı demiş oluyorsunuz... Bu durumda else hiç işlemez tabii. Kaldı ki sıfırın orada olması pek de mümkün değil, en doğrusu yandemir'in yazdığı gibi boşsa "" biçimi olmalı...

orjinali
If IsNull(Me.tcno) Or Me.tsmno <> 0 Then
idi

Orjinali derken, bu kodun bilmediğim bir geçmişi mi var Murat? Bu konunun ilk mesajında yukarda yazdığım gibi yer alıyor?

Çok teşekkür ederim. Tamamdır. Bu sorun da çözülmüştür.