+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Otomatik sayı yıllara göre vermesi (/konu-otomatik-sayi-yillara-gore-vermesi.html)
Cvp: Otomatik sayı yıllara göre vermesi - Fatih34 - 06/04/2019
(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.
Cvp: Otomatik sayı yıllara göre vermesi - Fatih34 - 06/04/2019
dosya ekle bölümü çıkmadığı için dosyayı ekleme yapamıyorum.
Normalde yorumun altında dosya ekle butonu çıkıyordu
Cvp: Otomatik sayı yıllara göre vermesi - berduş - 06/04/2019
Verdiği hatayı söyler misiniz?
Cvp: Otomatik sayı yıllara göre vermesi - Fatih34 - 06/04/2019
(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
Cvp: Otomatik sayı yıllara göre vermesi - berduş - 06/04/2019
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?