Barkod_adet

1 2
18/06/2018, 22:39

golf2000

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
19/06/2018, 00:33

ozguryasin

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
19/06/2018, 00:40

golf2000

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
19/06/2018, 00:46

ozguryasin

işleyiş açısından pek değişen birşey olmayacaktır.
19/06/2018, 00:49

golf2000

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
19/06/2018, 08:27

ozguryasin

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
1 2