Excel Forum

Posted: **Wed Feb 20, 2013 4:33 pm**

ขอความกรุณาด้วยครับ

คือผมทำโปรเจคจบของวิทยาลัย เกี่ยวกับโปรแกรม VB6 ครับ

ปัญหาคือ ผมจะต้องใช้การสแกนบาร์โค้ด เพื่อเชื่อมต่อข้อมูลใน Access แต่เมื่อผมสแกนบาร์โค้ดเข้าไปใน Textbox
แต่กลับไม่มีอะไรขึ้นมาเลยครับ
ผมควรจะเขียนโค้ดยังไงให้สามารถรับค่าของการสแกนบาร์โค้ดเข้าไปใน Textbox ได้ครับ

ขอความกรุณาด้วยครับ ผมไม่มีความรู้เรื่อง VB6 เลยครับ ต้องเร่งในเสดภายในอาทิตย์นี้แล้วครับ

อีเมลล์ phenix_zapza_i@hotmail.com

Posted: **Wed Feb 20, 2013 4:49 pm**

ขออภัยครับ สำหรับ snasui.com จะเน้นตอบปัญหาเฉพาะทีเขียนมาเองแล้วยังติดและหาทางแก้ยังไม่ได้เท่านั้นครับ ไม่เน้นแจก Code ไม่รับทำงาน ไม่รับทำการบ้าน ไม่รับทำ Project ให้ท่านใดครับ

Posted: **Wed Feb 20, 2013 5:20 pm**

Code: Select all

Private Sub txtstudent_KeyDown(KeyCode As Integer, Shift As Integer)
Dim idcriteria As String
idcriteria = "ID like '" & txtstudent.Text & "'"
If KeyCode = "13" Then
Adodc1.Recordset.MoveLast
Adodc1.Recordset.Find idcriteria, , adSearchBackward
TxtTools.SetFocus
End If
Adodc1.Enabled = False
Adodc2.Enabled = True
End Sub

นี่เป็นโค้ดที่ผมใส่ใน Textbox หน่ะครับ ผมควรจะเพิ่มอะไรให้สามารถ รับค่าจากการสแกนบาร์โค้ดหน่ะครับ
หรือช่วนแนะนำแนวทางก็ได้ครับ จะเป็นพระคุณอย่างสูง

Posted: **Wed Feb 20, 2013 5:36 pm**

Code ที่เขียนมานี้ติดปัญหาอะไร มีกระบวนการทำงานเป็นอย่างไรบ้างครับ

ผมไม่ได้ใช้ VB6 คงไม่สามารถช่วยอะไรได้มาก เพราะไม่สามารถทดสอบ Code ให้ได้ หากเป็น VB, C#, VBA อาจจะพอช่วยได้บ้าง

ลองไปถามที่ http://pantip.com/forum/siliconvalley น่าจะได้คำตอบที่ดีกว่าเนื่องจากมีผู้ใช้ VB6 อยู่หลาย ๆ ท่านครับ

Posted: **Wed Feb 20, 2013 5:55 pm**

ขอคุณที่สละเวลา และขอโทษที่รบกวนครับ

Excel Forum

ขอความช่วยเหลือเกี่ยวกับโปรแกรม VB6 หน่อยครับ

ขอความช่วยเหลือเกี่ยวกับโปรแกรม VB6 หน่อยครับ

Re: ขอความช่วยเหลือเกี่ยวกับโปรแกรม VB6 หน่อยครับ

Re: ขอความช่วยเหลือเกี่ยวกับโปรแกรม VB6 หน่อยครับ

Re: ขอความช่วยเหลือเกี่ยวกับโปรแกรม VB6 หน่อยครับ

Re: ขอความช่วยเหลือเกี่ยวกับโปรแกรม VB6 หน่อยครับ