Onay kutularının Denetim Kaynaklarını boşaltır ve formunuzun Açıldığında olayında bu kodu kullanırsanız gerekli kontroller yapılıp onay kutuları güncellenir..
Kod:
Dim a, b, c As String
a = DCount("*", "TBL_GDATA")
b = DCount("DONEM", "TBL_GDATA")
c = DCount("ID", "TBL_GDATA")
If a > 0 Then Check32 = -1
If a = b Then Check36 = -1
If a = c Then Check38 = -1