2 - https://accesstr.net/konu-yapilmamasi-ge...talar.html konusunu incelemenizi öneririm tablo yapınız bu hataları içeriyor ilerde sorun çıkabilir
3 - çalışmanızda ücret sınırlarını belirleyen değerler özel bir tabloya kaydedilseydi daha iyi olurdu, ilerde bu değerler değiştiğinde kodla oynamak yerine verilerin olduğu tabloyu değiştirmeniz yeterli olurdu.
Not: tabladaki ücret alanının geçerlilik kuralı kısmındaki ifadeyi sildim
aşağıdaki kod SAYISI alanının güncelleştirme sonrası olayına ait
dilerim işinize yarar
iyi çalışmalar
Private Sub SAYISI_AfterUpdate()
xGr = CLng(Me.SAYISI)
zGr = Switch(xGr < 21, 12#, xGr < 51, 13.5, xGr < 101, 17.3, xGr < 251, 19.6, xGr < 501, 23#, xGr < 1001, 26.6, xGr < 2001, 30.3)
If xGr > 2000 Then zGr = (Fix((xGr - 1) / 1000) - 1) * 4 + 30.3
Me.ÜCRETİ = zGr
End Sub
