Access de girişlerinde veri doğrulama

| 11 Nisan 2012 |




MS Access veri doğrulama için bir kaç kod…

MS Acces de Form üzerindeki kayıt alanına bilgi girerken kullanıcılara listebox üzerinden ile seçim yaptırmak en iyi yöntemdir. Ancak bazı durumlarda bu mümkün olmayabilir. Veri bütünlüğü açısından önemli bu durum için bir kaç örnek ekliyorum.

Kriter: Alan adı içinde boşluk olmasın

Takip eden kod form üzerinde alana boşluk yazarak bilgi girişi yaptırmamaya yöneliktir. Afterupdate yani 007 adlı alan güncellendikten sonra InStr ile alanımızda boşluk olup olmadığına bakıyoruz. Eğer yoksa değer 0 olacak, sıfırdan farklı bir değerim için alanıma replace komutu ile içindeki tüm boşlukları alarak yeniden atama yapıyorum.

  • Private Sub Ctl007_AfterUpdate()
    A = InStr(1, Me![007], ” “)
    If A <> 0 Then
    MsgBox “Bu alanda boşluk kullanılmaz.”, vbCritical, “Uyarı”
    Me![007] = Replace(Me![007], ” “, “”, 1)
    End If
    End Sub

Kriter: Alan adı uzunluğunu sınırlama

Bu örnekte ise 010 adlı verime 8 haneden fazla veri girilmesini engelliyorum.

  • Private Sub Ctl010_AfterUpdate()
    If Len([010]) <> 8 Then
    MsgBox “Bu alan, 8 haneden fazla olamaz! ‘ 0 ‘ ATANIYOR”, vbCritical, “Uyarı”
    Me![010] = 0
    End If
    End Sub

Başka bir veri doğrulama ise Tabloda yer almayan ikinci bir geçici alan tanımlayıp eğer her iki alandaki veri birbirinin aynı ise giriş yaptırmaktır.

If [002].Value = [005].Value Then ifadesini kullanıyoruz.  [002] alanı ilk giriş yapılan alanım ve özelliklerinden biçim kısmına * yazıyorum. Bu diğer alana [005] e geçildiğinde [002] değerinin ekranda *** şeklinde görülmesini sağlıyor.005 alanımın özellikler sayfasından güncelleştirme sonrası  kısmına

  • Private Sub Ctl005_AfterUpdate()
  • If [002].Value <> [005].Value Then
  • me![005]=””
  • End If
  • End Sub

Kodunu ekliyorum.



Kategori: İp Uçları

Bora M. Deniz ()

Teknoloji, internet, ve bilişim gibi konularda paylaşımlarım ve yazılarımla 2011 den beri teknorapor.com dayım. Sosyal medya da yararlı bulduğunuz yazılarımı paylaşmanız dileklerimle... The author shares and writings IT, internet and technology news blog offering

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir