AccessTr.neT

Arkadaşlar Kolay Gelsin
Yardımlarınız İçin Teşekkür Ederim Öncelikle

Benim Access Veri tabanında hazırlamış olduğum
Barkod Etiketi Basma Programı
Access Form'da Barkod Bilgileri Giriyorum Girişimiz Bittiğinde (Barkod_No) Kodumuzu Otomatik Oluşturuyor
Barkod Bas Butonuna Bastığımızda (İlk Kayıt No) ve (Son Kayıt No) Numaralarınız Girdiğimizde o aralıktaki İlgili Barkodları Tek Tek Çıkartıyor
Benim İsteğim
(İlk Kayıt No) ve (Son Kayıt No) Girdiğimizde (Koli Adet) 1 Bir İse 2 Adet Aynı Barkod dan Basmasını
(İlk Kayıt No) ve (Son Kayıt No) Girdiğimizde (Koli Adet) 2 İki İse 3 Adet Aynı Barkod dan Basmasını
(İlk Kayıt No) ve (Son Kayıt No) Girdiğimizde (Koli Adet) 5 Beş İse 6 Adet Aynı Barkod dan Basmasını
Hep 1 Bir Adet Fazla Aynı Barkod Basmasını İstiyorum

Örneğin 1
(İlk Kayıt No) = 1000
(Son Kayıt No) = 1002
Bu Aralıktaki Barkodları Dökmek İstediğimde
1000 Nolu (Kayıt_No) (Koli Adet) 1 Bir ise 2 Adet Aynı Barkod
1001 Nolu (Kayıt_No) (Koli Adet) 2 İki ise 3 Adet Aynı Barkod
1002 Nolu (Kayıt_No) (Koli Adet) 5 Beş ise 6 Adet Aynı Barkod

Örneğin 2
(İlk Kayıt No) = 1001
(Son Kayıt No) = 1002
Bu Aralıktaki Barkodları Dökmek İstediğimde
1001 Nolu (Kayıt_No) (Koli Adet) 2 İki ise 3 Adet Aynı Barkod
1002 Nolu (Kayıt_No) (Koli Adet) 5 Beş ise 6 Adet Aynı Barkod
Basmasını İstiyorum Bu Mümkünmü

Not: Code128 Font Yüklü Olması Gerekiyor


Teşekkürler

Merhaba; ekteki örnek istediğinize bire bir olduğu için direkt cevaplanan konular bölümüne taşınmıştır. takıldığınız yer olursa belirtin yardımcı olalım.

Form içindeki kod yapısı aşağıdadır.

DoCmd.SetWarnings False

    DoCmd.RunSQL "DELETE FROM OzGuR_YaSiN WHERE 1=1"

DoCmd.SetWarnings True

Dim rS As New ADODB.Recordset

Dim rT As New ADODB.Recordset

Dim sOrGu As String

sOrGu = "SELECT Barkod_Adet.Kayıt_No, Barkod_Adet.Malzeme_Adı, Barkod_Adet.Fiyatı, Barkod_Adet.Barkod_No, Barkod_Adet.Koli_Adet, Code128([Barkod_No]) AS Barkod_Kodu " & _

"FROM Barkod_Adet " & _

"WHERE Barkod_Adet.Kayıt_No>=" & Form_Form1.Metin1 & " And Barkod_Adet.Kayıt_No<=" & Form_Form1.Metin3

rS.Open sOrGu, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

rT.Open "OzGuR_YaSiN", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

If rS.EOF = True Then GoTo 1453

Do Until rS.EOF

For i = 1 To rS!Koli_Adet + 1

rT.AddNew

rT!Kayıt_No = rS!Kayıt_No

rT!Malzeme_Adı = rS!Malzeme_Adı

rT!Fiyatı = rS!Fiyatı

rT!Barkod_No = rS!Barkod_No

rT!Koli_Adet = rS!Koli_Adet

rT!Barkod_Kodu = rS!Barkod_Kodu

rT.Update

Next

rS.MoveNext

Loop

1453

rS.Close



DoCmd.OpenReport "Etiketler_Barkod", acViewPreview, , , acWindowNormal

Sn.ozguryasin Bey
Ellerinize Sağlık Çok Teşekkür Ederim Çok Güzel Olmuş

Peki Bunu Sorguda Yapmamız Mümkünmü
Tabloda Değilde
Teşekkürler

işleyiş açısından pek değişen birşey olmayacaktır.

Sn.ozguryasin Bey
Şimdi Farkettim Yeni Kayıt Ekliyorum Barkod Kodunu Otomatik Oluşturmuyor
Vede Girmiş Olduğum Veriyi Silmek İstiyorum Siliyor Fakat Tekrar Aynı Verileri Geri Getiriyor Silmiyor
Adet Miktarını Değiştirdiğimde De Değiştirmiyor
Teşekkürler

Sizin asıl tablonuzda ne varsa ona bakarak işlem yapar. Asıl tablonuzdan değiştirmeniz gerekir. Akşam eve gidince bir bakayım tekrardan