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.