Bir alana girilecek veri adedini sınırlama

30/12/2010, 17:39

misilak

Merhaba. Ekteki öğrenci kayıt programında bulunan salon kısmında bir salona belli adette öğrenci kayıt yapıldığı zaman uyarı vermesini veya kaydı sınırlamasını istiyorum. Yani mesela A sınıfı için kontenjanı olan 30 öğrencilik kayıt yapınca 31. kaydı engellesin ve uyarı versin.
30/12/2010, 17:53

alpeki99

Kaydetme işleminden önce ya da sınıf seçme işlemi aşamasında :


mevcut_kontenjan = DCount("kimlik","salon")

If mevcut_kontenjan = 30 Then
Msgbox "30 kişilik kontenjan dolmuştur
Else
'
' Yapılacak işlemler kayıt vs. kodları buraya
End If
30/12/2010, 17:55

Hayri16

Sayın misilak;
Ben bilebildiği kadarıyla işin mantığını anlatayım. Vaktim şu an dar olduğu için programınızı düzeltemiyorum.
Önce DCount fonksiyonuyla son girilen salonu Tablo1 de saydırıyorsunuz. Bunu salon tablosundan kontenjanla karşılaştırıyorsunuz. Küçük, eşit ve büyük olmasına göre istediğiniz mesajları veya işlemleri yaptırırsınız.
Bu Kontrolü Kaydet tuşuna basıldığı anda başka işlem yaptırmadan yapmalısınız.
Bir de hem tablonuz Tablo1 hem de Formunuzun adı Tablo1 formunuzu bari Form1 yapın. Saygılar .
30/12/2010, 18:58

misilak

Sayın alpeki99;

Çok teşekkür ediyorum yardımınız için. Peki bir üst aşama olarak bu sınırlamayı formda bulunan seansı da işe katarak belirlemek mümkün müdür. Yani saat 11:00 seansında A sınıfı 30 kişi oldu diyelim. Ancak 13:00 seansında hiç kimse yok ve 13:00 seansı için yine A sınıfına kayıt alabilirmiyiz. Seanslar belli ve liste olarak seçtirilebilir.9:00, 11:00, 13:00, 15:00, 16:30 şeklinde olacak
30/12/2010, 19:31

alpeki99

Dcount komutunun üçüncü parametresi yani şartlar/kriterler belirlenecek.

Formunuzun üstünde Seans isimli bir metin kutusu olduğunu varsayalım. Seans'ta yazılan değere göre sayım yaptırabilirsiniz.


mevcut_kontenjan = DCount("kimlik","salon","seans='" & Me.Seans & "'" )

If mevcut_kontenjan = 30 Then
Msgbox "30 kişilik kontenjan dolmuştur
Else
'
' Yapılacak işlemler kayıt vs. kodları buraya
End If
04/01/2011, 12:57

misilak

çok faydalı oldu. yardımınız için teşekkürler