ค้นหาข้อมูลแต่ แสดงข้อมูลผิดอัน

[mpmp3m7lpm]

หนูลองเอาโปรแกรมไปทดลองกับสถานประกอบการณ์มา ปรากฎว่าเขากรอกข้อมูลมูลใน Formใบรับซ่อม ไม่ครบทุก Textbox เป็นประจำๆ โปรแกรมมันดึงข้อมูลของอันอื่นมาแสดง เช่น ถ้าเราแอดข้อมูลเครื่องของ M801 ครบทุกช่องมันดึงข้อมูลของ M801 แล้วก็แอด M802 แต่ใส่ไม่ครบทุกช่อง มันก็ดึงข้อมูลของ M802 แต่พอเพิ่ม M803 มันไปดึงของ M802 ขึ้นมาแทน แต่ถ้าใส่ข้อมูลเต็มทุกครั้งมันจะแสดงข้อมูลถูกต้อง หนูต้องการให้มันแสดงข้อมูลได้ถูกต้องโดยที่ไม่ต้องกรอกข้อมูลทุกช่อง

[snasui]

ตัวอยาง Code ครับ

Code: Select all

'Other code
If item_in_review = Search.TextBox1.Text Or _
    (Len(Sheets("Data2").Range("E" & row_number).Value) > 0 And _
        Sheets("Data2").Range("E" & row_number).Value = Search.TextBox2.Text) Or _
    (Len(Sheets("Data2").Range("H" & row_number).Value) > 0 And _
        Sheets("Data2").Range("H" & row_number).Value = Search.TextBox3.Text) Then
    Repair.TextBox1.Text = Sheets("Data2").Range("A" & row_number)
    Repair.TextBox2.Text = Application.Text(Sheets("Data2").Range("B" & row_number), "dd/mm/yyyy")
    Repair.TextBox3.Text = Sheets("Data2").Range("C" & row_number)
    Repair.TextBox4.Text = Sheets("Data2").Range("D" & row_number)
    Repair.TextBox5.Text = Sheets("Data2").Range("E" & row_number)
    Repair.TextBox6.Text = Sheets("Data2").Range("F" & row_number)
    Repair.TextBox7.Text = Sheets("Data2").Range("G" & row_number)
    Repair.TextBox8.Text = Sheets("Data2").Range("H" & row_number)
    Repair.TextBox9.Text = Sheets("Data2").Range("I" & row_number)
    Repair.TextBox10.Text = Sheets("Data2").Range("J" & row_number)
    Exit Do
End If

'Other code

[mpmp3m7lpm]

ได้แล้วค่ะ ขอบคุณมากๆเลยค่ะ