Page 1 of 1
รับค่าจากเครื่องยิงบาร์โค้ดแล้วเปรียบเทียบระหว่าง 2 ค่าไม่ได้ครับ
Posted: Mon Oct 01, 2018 3:51 pm
by 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
Re: รับค่าจากเครื่องยิงบาร์โค้ดแล้วเปรียบเทียบระหว่าง 2 ค่าไม่ได้ครับ
Posted: Mon Oct 01, 2018 7:26 pm
by 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
Re: รับค่าจากเครื่องยิงบาร์โค้ดแล้วเปรียบเทียบระหว่าง 2 ค่าไม่ได้ครับ
Posted: Tue Oct 02, 2018 11:56 am
by apforever
snasui wrote: Mon Oct 01, 2018 7:26 pm
ตัวอย่างการปรับ 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 ครับ
Re: รับค่าจากเครื่องยิงบาร์โค้ดแล้วเปรียบเทียบระหว่าง 2 ค่าไม่ได้ครับ
Posted: Tue Oct 02, 2018 7:30 pm
by snasui
ลองปรับตัวยิง Barcode ไม่ให้เกิด Enter แล้วทดสอบดูใหม่ครับ
Re: รับค่าจากเครื่องยิงบาร์โค้ดแล้วเปรียบเทียบระหว่าง 2 ค่าไม่ได้ครับ
Posted: Wed Oct 03, 2018 1:42 pm
by apforever
snasui wrote: Tue Oct 02, 2018 7:30 pm
ลองปรับตัวยิง Barcode ไม่ให้เกิด Enter แล้วทดสอบดูใหม่ครับ
ขอบคุณครับ จะลองปรับดูครับ
Re: รับค่าจากเครื่องยิงบาร์โค้ดแล้วเปรียบเทียบระหว่าง 2 ค่าไม่ได้ครับ
Posted: Wed Oct 17, 2018 8:13 am
by 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