Tamam. Bu sefer tamamdır.
Peki bu kodda 8 ve bir günde 3 nöbetçiden fazla yazılanı geri nasıl aldırabiliriz. Yani dokuz nöbet yazmasın ve bir günde 3 nöbetçiden fazla yazılamasın.

Public Function Odaklaninca(ByRef ctl As control)

Dim NobetSay, GunSay As Byte

NobetSay = DCount(ctl.Name, "TblNobet", Nz(ctl.Name, "") & "<>'' and donem=" & CLng(Me.donem))

GunSay = Me.Toplam

If Nz(Controls(ctl.Name).Value, "") = "" And (NobetSay > 3 Or GunSay > 8) Then Controls(ctl.Name).Locked = True Else Controls(ctl.Name).Locked = False

If Nz(Controls(ctl.Name).Value, "") = "" And NobetSay > 3 Then MsgBox ("Bugün için 3 nöbetçi seçildi")

If Nz(Controls(ctl.Name).Value, "") = "" And GunSay >= 8 Then MsgBox ("aylık nöbet tutma sayısını doldurdu")



End Function

---

yani kod doğru ama 9 tane yazılabiliyor. Max 8 olması lazım

tblsabitler tablosunun sonuna sutun ekledim oradan belirleyebilirsiniz.

uyarıdan sonra tekrar tıkladığımızda 9 nöbet yazabiliyioruz. Nöbet sayısını 8 e ayarladım.

[img][/img]

Bu şekilde düzenleyin.

Bu konu tamamdır. Konu çözülmüştür.