Ms Access Say Ekle - Baskı Önizleme

Ms Access Say Ekle - 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ığı: Ms Access Say Ekle (/konu-ms-access-say-ekle.html)

Ms Access Say Ekle - hakkih - 26/09/2020

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

RE: Ms Access Say Ekle - ozanakkaya - 27/09/2020

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

Re: Ms Access Say Ekle - hakkih - 27/09/2020

Merhaba;

teşekkürler çalıştı

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

[Resim: do.php?img=10497]

RE: Ms Access Say Ekle - ozanakkaya - 28/09/2020

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.

Re: Ms Access Say Ekle - hakkih - 28/09/2020

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