Skip to main content

AccessTr.neT


açılan kutudaki id ile yeni form açma

açılan kutudaki id ile yeni form açma

Çözüldü #1
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 ?
.rar PERSONEL.rar (Dosya Boyutu: 130,47 KB | İndirme Sayısı: 19)
Son Düzenleme: 16/08/2014, 00:55, Düzenleyen: mhmtogz.
Cevapla
Çözüldü #2
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
İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #3
elinize sağlık teşekkür ederim...
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da