AccessTr.neT

Tam Versiyon: Otomatik sayı yıllara göre vermesi
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 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?
Sayfalar: 1 2 3