AccessTr.neT
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