สอบถามเรื่องการยิงสแกนบาร์โค้ดสินค้า

[prajak]

รบกวนสอบถามครับ โปรแกรมขายสินค้า ผมกำหนด text เพื่อรับค่าบาร์โค้ดจากการสแกน เราจะสามารถกำหนดได้ไหมว่าถ้า corsor ไม่ได้อยู่ตรง text ดังกล่าว จะไม่สามารถสแกนได้หรือมี popup แจ้งเตือนอะไรประมาณนี้ครับ

[OddyWriter]

สมมติให้ Text Box ที่ใส่ Barcode ชื่อ txtBarcode ให้ใช้ Code นี้ครับ

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Or KeyCode = vbKeyTab Then
        If IsNull(Me.txtBarcode) Or Me.txtBarcode = "" Then
            MsgBox "ยิง Barcode ผิดช่อง", vbCritical, "Error"
            Me.txtBarcode.SetFocus
        End If
    End If
End Sub

ลองดูครับว่าใช้ได้ไหม

[prajak]

สมมติให้ Text Box ที่ใส่ Barcode ชื่อ txtBarcode ให้ใช้ Code นี้ครับ

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Or KeyCode = vbKeyTab Then
        If IsNull(Me.txtBarcode) Or Me.txtBarcode = "" Then
            MsgBox "ยิง Barcode ผิดช่อง", vbCritical, "Error"
            Me.txtBarcode.SetFocus
        End If
    End If
End Sub

ลองดูครับว่าใช้ได้ไหม

ได้แล้วครับ ขอบคุณมากนะครับ