Skip to main content

AccessTr.neT


Barkod_adet

Barkod_adet

Çözüldü #1
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
.rar Barkod Adet.rar (Dosya Boyutu: 37,76 KB | İndirme Sayısı: 4)
Cevapla
#2
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
.rar Barkod Adet_ozguryasin.rar (Dosya Boyutu: 35,7 KB | İndirme Sayısı: 9)
POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla
#3
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
Cevapla
#4
işleyiş açısından pek değişen birşey olmayacaktır.
POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla
#5
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
Cevapla
#6
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
POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da