ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox

[snasui]

ภาพนั้นไม่มีการฟ้อง Error ไม่สามารถวินิจฉัยได้ แจ้ง Error ที่โปรแกรมฟ้องมาใหม่ครับ

[Benmore]

ภาพนั้นไม่มีการฟ้อง Error ไม่สามารถวินิจฉัยได้ แจ้ง Error ที่โปรแกรมฟ้องมาใหม่ครับ

[snasui]

ตรงบรรทัดสีเหลืองหากมีการกดปุ่ม F8 โปรแกรมมีการฟ้องอย่างไรหรือไม่ช่วยแจ้ง Error นั้นมาด้วย หากไม่ Error ก็แจ้งว่าไม่ Error

การแสดงภาพจะต้องประกอบด้วยคำบรรยายทุกครั้งจะได้เข้าถึงปัญหาได้โดยไวครับ

[Benmore]

เมื่อกด F8 จะแสดงแบบนี้ค่ะ

1112.png

[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

[Benmore]

ในส่วนของสาเหตุแก้ไขได้แล้วค่ะ ติดตรงส่วนของข้อมูลการเลือกใน combobox ค่ะ
ถ้าเลือจำนวนไม่ครบ 6 จำนวนข้อมูลที่ถูกบันทึกลงไปในชีท ก็จะมีข้อมูลของสาเหตุ เข้ามาแทนที่ในช่องของ Discription ค่ะ

[snasui]

ลองออกแบบวิธีการแยกค่าเช่นนั้นและเขียนมาเองก่อน ติดแล้วค่อยถามกันครับ

[Benmore]

ไม่ทราบว่าจะต้องแก้ไขตรงไหนบ้างเลยค่ะ ขอแนวทางด้วยค่ะ

[snasui]

ปัญหาคือไม่รู้ขอบเขตของข้อมูลที่เพิ่มเข้าไปด้วยปุ่ม Add

แนวทางในการทำเช่นนั้นสามารถเลือกได้ว่าให้บรรทึกไปทีละชุดจะได้ไม่ต้องจัดการปัญหาลักษณะนี้

หากจะทำตามแนวทางนี้ก็หาทางการสร้าง "ตัวแบ่งข้อมูล" ในทุกการ Add เข้าไปเพิ่ม จะได้ใช้ตัวแบ่งนั้นมาพิจาณาต่อว่ามีการเพิ่มเข้าไปกี่ชุดต่อไปครับ