AccessTr.neT
Combobox İlk Değer Seçili Glmesi Ve Seçim Yapılmış Gibi Davranması - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Combobox İlk Değer Seçili Glmesi Ve Seçim Yapılmış Gibi Davranması (/konu-combobox-ilk-deger-secili-glmesi-ve-secim-yapilmis-gibi-davranmasi.html)

Sayfalar: 1 2

RE: Combobox İlk Değer Seçili Glmesi Ve Seçim Yapılmış Gibi Davranması - SeferŞANLI - 21/11/2021

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

RE: Combobox İlk Değer Seçili Glmesi Ve Seçim Yapılmış Gibi Davranması - lemoncher2 - 21/11/2021

tblsabitler tablosunun sonuna sutun ekledim oradan belirleyebilirsiniz.

RE: Combobox İlk Değer Seçili Glmesi Ve Seçim Yapılmış Gibi Davranması - SeferŞANLI - 21/11/2021

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

RE: Combobox İlk Değer Seçili Glmesi Ve Seçim Yapılmış Gibi Davranması - lemoncher2 - 21/11/2021

[img][Resim: Ekran-goruntusu-2021-11-21-225345.jpg][/img]

Bu şekilde düzenleyin.

RE: Combobox İlk Değer Seçili Glmesi Ve Seçim Yapılmış Gibi Davranması - SeferŞANLI - 21/11/2021

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