Access Tablosuna Yapılacak Kayıtları Sınırlama

smmustafa · 16 Aralık 2007

Merhaba Arkadaşlar

Yapmış olduğum bir access tablosuna veri girişi yapmak için form oluşturdum ama oluşan tabloya en fazla 1 veya 2 kayıt girilmesini istiyorum

yani tablodaki kayıt sayısını sınırlamak istiyorum o tabloya girilecek kayıt sayısı vereceğim sayıyı geçtiği zaman örneğin 2 kayıtla sınırlandırdığımız varsayarsak 3 kayıt yapılmaya çalışıldığı anda ya işlem yapmayacak yada bir uyarı verecek.

yardımlarınız için şimdiden teşekkür ederim.

Taruz · 17 Aralık 2007

Merhaba..

Kayıt sayısının belirsiz oluşu aklıma şu yöntemi getirdi..

Ben olsam:

Formun üstüne bir düğme yerleştirip tıklama olayına

Kod:

[LEFT]Private Sub Kaydı_Kapat_Click()
[COLOR=red]AllowAdditions = False[/COLOR]
End Sub[/LEFT]

yazardım.

Tabii bu yöntemi kullanmanız tablo/form yapınız ve en önemlisi bunu yapma amacınıza göre değişir.

Benzeri amaca yönelik forum içerisinde farklı seçeneklerde var sanıyorum..

Saygılar

Taruz · 17 Aralık 2007

Üstteki manuel yöntem oldu..

Şimdi aklıma başka bir şey geldi:

Formun üstüne bir tane metin kutusu yerleştirin, ismi kayıtsayısı olsun. Denetim kaynağını

Kod:

=Say([[COLOR=red][I]her kayıtta dolu olan bir alan[/I][/COLOR]])

yapın. Böylece kayıtları saymış olduk. İsterseniz biçimi görünmez de yapabilirsiniz.

Kayıt girdiğiniz son alanın güncelleme sonrası olayına

Kod:

Me.Requery

yazın.

En son olarakta formun güncelleme sonrası olayına

Kod:

If kayıtsayısı = [COLOR=red]3[/COLOR] Then AllowAdditions = False

yazın.

Artık kodda belirttiğiniz sayıdan fazla kayıt yapılamayacaktır. Bu kodda, = yerine >, < vb. işleçleride kullanabilirsiniz.

Evet, ben olsam bunu yapardım

smmustafa · 18 Aralık 2007

Sayın Taruz

Anlattığınız Şekilde denedim fakat yinede kayıt yapıyor
ben 1 diye sınırladım ama yeni açtığım kutucuğa 2 sayısı yazılıyor
yani olmadı.

Taruz · 18 Aralık 2007

Merhaba,

Çalışmanızı ekleyebilir misiniz?

yeni54 · 18 Aralık 2007

Sayın Taruz'un mantığı oldukça güzel.

Alternatif bir mantık da şöyle olabilir:

ilgili tabloya kontrol adında bir sayı alan eklenir.

örneğin tablomuza 3 adet kayıt girilebilsin şartını koymak için

Bu alanın "validation rule" özelliğine < 4 yazarız.

ilgili forma, bu tanımladığımız kontrol alanını görünmez olarak ekleriz.

formun before_update olayına

Kod:

Me!kontrol = Nz(DMax("kontrol", "deneme"), 0) + 1

ekleriz. (buradaki deneme tablomuzun ismi oluyor)

on error goto

gibi hata kontrolleri ile de uygun mesajı veririz.

Dolayısıyla bizim yapacağımız kontrolü veritabanına yıkmış oluruz.

Taruz · 18 Aralık 2007

Merhaba..

Çeşit olsun

Formun geçerli olduğunda ve güncelleme sonrası olay yordamına

Kod:

If Me.RecordsetClone.RecordCount = 1 Then
Me.AllowAdditions = False
MsgBox "Kayıt Limiti Doldu"
End If

yazın.

Bu sefer örnekde denedim

Hepsi güzel oldu.. Hangisini seçsek?

yeni54 · 18 Aralık 2007

hemen farklı bir yöntem daha bulmam lazım

smmustafa · 18 Aralık 2007

ilginize çok teşekkür ediyorum arkadaşlar

o zaman soruyu biraz zorlaştırayım

şimdi bir formun altında yine form olarak alt form oluşturdum fakat bu alt forma sadece o kayıt için tek bir giriş yapılsın istiyorum tabloya sınır değilde form görünümde girişe sınır koymak istiyorum

şöyle söylim ben bu iş için kayıt seçicilerini falan yok ediyorum yani yeni kayıt için herhangibi kontrol koymuyorum haliyle yeni kayıt yapılamıyor
ama gel gelelim maus tekerleği çevrildiği zaman kayıtlar arasında dolaşmaya başlıyor onu bir türlü engelleyemiyorum.

ErenTasarim · 26 Ağustos 2008

Çok Teşekkürler İşime Yaradı

herdogan · 27 Ağustos 2008

teşekkürler
Kritik bir durum olduğunu cevaplarınızdan farkedip hemen hatamı düzelttim