Access - Si të përdor barcode?

[Toni07213]

Nese dikush mund te me ndihmoj rreth ketij problemi, deshiroj qe ne nje baze te dhenash krahas shires se artikullit te kalkulohet edhe Barcod, por problemi eshte se, kam provuar me ActiveX, po desha ta dij se kodi te cilin e crijon ActiveX, duhet t'i tregohet edhe tipi, p.sh. Code128, Ena13, Ena8 etj. un desha nje kod, qofte edhe ne VBA, i cili e kalkulon vet edhe tipin.
Apo nese BarCode-i 8 shifror eshte i njejte me ate 13 shifror per lexuesin e Barcode-it, un po vazhdoj me ActiveX, edhe i njejti Barcode duhet edhe te shtypet ne raport, per Label printer kam kod ne VBA, por per printer standart jo.
Faleminderit per ndihme.

[edspace]

Lexo temën Programimi i Barcode me Pl/SQL për të mësuar një mënyrë se si mund të përdoren barcode.

Me barcode ti duhet të shifrosh një numër identifikimi. Këtë numër mund ta marrësh nga tabelat e Access, ose mund ta gjenerosh vetë sipas dëshirës. Për të kthyer numrin në barcode mjafton të përdorësh një font special. Kjo e lehtëson shumë punën sepse në një raport të Access mund të vendosësh një fushë me tekst (textbox) që përdor fontin e barcode-it.

Ka disa fonte standarde, por lexo manualin e skanerit për të mësuar se cilat sisteme barcode-esh njeh.

[Toni07213]

Deshiroj qe barkodin ta vendos permes Activex, por Activex qe i kam zbrit prej internetit te gjithe jane demo versione. A ka ndonje mundesi qe demo versionin ta aktivizoj si te rregullt apo keni ndonje sugjerim per ndonje activex tjeter qe gjendet ne internet. Faleminderit per ndihme.

[Borix]

Per mendimin tim, ndertoje vete nje ActiveX ne VB6, le te themi. Nga njera ane, ti ke kontroll te plote mbi kodin qe shkruan vete. Per shembull, nese lindin probleme ne te ardhmen, ti je i afte t'i dallosh. Nga ana tjeter, duke adaptuar kod ekzistues, ti nuk njeh pothuaj asgje nga brendia, prandaj problemet do jene shume me te veshtira per t'i hasur.

Klasa mund te zhvillohet ne baze te specifikimeve baze (kater veprimet mbi te dhenat) si dhe ne bashkeveprim me ndonje nderfaqe te ndonje klase databaze qe mund te kesh zhvilluar. Mendoje, dhe te sugjeroj te besh nje zgjidhje teper te thjeshte. Kompilimi pas perfundimit, e kthen klasen ne activex, gje qe mund te perdoret kudo ne projektin tend aktual dhe te ardhshem, si dhe te mundeson zgjatshmerine dhe mirembajtjen e kodit ne kohen ne vijim.

Sa per barcode-in, duhet te kesh disa TrueType Fonts, te cilat mund te gjendet neper Internet falas.

[Toni07213]

Borix, a kishe mundur te me ofrosh ndonje kode te gatshem ne VB, i cili sherben si activex dhe te jete tipi i barkodit ne te Auto select, d.mth. qfardo shifre e shkruan ne texbox ta gjeneroj edhe tipin vet. Kjo gje besoj se eshte e mundur se e kam nje axtivex te tille qe e gjeneron tipin vet, por eshte demo.
faleminderit shum per ndihm, te jem mirenjohes.

[Borix]

Kod gati nuk kam, por pseudo-kodi qe me vjen ndermend eshte te perdoresh nje font, i cili konverton tekstin nga textboxi ne ate font specifik.

Pershembull, hape faqen http://www.barcodesinc.com/free-barcode-font/ dhe shkarko fontin dhe ruaje ne nje direktori te caktuar. Hidhi nje sy edhe http://www.idautomation.com/fonts/.

Gjate programimit te klases per ActiveX, merr nje variabel private qe ruan path-in e fontit te barcode. Klasa mund te permbaje funksionin GetBarCode me nje parameter te tipit string qe ka vleren e textboxit dhe mund te besh konvertimin. VB6 ofron dy opsione. Ose te perdoresh API per perunimin e fonteve, ose ndonje built-in function. Une gjithnje perdor API, prandaj nuk di ndonje gje specifike. Megjithate, duhet te jete e thjeshte.

Gjithashtu, varet cfare device do te perdoresh. Nese perdor nje skaner standard me serial port dhe nese perdor nje reader tjeter, atehere duhet bere kujdes me perputhshmerine e njerit dhe tjetrit. Duhet qe printeri dhe readeri te perputhen me fontin e zgjedhur prej teje.

[Borix]

Hidhi nje sy kesaj modules qe gjeta ne IDautomation: http://www.advancemeants.com/downloa...onVBModule.zip

[Toni07213]

Faleminderit Borix, besoj qe do me kryej pune se ishte kodi i gatshem. Faleminderit

[Toni07213]

Desh t'i marr dy lloj fontesh per barcode, ate EAN 8 dhe EAN 13.
Faleminderit per ndihme.

[Toni07213]

A bene te shtyp me 'Samsung / Bixolon SRP-350 Thermal Printer' prej VBA-se Barcode-in i cili eshte i dizajnuar ne kete forme:
Private Sub ShtupeBK_Click()
Dim Cm As String
Dim i, nr As Integer
On Error GoTo Err_ShtupeBK_Click
Dim nrKopje As Integer
Open "Lpt1:" For Output As #1
Open "C:\Real2004\BK001.TXT" For Output As #2
nrKopje = 1
nrKopje = InputBox("Sheno numrin e tiketave", "Nr,i tiketave", 1)

Print #2, "CB"
Print #2, "SB0"
Print #2, "SD20"
Print #2, "SW448"
Print #2, "SW448"
Print #2, "SM0,21"
Print #2, "SOT"
Print #2,
Print #2, "T26,0,2,1,2,0,0,N,N,'"; Me.AEmertimi.Value; "'"
Print #2, "B155,58,7,2,4,78,0,1,0,'"; Mid(Me.ASh_e_artikullit.Value, 1, 12); "'"
Print #2, "T300,46,4,1,3,0,0,N,B,'"; Format(Me.ACm_primar.Value, "#,##0.00"); "'"
Print #2,
Print #2, "P"; Mid(nrKopje, 1, 3)
Close #2

DoCmd.RunMacro "TiketaBK"
Close #1
' E krijon BARCODIN dhe e percjell ne fajllin BK001.TXT
' Ky fajll hapet me programin LPRINT dhe sipas nevoje shtypet ne COM2:

Exit_ShtupeBK_Click:
Exit Sub

Err_ShtupeBK_Click:
MsgBox Err.Description
Resume Exit_ShtupeBK_Click

End Sub