AccessTr.neT

Merhaba arkadaşlar.

Şöyle bir sorunum var. F_IZINLER formumda PERSONEL açılan kutusunda tüm personel isimleri sıralanıyor, Personeli kutudan seçip yeni izin girişi dediğimde yeni kayıt açmıyor. mevcut kaydı açıyor.
Yeni izin girişi butonunda kullandığım;

If IsNull(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, , IIf(Me.AKPERSONEL.Column(1) = "Tümü", Null, "[IZINID]=" & Me.AKPERSONEL), IIf(Me.AKPERSONEL.Column(1) = "Tümü", acFormAdd, acFormEdit), acWindowNormal



DoCmd.Close acForm, "F_IZINLER"

End If

nasıl yeni kayıt formu açılmasını sağlayabilirim ve personel seçilmediği zaman msgbox uyarı vermiyor ?

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

elinize sağlık teşekkür ederim...