รับค่าจากเครื่องยิงบาร์โค้ดแล้วเปรียบเทียบระหว่าง 2 ค่าไม่ได้ครับ

[apforever]

ผมต้องการรับค่าบาร์โค้ดแล้วเทียบค่า 2 ค่าจากนั้นให้ผลลัพธ์แสดงที่ textbox3
ถ้าค่าตรงกันให้ textbox3 แสดงคำว่า TRUE พร้อมเคลียร์ค่า textbox1,textbox2 ออก และให้โฟกัสที่ textbox1 เพื่อรับค่ามาเทียบใหม่
ถ้าไม่ตรงกันให้ textbox3 แสดงคำว่า FALSE พร้อมเคลียร์ค่าที่ textbox2 ออก และให้โฟกัสที่ textbox2 เพื่อรับค่าใหม่

จากที่ผมทำเวลารับค่าเข้ามาที่ textbox2 ซึ่งค่าจะตรงหรือไม่ตรงก็ตาม textbox3 จะแสดงคำว่า FALSE ตลอดโดยที่ textbox2 จะออกมาเป็นค่าว่างอยู่เสมอ
อยากจะขอคำแนะ/แนวทางในการเขียนหน่อยครับ พอดีเพิ่งเริ่มหัดเขียน VBA ครับ
ขอบคุณครับ

Code: Select all

Private Sub TextBox2_Change()
Dim text1, text2, text3, text4 As String
text1 = TextBox1.Text
text2 = TextBox2.Text
text3 = "TRUE"
text4 = "FALSE"
If text1 = text2 Then
TextBox3.Text = text3
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.SetFocus
Else
TextBox3.Text = text4
TextBox2.Text = ""
TextBox2.SetFocus
End If
End Sub

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Private Sub TextBox2_Change()
    Application.EnableEvents = False
    If TextBox1.Text = TextBox2.Text Then
        TextBox3.Text = "True"
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox1.SetFocus
    Else
        TextBox3.Text = "False"
        If TextBox3.Text = "False" Then
            TextBox2.Text = ""
            TextBox2.SetFocus
        End If
    End If
    Application.EnableEvents = True
End Sub

[apforever]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Private Sub TextBox2_Change()
    Application.EnableEvents = False
    If TextBox1.Text = TextBox2.Text Then
        TextBox3.Text = "True"
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox1.SetFocus
    Else
        TextBox3.Text = "False"
        If TextBox3.Text = "False" Then
            TextBox2.Text = ""
            TextBox2.SetFocus
        End If
    End If
    Application.EnableEvents = True
End Sub

ลองปรับตามคำแนะนำแล้วครับ
เกิดปัญหาคือเวลารับค่าจากเครื่องอ่านบาร์โค้ด textbox1 รับค่าได้ไม่มีปัญหา
แต่เวลารับค่าที่ textbox2 ไม่ว่าข้อมูลจะตรงหรือไม่ตรงกับ textbox1 โฟกัสจะวิ่งไปที่ textbox3 และแสดงคำว่า "False" เสมอ
ส่วน textbox2 ไม่สามารถรับค่าได้อีก จะถูกล็อคเป็นค่าว่างไปโดยปริยาย

อยากทราบว่าเป็นปัญหาของเครื่องอ่านบาร์โค้ดหรือไม่ เพราะว่าผมลอง Input ข้อมูลด้วยการ Copy and Paste โปรแกรมรันตามคำสั่งได้ตามปกติครับ
ซึ่งผมรู้สึกว่าเวลายิงบาร์โค้ดเหมือนเครื่องจะรับเข้ามา 2 ค่า ค่าแรกคือค่าที่อ่านได้จากบาร์โค้ด ค่าที่สองจะเป็นเสมือนค่าว่างหรือเป็นเสมือนการกด Tab หรือ Enter ครับ

[snasui]

ลองปรับตัวยิง Barcode ไม่ให้เกิด Enter แล้วทดสอบดูใหม่ครับ

[apforever]

ลองปรับตัวยิง Barcode ไม่ให้เกิด Enter แล้วทดสอบดูใหม่ครับ

ขอบคุณครับ จะลองปรับดูครับ

[apforever]

ได้แล้วครับ ต้องเปลี่ยนไปใช้ Event KeyDown และตั้ง Scanner ให้มีการ Enter 1 ครั้งเวลายิงบาร์โค้ด แล้วเขียนสูตรให้เข้าเงื่อนไขหลังจาก Enter แล้ว เลยนำโค้ดมาแชร์กันเผื่อเป็นประโยชน์สำหรับใครหลายๆ คนครับ

Code: Select all

Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
      If TextBox2.Text = TextBox1.Text Then
        TextBox3.Text = "True"
        TextBox1.SetFocus
        TextBox1.Text = ""
        TextBox2.Text = ""
        Else
        TextBox3.Text = "False"
        TextBox1.SetFocus
        TextBox1.Text = ""
        TextBox2.Text = ""
      End If
    End If
End Sub