(03/05/2023, 10:04)berduş yazdı:(02/05/2023, 16:49)atkbursa yazdı: personel takip programında no alanına veri girince 11 haneye uygun değilse sistem uyarı veriyor.herhangi bir uyarı vermiyor!
çalışmanızın mantığını da anlamadım
1 - açılır kutu var tcno oradan seçilebilir, açılır kutuda zaten kayıtlı tcnolar olduğundan yanlış giriş olamaz
2 - açılır kutudan seçilmeyecekse neden açılır kutu var
3 - neden tcno girilir girilmez yeni kayıt ekleme devreye giriyor
Merhabalar
Tc no alanının
Tıkladığında olayında
Private Sub tcno_Click()
Me.adisoyadi.Value = Me.tcno.Column(1)
End Sub
Çıkıldığında olayında
Yeni kayıt makrosu var
Barkod okuyucuyla tckimlik barkodu okutulduğunda sistem açılan kutu bölümünden
Tc doğruysa yani personel listesinde kayıtlı ise adı soyadı bölümüne kişinin adını getiriyor tarih ve saat bölümünde anın tarihi ve saatini getiriyor. Ve yeni kayda geçiyor yeni bir giriş için kayıt bekliyor.
Şayet : girilen tcno listede yoksa tcyi ekliyor fakat ad soyad boş geliyor bu sorun olmuyor “ilgisiz bir tc girilmiş oluyor “sorguda boş isimler göz ardı ediliyor”
Şayet tcno yerine girilen yanlış barkod okutulduğunda tcnin uzunluğu 11 karekteri aşıyorsa
Geçerlilik metni uyarısı çıkıyor ve 2 sefer Esc ye basılarak hatalı barkod siliniyor ve doğrusu giriliyor.
Buraya kadar sorun yok.
Bu barkod okuyucu güvenlik noktasında duruyor ve yanlış giriş halinde 2 kere Esc ile kaydı düzeltiyor.
Şayet güvenlikçi yerinde değilse yanlış barkod okutan personel bilgisayara müdahale edemediği için giriş kaydını tamamlayamıyor. “2 kez Esc işlemi nedeniyle”
Barkod hatalı ise “uzunluk yönünden” sistem barkodu kabul etmeyip tcno alanında kalsın ki
Bilgisayarın başında kimse olmasa dahi 11 haneli bir barkod girince ancak kaydı tamamlayabilsin 11 haneli barkod girilmez ise tcno alanından çıkış yapamasın ve geçerlilik uyarısı gelmesin “gelirse 2 kez Esc gerekiyor”
Özetle : Veri tabanı form ekranı ve barkod okuyucu açık olduğu sürece bilgisayar başında kimse olmasa dahi personel barkod okutup geçebilsin
selamlar iyi çalışmalar
