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.
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
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 .
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
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
çok faydalı oldu. yardımınız için teşekkürler