Yeni izin girişi butonunun kodlarını şu şekilde değiştiriniz.

Private Sub KMTYENI_Click()

If Me.AKPERSONEL = "*" Then

MsgBox "'Personel Seç' kutusundan yeni izin kaydi için seçim yapınız !", vbOKOnly + vbInformation, "Kullanici Hatasi'"

Else

DoCmd.OpenForm "F_IZIN", acNormal

DoCmd.GoToRecord acForm, "F_IZIN", acNewRec



DoCmd.Close acForm, "F_IZINLER"

End If



End Sub