Skip to main content

AccessTr.neT


Ms Access Say Ekle

Ms Access Say Ekle

Çözüldü #1
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
.rar ATALAY.rar (Dosya Boyutu: 29,81 KB | İndirme Sayısı: 4)
Cevapla
#2
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
Cevapla
Thumbs Up #3
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]
Son Düzenleme: 27/09/2020, 23:43, Düzenleyen: hakkih.
Cevapla
#4
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.
Cevapla
#5
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task