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

1 2
17/06/2022, 16:40

MURTAZAAF

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
1 2