+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: açılan kutudaki id ile yeni form açma (/konu-acilan-kutudaki-id-ile-yeni-form-acma.html)
açılan kutudaki id ile yeni form açma - mhmtogz - 16/08/2014
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 Ifnasıl yeni kayıt formu açılmasını sağlayabilirim ve personel seçilmediği zaman msgbox uyarı vermiyor ?
Cvp: açılan kutudaki id ile yeni form açma - mehmetdemiral - 16/08/2014
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
Cvp: açılan kutudaki id ile yeni form açma - mhmtogz - 17/08/2014
elinize sağlık teşekkür ederim...