Page 5 of 5
Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox
Posted: Thu Nov 02, 2017 11:08 pm
by snasui
ภาพนั้นไม่มีการฟ้อง Error ไม่สามารถวินิจฉัยได้ แจ้ง Error ที่โปรแกรมฟ้องมาใหม่ครับ
Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox
Posted: Thu Nov 02, 2017 11:17 pm
by Benmore
snasui wrote: ภาพนั้นไม่มีการฟ้อง Error ไม่สามารถวินิจฉัยได้ แจ้ง Error ที่โปรแกรมฟ้องมาใหม่ครับ
Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox
Posted: Thu Nov 02, 2017 11:21 pm
by snasui
ตรงบรรทัดสีเหลืองหากมีการกดปุ่ม F8 โปรแกรมมีการฟ้องอย่างไรหรือไม่ช่วยแจ้ง Error นั้นมาด้วย หากไม่ Error ก็แจ้งว่าไม่ Error
การแสดงภาพจะต้องประกอบด้วยคำบรรยายทุกครั้งจะได้เข้าถึงปัญหาได้โดยไวครับ
Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox
Posted: Fri Nov 03, 2017 8:13 am
by Benmore
เมื่อกด F8 จะแสดงแบบนี้ค่ะ
1112.png
Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox
Posted: Fri Nov 03, 2017 7:33 pm
by snasui
ปัญหาเนื่องจากสมาชิก Array ที่ได้จากการ Split TextBox3 มีจำนวนไม่ถึงที่นำไปใช้ เช่น มีสมาชิก 6 ตัวแต่นำไปใช้จริง 8 ตัวจึงเกิด Error เช่นนี้เป็นต้น
การแก้ปัญหาเบื้องต้นให้เพิ่มการการขึ้นบรรทัดใหม่เข้าไปช่วยโดยเขื่อมเข้าไปกับ TextBox3 เพื่อที่ว่าเมื่อ Split ออกมาแล้วจะมีสมาชิก Array ไม่ต่ำกว่า 8 ตามตัวอย่างด้านล่างครับ
Code: Select all
'Other code
strTb1 = Split(TextBox1.Text, vbCrLf)
strTb3 = TextBox3.Text & vbCrLf
strTb3 = strTb3 & vbCrLf
strTb3 = strTb3 & vbCrLf
strTb3 = Split(strTb3, vbCrLf)
Cells(emptyRow, 1).Value = VBA.Mid(strTb1(0), InStr(strTb1(0), ":") + 1) 'TextBox1.Value
Cells(emptyRow, 2).Value = VBA.Mid(strTb1(1), InStr(strTb1(1), ":") + 1) 'TextBox1.Value
Cells(emptyRow, 3).Value = VBA.Mid(strTb1(2), InStr(strTb1(2), ":") + 1) 'TextBox1.Value
Cells(emptyRow, 4).Value = VBA.Mid(strTb1(3), InStr(strTb1(3), ":") + 1) 'TextBox1.Value
Cells(emptyRow, 6).Value = strTb3(0) & "," & strTb3(1) & "," & strTb3(2) & vbCrLf & strTb3(3) & "," & strTb3(4) & "," & strTb3(5) 'TextBox3.Value
Cells(emptyRow, 7).Value = VBA.Mid(strTb3(6), InStr(strTb3(6), ":") + 1) & "," & VBA.Mid(strTb3(7), InStr(strTb3(7), ":") + 1) 'TextBox1.Value
Cells(emptyRow, 5).Value = comday.Value & "/" & commonth.Value & "/" & comyear.Value
'Other code
Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox
Posted: Mon Nov 06, 2017 1:11 pm
by Benmore
ในส่วนของสาเหตุแก้ไขได้แล้วค่ะ ติดตรงส่วนของข้อมูลการเลือกใน combobox ค่ะ
ถ้าเลือจำนวนไม่ครบ 6 จำนวนข้อมูลที่ถูกบันทึกลงไปในชีท ก็จะมีข้อมูลของสาเหตุ เข้ามาแทนที่ในช่องของ Discription ค่ะ
Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox
Posted: Mon Nov 06, 2017 9:29 pm
by snasui
ลองออกแบบวิธีการแยกค่าเช่นนั้นและเขียนมาเองก่อน ติดแล้วค่อยถามกันครับ
Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox
Posted: Tue Nov 14, 2017 12:34 pm
by Benmore
ไม่ทราบว่าจะต้องแก้ไขตรงไหนบ้างเลยค่ะ ขอแนวทางด้วยค่ะ
Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox
Posted: Wed Nov 15, 2017 6:18 am
by snasui
ปัญหาคือไม่รู้ขอบเขตของข้อมูลที่เพิ่มเข้าไปด้วยปุ่ม Add
แนวทางในการทำเช่นนั้นสามารถเลือกได้ว่าให้บรรทึกไปทีละชุดจะได้ไม่ต้องจัดการปัญหาลักษณะนี้
หากจะทำตามแนวทางนี้ก็หาทางการสร้าง "ตัวแบ่งข้อมูล" ในทุกการ Add เข้าไปเพิ่ม จะได้ใช้ตัวแบ่งนั้นมาพิจาณาต่อว่ามีการเพิ่มเข้าไปกี่ชุดต่อไปครับ