AccessTr.neT
Accesste Yaptığım Kayıtları Kayıt Sırası Yeni Yılda 1 Numaradan Başlasın. - 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ığı: Accesste Yaptığım Kayıtları Kayıt Sırası Yeni Yılda 1 Numaradan Başlasın. (/konu-accesste-yaptigim-kayitlari-kayit-sirasi-yeni-yilda-1-numaradan-baslasin.html)

Sayfalar: 1 2


Accesste Yaptığım Kayıtları Kayıt Sırası Yeni Yılda 1 Numaradan Başlasın. - ertuğrul2022 - 03/12/2022

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.


RE: Accesste Yaptığım Kayıtları Kayıt Sırası Yeni Yılda 1 Numaradan Başlasın. - berduş - 03/12/2022

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


RE: Accesste Yaptığım Kayıtları Kayıt Sırası Yeni Yılda 1 Numaradan Başlasın. - ertuğrul2022 - 03/12/2022

(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


RE: Accesste Yaptığım Kayıtları Kayıt Sırası Yeni Yılda 1 Numaradan Başlasın. - berduş - 03/12/2022

Kodda yıl ile ilgili bir alan göremedim


RE: Accesste Yaptığım Kayıtları Kayıt Sırası Yeni Yılda 1 Numaradan Başlasın. - ertuğrul2022 - 03/12/2022

(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.


RE: Accesste Yaptığım Kayıtları Kayıt Sırası Yeni Yılda 1 Numaradan Başlasın. - berduş - 03/12/2022

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