Kayıt İçin Otomatik Günlük Sıra Numarası Vermek

Kayıt İçin Otomatik Günlük Sıra Numarası Vermek - Baskı Önizleme

+- 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ığı: Kayıt İçin Otomatik Günlük Sıra Numarası Vermek (/konu-kayit-icin-otomatik-gunluk-sira-numarasi-vermek.html)

Sayfalar: 1 2

RE: Kayıt İçin Otomatik Günlük Sıra Numarası Vermek - MURTAZAAF - 17/06/2022

Sayın @M_Kemal_Askeri

@berduş hocamın kodunun başına naçizane bir ekleme yaptım.

Kod:

If Sec = 1 Or Sec=2 Then

GoTo 1

Else

MsgBox "Yıkama veya Park tercih ediniz!", vbCritical, "UYARI", vbOKOnly

Me.Sec.SetFocus

End If

Exit Sub



1

If Nz(Me.KayitNu, "") = "" Then

xHrf = Format(Date, "dd.mm.yyyy") & "-Y-"

If Sec = 2 Then xHrf = Format(Date, "dd.mm.yyyy") & "-P-"

xNud = DMax("clng(0 & mid([KayitNu],14))", "Tbl_AracKayit", "[KayitNu] like '" & xHrf & "*'")

Me.KayitNu = xHrf & Format(Nz(xNud, 0) + 1, "0000")

End If

şeklinde düzenlediğinizde Yıkama veya Park seçmeden kaydetmiyor.

İşinize yardımcı olmasını diler saygılar sunarım.

Murtaza AF