(06/04/2019, 22:21)haliliyas yazdı: Verdiği hatayı söyler misiniz?
Private Sub btnKaydet_Click()
'TC Kimlik Numarası Boş Geçilmez
If IsNull(txtTcKimlikNo) Or txtTcKimlikNo = "" Then
MsgBox "Lütfen TC Kimlik Nosunu Giriniz", vbExclamation, "Uyarı"
Exit Sub
End If
'Bilgileri Kaydet
xmax = DMax("mid([EvrakSayısı],6)", "[tblŞahısBilgileri]", "mid([EvrakSayısı],1,4)=format(date(),'yyyy')")
Me.EvrakSayısı = Format(Date, "yyyy") & "/" & Nz(xmax, 0) + 1 (Bu kod Hata veriyor )
DoCmd.RunCommand acCmdSaveRecord
MsgBox "Bilgiler Başarı İle Kayıt Edildi", vbExclamation, "Uyarı"
TumDenetimlerPasif
DoCmd.GoToRecord , , acNewRec
End Sub
Hocam koyu olan kod kısmında hata veriyor