+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: tc nosu olmayan kişilerin girişi (/konu-tc-nosu-olmayan-kisilerin-girisi.html)
Sayfalar:
1
2
tc nosu olmayan kişilerin girişi - yturan - 27/08/2011
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
Cvp: tc nosu olmayan kişilerin girişi - Yandemir - 27/08/2011
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
Cvp: tc nosu olmayan kişilerin girişi - mehmetdemiral - 28/08/2011
)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ı...
Cvp: tc nosu olmayan kişilerin girişi - Yandemir - 28/08/2011
orjinali
If IsNull(Me.tcno) Or Me.tsmno <> 0 Then
idi
Cvp: tc nosu olmayan kişilerin girişi - mehmetdemiral - 28/08/2011
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?
Cvp: tc nosu olmayan kişilerin girişi - yturan - 28/08/2011
Çok teşekkür ederim. Tamamdır. Bu sorun da çözülmüştür.