ใช้ Access2000 หรือเปล่าครับ ถ้าใช่ จะต้องใช้โมดูล ลองค้นหา โดยใช้คัว่า Barcode ครับ

อ่าครับ ใช้ access2k ครับ ใช้โมดูลอย่างไรเหรอครับ

ใน access มีให้ไหม หรือต้องเขียนเอง

แต่ถ้ายุ่งยากนัก ผมจะได้เปลี่ยนรหัสเป็น number ซะเลยจจะได้ไม่ต้องแก้มาก

Function MD_Barcode39(Ctrl As Control, Rpt As Report)

On Error GoTo ErrorTrap_BarCode39

Dim Nbar As Single, Wbar As Single, Qbar As Single, NextBar As Single
Dim CountX As Single, CountY As Single, CountR As Single
Dim Parts As Single, Pix As Single, Color As Long, BarStamp As Variant
Dim Stripes As String, OneStripe As String, BarCode As String
Dim Mx As Single, my As Single, Sx As Single, Sy As Single
Const White = 16777215: Const Black = 0
Const Nratio = 20, Wratio = 55, Qratio = 35

Sx = Ctrl.Left: Sy = Ctrl.Top: Mx = Ctrl.Width: my = Ctrl.Height
BarCode = Ctrl
Parts = (Len(BarCode) + 2) * ((6 * Nratio) + (3 * Wratio) + (1 * Qratio))
Pix = (Mx / Parts):
Nbar = (20 * Pix): Wbar = (55 * Pix): Qbar = (35 * Pix)
NextBar = Sx
Color = White
BarStamp = "*" & UCase(BarCode) & "*"

For CountX = 1 To Len(BarStamp)
Stripes = MD_BC39(Mid$(BarStamp, CountX, 1))
For CountY = 1 To 9
OneStripe = Mid$(Stripes, CountY, 1)
If Color = White Then Color = Black Else Color = White
Select Case OneStripe
Case "1"
Rpt.Line (NextBar, Sy)-Step(Wbar, my), Color, BF
NextBar = NextBar + Wbar 'WideBar
Case "0"
Rpt.Line (NextBar, Sy)-Step(Nbar, my), Color, BF
NextBar = NextBar + Nbar 'NarrowBar
End Select
Next CountY
If Color = White Then Color = Black Else Color = White
Rpt.Line (NextBar, Sy)-Step(Qbar, my), Color, BF
NextBar = NextBar + Qbar 'Intermediate Quiet Bar
Next CountX

Exit_BarCode39:
Exit Function

ErrorTrap_BarCode39:
Resume Exit_BarCode39

End Function

Function MD_BC39(CharCode As String) As String

On Error GoTo ErrorTrap_BC39

ReDim BC39(90)

BC39(32) = "011000100" ' space
BC39(36) = "010101000" ' $
BC39(37) = "000101010" ' %
BC39(42) = "010010100" ' * Start/Stop
BC39(43) = "010001010" ' +
BC39(45) = "010000101" ' |
BC39(46) = "110000100" ' .
BC39(47) = "010100010" ' /
BC39(48) = "000110100" ' 0
BC39(49) = "100100001" ' 1
BC39(50) = "001100001" ' 2
BC39(51) = "101100000" ' 3
BC39(52) = "000110001" ' 4
BC39(53) = "100110000" ' 5
BC39(54) = "001110000" ' 6
BC39(55) = "000100101" ' 7
BC39(56) = "100100100" ' 8
BC39(57) = "001100100" ' 9
BC39(65) = "100001001" ' A
BC39(66) = "001001001" ' B
BC39(67) = "101001000" ' C
BC39(68) = "000011001" ' D
BC39(69) = "100011000" ' E
BC39(70) = "001011000" ' F
BC39(71) = "000001101" ' G
BC39(72) = "100001100" ' H
BC39(73) = "001001100" ' I
BC39(74) = "000011100" ' J
BC39(75) = "100000011" ' K
BC39(76) = "001000011" ' L
BC39(77) = "101000010" ' M
BC39(78) = "000010011" ' N
BC39(79) = "100010010" ' O
BC39(80) = "001010010" ' P
BC39(81) = "000000111" ' Q
BC39(82) = "100000110" ' R
BC39(83) = "001000110" ' S
BC39(84) = "000010110" ' T
BC39(85) = "110000001" ' U
BC39(86) = "011000001" ' V
BC39(87) = "111000000" ' W
BC39(88) = "010010001" ' X
BC39(89) = "110010000" ' Y
BC39(90) = "011010000" ' Z

MD_BC39 = BC39(Asc(CharCode))

Exit_BC39:
Exit Function

ErrorTrap_BC39:
MD_BC39 = ""
Resume Exit_BC39

End Function


แล้วตอนใช้ ให้ใช้ที่ Event On Print ให้เขียนว่า

Result = MD_Barcode39(Me![Textbox], Me)

ที่ Me![Textbox] หมายถึง อ้างอิงชื่อ Textbox ที่ต้องการทำ

เท่าที่ผม Scan Barcode ดูจาก Label (รหัส3Of9)
ที่รหัส Barcode เป็น Text + Number ก็สามารถรับค่าได้นะครับ
เช่น P125689633 ก็รับค่าได้นะครับ
Scan Barcode Laser
ลองดูนะครับ
ไม่แน่ใจว่าผมเข้าใจคำถามถูก หรือ ไม่
ถ้าไม่ใช่ ก็ต้องขอโทษด้วยนะครับ
Suchat
ชลบุรี

น่าแปลกครับ ผมใช้ Function ข้างบนที่คุณ moo ให้มากับเครื่องที่ทำงาน ซึ่งเป็น Windows 2K แล้ว Access 2000 ก็ใช้ได้ไม่มีปัญหา พอผมเอา Function นี้ไปใช้ที่บ้านซึ่งเป็น Windows Xp กับ Access 2000 มันใช้ไม่ได้ ครับ มันติดปัญหาตรงที่มันError ที่ ส่วนบรรทัด BarStamp = "*" & UCase(BarCode) & "*"
โดยมันจะ hilight ที่ตัว UCase ไม่ทราบว่าผมต้องแก้ยังไงถึงให้มันใช้กับเครื่องที่บ้านได้ครับ ผมยังลงอะไรไม่หมดหรือเปล่าครับ เพราะเท่าที่ผมทำ ผมก็ save file MDB ของผมจากที่ทำงานไปแปะไว้ที่บ้านเลย