....
....
Select Case Me.Izin_Listesi.Column(8)
Case "Yıllık İzin"
FrmAdi = "FrmYillikİzin"
Case "Rapor"
FrmAdi = "FrmRapor"
Case "Mazeret İzni"
FrmAdi = "FrmMazeretİzni"
End Select
DoCmd.OpenForm FrmAdi, acNormal
....
....
diğer kodları Case içine yazılmamamlıydı
