Dim GKriter As String
Dim GKademe As String
If IsNull([YENİ KADEME]) Or Me.YENİ_KADEME = "" Then
MsgBox ("Yeni Kademeyi Seçiniz")
Exit Sub
ElseIf IsNull([KAYIT TÜRÜ]) Or [KAYIT TÜRÜ] = "" Then
MsgBox ("Kayıt türünü seçiniz")
End If
GKriter = [KAYIT TÜRÜ].Column(1) & IIf([% 5 - PEŞİN ÖDEME İSKONTOSU] = "-1", " + %5", "") & IIf([% 5 - ÖĞRETMEN İSKONTOSU] = "-1", " + %5", "") & IIf([% 5 - KARDEŞ İSKONTOSU] = "-1", " + %5", "") & IIf([% 5 - MEV MEZUNU İSKONTOSU] = "-1", " + %5", "") & IIf([% 5 - TOPLU KAYIT İSKONTOSU] = "-1", " + %5", "")
GKademe = Me.[YENİ KADEME].Column(1)
Me.TOPLAM_ÜCRET = Dlookup ("[ÜCRET]", "ÜCRET", "[KAYIT TÜRÜ]='" & GKriter & "' And [KADEME]='" & GKademe & "'")Bu kayıt durumu olmadan yapılan hesaplama. Seçilecek iskontoya göre hesaplama yenilenir.
Ayrıca ugulamadaki hataları mutlaka düzeltiniz.
Yapılmaması gereken ölümcül hatalar.
