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
Yeni izin girişi butonunun kodlarını şu şekilde değiştiriniz.
İnadına, ille de Accesstr.net...