Skip to main content

AccessTr.neT


Otomatik sayı yıllara göre vermesi

Otomatik sayı yıllara göre vermesi

#13
(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.
Cevapla
#14
dosya ekle bölümü çıkmadığı için dosyayı ekleme yapamıyorum.
Normalde yorumun altında dosya ekle butonu çıkıyordu
Cevapla
#15
Verdiği hatayı söyler misiniz?
Cevapla
#16
(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 
Cevapla
#17
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?
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task