AccessTr.neT

Merhaba;

envanter seri no takibi için ufak bir yardıma ihtiyacım var.
MS Access'te örnek 407110 başlayan bir sayıyı "10 say" dediğimde 407120 sayıya kadar her bir üst rakama bir ekleyerek bir alt satıra yazacak. Toplamı 10 kayıt olunca duracak devem etmeyecektir.

örnekler ektedir...
teşekkür ederim

Forma buton ekleyip tıklandığında olayına aşağıdaki kodu ekleyerek deneyiniz.

GSayi = Me.SERİ_NO



For x = 0 To Me.SAY



    Me.SERİ_NO = GSayi + x

    

    DoCmd.GoToRecord , , acNewRec



Next x

Merhaba;

teşekkürler çalıştı

kalem tipi / tipi  / seri ve tarihi yazacak olan kodları, onları da bağışlar-mısınız.

GSayi = Me.SERİ_NO

Kodunun altına,

GKalem = Kalemtipimetinkutusu

Kod ekle.

Me.SERİ_NO = GSayi + x

Kodunun altına da

Kalemtipimetinkutusu = GKalem

Kodu ekle. Diğerleri de aynı olacak.

Teşekkürler ;

Private Sub Komut14_Click()

GSayi = Me.SERİ_NO



GKalem = KALEM_TİPİ

GTipi = TİPİ

GSeri = SERİ

GTarih = İŞLEM_TARİHİ



For x = 0 To Me.SAY



Me.SERİ_NO = GSayi + x



KALEM_TİPİ = GKalem

TİPİ = GTipi

SERİ = GSeri

İŞLEM_TARİHİ = GTarih



DoCmd.GoToRecord , , acNewRec



Next x

End Sub

---------------------------
bu şekilde yaptım çalıştı

Tekrar teşekkür ederim