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.

Visual Basic Code
GSayi = Me.SERİ_NO

For x = 0 To Me.SAY

    Me.SERİ_NO = GSayi + x
    
    DoCmd.GoToRecord , , acNewRec

Next x

"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
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,

Visual Basic Code
GKalem = Kalemtipimetinkutusu


Kod ekle.

Visual Basic Code
Me.SERİ_NO = GSayi + x

Kodunun altına da


Visual Basic Code
Kalemtipimetinkutusu = GKalem


Kodu ekle. Diğerleri de aynı olacak.

"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#5
Teşekkürler ;

Visual Basic Code
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