AccessTr.neT

Hayırlı akşamlar.
yapmış olduğum kayırt sayfasında dosya yılı 2022 şeklinde ve dosya nu ise kayda göre otomatik numara veriyor.
Benim istediğim
Yeni yıla girdiğimiz zaman dosya yılı 2023 olacak ama dosya numarası 1 den başlasın istiyorum. Bu konuda bana yardımcı olurmusunuz.

Otomatik numara verme kodunuzu yazar mısınız?

(03/12/2022, 17:30)berduş yazdı: [ -> ]Otomatik numara verme kodunuzu yazar mısınız?

Private Sub STOK_NU_AfterUpdate()
A1 = DMax("DOSYA_NU", "ANA_SAYFA")
If IsNull(A1) Then A1 = 0
Me.DOSYA_NU = A1 + 1
End Sub

Kodda yıl ile ilgili bir alan göremedim

(03/12/2022, 17:37)berduş yazdı: [ -> ]Kodda yıl ile ilgili bir alan göremedim

Hocam DOSYA_YIL isimli metin kutusuna bu yılı yazdığıyorum
DOSYA_YIL  metin kutusunun varsayılan değerine =Year(Date()) yazınca bu yılı gösteriyor.
2023 yılında DOSYA_YIL  2023 yazacak ama DOSYA_NU ise bir önceki numaradan +1 bir koyup saymasında 1 numaradan başlasın istiyorum. Zahmet merdiğim için kusura bakma hocam hayırlı çalışmalar diliyorum.

A1 = DMax("DOSYA_NU", "ANA_SAYFA","DOSYA_YIL=Year(Date())") benzeri bir ifade kullanmayı dener misiniz?