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) & "*"

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