หลังอัพเดทข้อมูลฟิวล์ Barcode(กล่องท่านชื่อ Text6) สั่งให้นำ6ตัวท้ายมาใส่กล่อง,ฟิวล์ IDProduct
Private Sub Text6_AfterUpdate()
Me.IDProduct = Right(Me.Text6, 6)
End Sub
หรือเมื่อใส่ IDProduct แล้วให้ Barcode = A$+IDProduct
Private Sub IDProduct_AfterUpdate()
Me.Text6 = "A$" & Me.IDProduct
End Sub