(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
Bu Konudaki Yorumlar |
Accesste Yaptığım Kayıtları Kayıt Sırası Yeni Yılda 1 Numaradan Başlasın. - Yazar: ertuğrul2022 - 03/12/2022, 17:19
RE: Accesste Yaptığım Kayıtları Kayıt Sırası Yeni Yılda 1 Numaradan Başlasın. - Yazar: berduş - 03/12/2022, 17:30
RE: Accesste Yaptığım Kayıtları Kayıt Sırası Yeni Yılda 1 Numaradan Başlasın. - Yazar: ertuğrul2022 - 03/12/2022, 17:33
RE: Accesste Yaptığım Kayıtları Kayıt Sırası Yeni Yılda 1 Numaradan Başlasın. - Yazar: berduş - 03/12/2022, 17:37
RE: Accesste Yaptığım Kayıtları Kayıt Sırası Yeni Yılda 1 Numaradan Başlasın. - Yazar: ertuğrul2022 - 03/12/2022, 17:50
RE: Accesste Yaptığım Kayıtları Kayıt Sırası Yeni Yılda 1 Numaradan Başlasın. - Yazar: berduş - 03/12/2022, 18:11
RE: Accesste Yaptığım Kayıtları Kayıt Sırası Yeni Yılda 1 Numaradan Başlasın. - Yazar: ertuğrul2022 - 03/12/2022, 18:24
RE: Accesste Yaptığım Kayıtları Kayıt Sırası Yeni Yılda 1 Numaradan Başlasın. - Yazar: berduş - 03/12/2022, 18:28
|