@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İşinize yardımcı olmasını diler saygılar sunarım.
Murtaza AF
