AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

barkod fontu okunamayan

1 2 3
27/11/2011, 19:46

karaayhan

okumuyor sayın yandemir...
mutlaka bir hata yapıyoruz birşeyler eksik ki okumuyor
ve bu fonttan kaynaklı eminim ama ne????????
27/11/2011, 19:51

Yandemir

barkodu bastığınız printer laser printer olmalı eğer barkod içinde kap kilo adet gizlemeyecek iseniz standart dışı olan code39 yada codabar kullanın ama codabar içinde başında sonunda "*" olmasına dikkat edin * kontrol kodunu da basın. okurken kaldırın.
27/11/2011, 20:00

Yandemir

barkod okuyucunuzun setup ayarını kontrol edin. code 128 için ayarlımı?
27/11/2011, 20:37

karaayhan

barkod okuyucu tak çalıştır şeklinde yani klavye girişine takılıyor...yani setup yok.

codabar için * kullanın demişiniz okurken kaldırın bu nasıl olacak yani barkodu ürettik yıldızlı(*) bunu okurken nasıl kaldırabiliriz?
27/11/2011, 20:41

Yandemir

yazdırırken
="*" & deger & "*"
okurken
=mid(deger,2,len(deger)-2)
tüm okuyucuların setup ayarı vardır. bu ayar sadece bir barkodu okutmakla olur. kitapçığında listesi vardır. code128 için şu kodu okutun code39 için şunu okutun diye setup ayarı bu kadar dır.
27/11/2011, 23:36

karaayhan

sayın yandemir buldum sorun çözüldü....çok teşekür ederim.


Private Sub UserForm_Initialize()

    cbxType.Clear

    cbxType.AddItem "UPC-A", 0

    cbxType.AddItem "UPC-E", 1

    cbxType.AddItem "EAN13", 2

    cbxType.AddItem "EAN8", 3

    cbxType.AddItem "JAN13", 4

    cbxType.AddItem "JAN8", 5

    cbxType.ListIndex = 0

    

    cbxFontName.Clear

    cbxFontName.AddItem "MW6 UES", 0

    cbxFontName.AddItem "MW6 UEM", 1

    cbxFontName.AddItem "MW6 UEL", 2

    cbxFontName.AddItem "MW6 UEXL", 3

    cbxFontName.AddItem "MW6 UEXXL", 4

    cbxFontName.ListIndex = 0

    

    cbxSize.Clear

    cbxSize.AddItem "8", 0

    cbxSize.AddItem "9", 1

    cbxSize.AddItem "10", 2

    cbxSize.AddItem "11", 3

    cbxSize.AddItem "12", 4

    cbxSize.AddItem "14", 5

    cbxSize.AddItem "16", 6

    cbxSize.AddItem "18", 7

    cbxSize.AddItem "20", 8

    cbxSize.AddItem "22", 9

    cbxSize.AddItem "24", 10

    cbxSize.AddItem "26", 11

    cbxSize.AddItem "28", 12

    cbxSize.AddItem "36", 13

    cbxSize.AddItem "48", 14

    cbxSize.AddItem "76", 15

    cbxSize.ListIndex = 6

    

    cbxColOffset.Clear

    cbxColOffset.AddItem "-5", 0

    cbxColOffset.AddItem "-4", 1

    cbxColOffset.AddItem "-3", 2

    cbxColOffset.AddItem "-2", 3

    cbxColOffset.AddItem "-1", 4

    cbxColOffset.AddItem "0", 5

    cbxColOffset.AddItem "1", 6

    cbxColOffset.AddItem "2", 7

    cbxColOffset.AddItem "3", 8

    cbxColOffset.AddItem "4", 9

    cbxColOffset.AddItem "5", 10

    cbxColOffset.ListIndex = 6

    

    cbxRowOffset.Clear

    cbxRowOffset.AddItem "-5", 0

    cbxRowOffset.AddItem "-4", 1

    cbxRowOffset.AddItem "-3", 2

    cbxRowOffset.AddItem "-2", 3

    cbxRowOffset.AddItem "-1", 4

    cbxRowOffset.AddItem "0", 5

    cbxRowOffset.AddItem "1", 6

    cbxRowOffset.AddItem "2", 7

    cbxRowOffset.AddItem "3", 8

    cbxRowOffset.AddItem "4", 9

    cbxRowOffset.AddItem "5", 10

    cbxRowOffset.ListIndex = 5

End Sub
1 2 3