+- 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ığı: Barkod_adet (/konu-barkod-adet.html)
Sayfalar:
1
2
Barkod_adet - golf2000 - 18/06/2018
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
Cvp: Barkod_Adet - ozguryasin - 19/06/2018
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
Cvp: Barkod_adet - golf2000 - 19/06/2018
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
Cvp: Barkod_adet - ozguryasin - 19/06/2018
işleyiş açısından pek değişen birşey olmayacaktır.
Cvp: Barkod_adet - golf2000 - 19/06/2018
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
Cvp: Barkod_adet - ozguryasin - 19/06/2018
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