If donem = Dlookup ("[donem]", "[tblana]", "[donem]=forms![frmanaek]!donem") Then
MsgBox "Bu ay daha önce Girilmiştir. Lütfen tekrar deneyiniz!", vbCritical, "Dikkat"
me.undo
End If
bu kod açılan kutuda bir işe yaramıyor daha doğrusu undo kodu işe yaramıyor.tabloya boş kayıt atıyor ben ise boş kayıt atmasını önlemek için formu sildirme sonra kapatıp yeniden açtırma kodu yazdım ama bu seferde aynı dönemi sectiğinde form uyarı verip bu dönem daha önce girilmiştir. mesajını verip kapatıp geri açması buda biraz sıkıcı oluyor. metin kutusu olsa iş tamamda combobox olunca iş değişiyor. ya secilen dönem acılan kutuda gözükmüyecek yada aynı dönemi sectiğinde uyarı verip o döneme odaklanıp yeni bir dönem seçmesini sağlamam gerekiyor. Bu konuda ne yapabilirim. Hangi kod uygun olur bu duruma çünkü aynı durum ölüm formunda ay ve yıl konusu içinde gecerli hadi onları bir nebze hallettim ama bu dönem açılır kutusu tamamen formun ana elemanı herşey onda bitiyor.id bile önemli değil benim için dönem kadar yardımlarınızı bekliyorum. teşekkürler Mesai bittiği için şimdilik offline olacağım kusura bakmayın 1 saate evde olurum.
İyi Günler Arkadaşlar bir konuda engin bilgilerinizden yararlanmak istedim. Müsadeniz olursa. Benim Aile Hekimleri için yapmış olduğum bir form var ve bu formda ayarlar sekmesinde dönem Açılır kutusu var ve bu kutudan kayıt yapılacak dönem seciliyor.bu dönemler değer listesi olarak vb kodları ile yapılıyor.yalnız Aile hekimi bu dönemlerden daha önce kaydettiği dönemi secerse uyarı vermesini ve kaydı geri almasını istedim fakat olmadı mükerrer kayıt kodu
saglikci_salih, 28-07-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 26/09/2012, 16:50, Düzenleyen: saglikci_salih.