Otomatik sayı yıllara göre vermesi

1 2 3

(06/04/2019, 21:37)haliliyas yazdı: tüm kayıtları sildiğiniz halde yani hiç kayıt olmamasına rağmen mi kaldığı yerden devam ediyor?
ben şimdi denedim çalıştı.
kayıtları silince 1 den başladı
tarihi 2020 ye aldım 1 den başladı
tarihi 2019 aldım kaldığı yerden devam etti
aradaki kayıtları sildim (1,2,3,4 vardı 2 ve 3 sildim) yeni kayıt 5ten başladı.
çalışmanızı eklerseniz çözmeye çalışırız.

dosya ekle bölümü çıkmadığı için dosyayı ekleme yapamıyorum.
Normalde yorumun altında dosya ekle butonu çıkıyordu

Verdiği hatayı söyler misiniz?

(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

Orasını anladım ama hata oldugunda 1 hata mesajı verir o mesaj ne?
Yada hata olan satır sarıya döner fareyle üstüne gelince hatanın kaynağıyla ilgili bilgi verir
Onu sormuştum?

1 2 3

Otomatik sayı yıllara göre vermesi

Fatih34

Fatih34

berduş

Fatih34

berduş