PERSONEL_IZIN_BILGILERI formuna aşağıdaki kodu ekle

Sub Hesapla()

Dim sure As Integer

    If IsNull([ise giris tarihi]) Then

    Hak_Ettiği_İzin = ""

    Exit Sub

    Else

sure = Diff2Dates("y", [ise giris tarihi], [tarihbugun])

    End If



        Select Case sure

            Case 1 To 5

                Hak_Ettiği_İzin = "18"

            Case 6 To 15

                Hak_Ettiği_İzin = "24"

            Case Is > 16

                Hak_Ettiği_İzin = "27"



        End Select

End Sub

Aynı formun Geçerli Olduğunda olayına ve "ise_giris_tarihi" metin kutusunun Güncelleştirme Sonrasında olayına aşağıdaki kodu ekle

Call Hesapla