Skip to main content

AccessTr.neT


tc nosu olmayan kişilerin girişi

tc nosu olmayan kişilerin girişi

Çözüldü #1
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
.rar olumler_5.rar (Dosya Boyutu: 80,53 KB | İndirme Sayısı: 14)
Cevapla
Çözüldü #2
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
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla
Çözüldü #3
Img-grin)

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ı...
İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #4
orjinali
If IsNull(Me.tcno) Or Me.tsmno <> 0 Then
idi
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla
Çözüldü #5
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?
İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #6
Çok teşekkür ederim. Tamamdır. Bu sorun da çözülmüştür.
Son Düzenleme: 28/08/2011, 03:51, Düzenleyen: yturan.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task