Eksik kayıt uyarısı - Baskı Önizleme +- 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ığı: Eksik kayıt uyarısı (/konu-eksik-kayit-uyarisi.html) |
Cvp: Eksik kayıt uyarısı - benremix - 30/09/2009 Sn hanedan0812 şimdilik sadece gönderildiği kısımlarına gerekli yapsanız. Şimdi vaktim yok akşam evde bakmam lazım. Belki üstadlar çözüm üretir. Saygılar... Cvp: Eksik kayıt uyarısı - Nurullah_Serdar - 30/09/2009 kaydet butonunun kodunu If IsNull(Me.GeldigiYer) Then MsgBox "GELDİĞİ YER bölümünü boş bıraktınız. Lütfen Evrakın geldiği yeri yazınız", 48, "Eksik Kayıt": Me.GeldigiYer.SetFocus: Exit Sub If IsNull(Me.Tarih) Then MsgBox "EVRAK TARİHİ bölümünü boş bıraktınız. Lütfen Evrak tarih yazınız", 48, "Eksik Kayıt": Me.Tarih.SetFocus: Exit Sub If IsNull(Me.AlindigiTarih) Then MsgBox "ALINDIĞI TARİH bölümünü boş bıraktınız. Lütfen Evrakın alındığı tarihi yazınız", 48, "Eksik Kayıt": Me.AlindigiTarih.SetFocus: Exit Sub If IsNull(Me.KonununOzeti) Then MsgBox "KONUSU bölümünü boş bıraktınız. Lütfen evrakın konusunu yazınız", 48, "Eksik Kayıt": Me.KonununOzeti.SetFocus: Exit Sub If IsNull(Me.İslemiYapacakBuro) Then MsgBox "İŞLEMİ YAPACAK BÜRO bölümünü boş bıraktınız. Lütfen İşlemi yapacak büronun adını yazınız", 48, "Eksik Kayıt": Me.İslemiYapacakBuro.SetFocus: Exit Sub If Len(Me.GonderildigiYer) <> 0 Then If IsNull(Me.GonderildigiTarih) Then MsgBox "Gönderildiği TArih Alanını Doldurunuz", vbCritical, "Uyarı" Exit Sub End If If IsNull(Me.KonununYapilanVeYapilacakİsleminOzeti) Then MsgBox "Konunun Yapılan ve Yapılacak İşlemin Özeti Alanını Doldurunuz", vbCritical, "Uyarı" Exit Sub End If End If DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70 bu şekilde değiştir. gönderildiği yer seçildiğinde diğer doldurulması gereken alanları kontrol edecektir. ayrıca evrak numarası verirken kayıt sayısı +1 demişsin. yılbaşı döndüğünde aynı numaraya +1 vererek yeni yıldada devam edecektir. bunun için sıra numarasının varsayılan değerine =Year(Now()) & DCount("KayitNo";"tbl_EvrakKayitDefteriVeriGirisi";"year([AlindigiTarih])=" & Year(Now()))+1 bunu yaz verdiği numaralar 20091 20092 20093 şeklinde devam etsin. gelecek yıl arama yaptığında 1 numaralı kayıt dediğin zaman iki veya daha fazla kayıt bulmasın. Cvp: Eksik kayıt uyarısı - hanedan0812 - 30/09/2009 ellerine sağlık hocam teşekkür ederim.iyi günler |