30/09/2009, 13:20
Eksik kayıt uyarısı
30/09/2009, 14:48
Nurullah_Serdar
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.
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.
30/09/2009, 15:58
hanedan0812
ellerine sağlık hocam teşekkür ederim.iyi günler