tc nosu olmayan kişilerin girişi - Baskı Önizleme +- 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. |