ค้นหาข้อมูล ได้โดย คีย์ รหัสเครื่อง เบอร์โทรศัพท์ และป้ายทะเบียนรถ

[mpmp3m7lpm]

ตอนนี้หนูดึงข้อมูลจาก Sheets Data2 โดยค้นหาจากหมายเลขเครื่องใน Form3 เพื่อโชว์ข้อมูลใน Form4 ได้แล้ว แต่หนูอยากให้ ค้นหาได้โดย คีย์รหัสเครื่อง หรือเบอร์โทรศัพท์ หรือป้ายทะเบียนรถ ก็ได้ ต้องทำยังไงค่ะ

[snasui]

ตัวอย่าง Code ตามด้านล่างครับ

Code: Select all

'Other code
If item_in_review = UserForm3.TextBox1.Text Or _
        Sheets("Data2").Range("E" & row_number) = UserForm3.TextBox2.Text Or _
        Sheets("Data2").Range("H" & row_number) = UserForm3.TextBox3.Text Then
        'Other code
End If
'Other code        

[mpmp3m7lpm]

ขอถามเพิ่มหน่อยนะค่ะ คือ หนูแอดฐานข้อมูลไว้เป็นวันที่ 3/3/2540 แต่พอค้นหาแล้วให้ข้อมูลโชว์ขึ้นมา วันที่มันขึ้นแบบนี้ 3/3/3083 ต้องทำยังไงค่ะ

[mpmp3m7lpm]

อาจารย์ค่ะ ทำตามโค๊ดที่อาจารย์ให้มา ได้ทุกช่องแล้ว พอ Userform4 แสดงข้อมูลขึ้นมา พอปิดฟอร์ม มันขึ้นมาอีกรอบค่ะแต่ฟอร์มที่ขึ้นมารอบ 2 ไม่ได้แสดงข้อมูล
จะทำแบบไหนเพื่อให้ฟอร์มขึ้นมาแค่อันแรกอันเดียวค่ะ

[snasui]

ขอถามเพิ่มหน่อยนะค่ะ คือ หนูแอดฐานข้อมูลไว้เป็นวันที่ 3/3/2540 แต่พอค้นหาแล้วให้ข้อมูลโชว์ขึ้นมา วันที่มันขึ้นแบบนี้ 3/3/3083 ต้องทำยังไงค่ะ

Excel จะรู้จักวันเดือนปีเป็น ค.ศ. ลองปรับเป็น ค.ศ. แล้วทดสอบดูใหม่ครับ

อาจารย์ค่ะ ทำตามโค๊ดที่อาจารย์ให้มา ได้ทุกช่องแล้ว พอ Userform4 แสดงข้อมูลขึ้นมา พอปิดฟอร์ม มันขึ้นมาอีกรอบค่ะแต่ฟอร์มที่ขึ้นมารอบ 2 ไม่ได้แสดงข้อมูล
จะทำแบบไหนเพื่อให้ฟอร์มขึ้นมาแค่อันแรกอันเดียวค่ะ

ช่วยลำดับการทำงานว่ามีอะไรบ้าง คลิกหรือกรอกค่าใดในลำดับใด ผลที่ได้เป็นอย่างไร ต้องการให้เป็นอย่างไร จะได้เข้าถึงปัญหาได้โดยไว

สำหรับการแสดง UserForm หลังจากค้นหา ควรแสดงครั้งเดียวหลังจาก Loop จบ หากเอาไปไว้ใน Loop ก็จะแสดงซ้ำซ้อน ดังนั้นจึงควรเอา UserForm4.Show ไปไว้ก่อน End Sub ครับ

[mpmp3m7lpm]

กดปุ่มค้นหา แล้วกรอกข้อมูล M001-1 ในช่อง รหัสเครื่องแล้วกด Search เพื่อให้ดึงข้อมูลทั้งหมดของ M001-1 จาก Sheets Data2 มาโชว์ใน ฟอร์มใบรับซ่อม แต่พอปิดฟอร์มใบรับฟอร์ม ฟอร์มก็เด้งขึ้นมาอีกครั้ง โดยที่ฟอร์มนั้นไม่มีข้อมูลอะไร หนูลองเอา code

• ใบรับซ่อม.show

เขียนไว้บน

• End Sub

ตามที่อาจารย์ได้กล่าวไว้
มันใช้ได้ค่ะ แต่มันไม่แสดงข้อมูลใน ฟอร์มมาเลย หนูไม่รู้ว่าต้องปรับโค๊ดหรือแก้ไขยังไงค่ะ

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Private Sub CommandButton1_Click()
    row_number = 0
    Do
        'DoEvents
        row_number = row_number + 1
        item_in_review = Sheets("Data2").Range("A" & row_number)
        If item_in_review = ค้นหา.TextBox1.Text Or _
                Sheets("Data2").Range("E" & row_number) = ค้นหา.TextBox2.Text Or _
                Sheets("Data2").Range("H" & row_number) = ค้นหา.TextBox3.Text Then
                ใบรับซ่อม.TextBox1.Text = Sheets("Data2").Range("A" & row_number)
                ใบรับซ่อม.TextBox2.Text = Application.Text(Sheets("Data2").Range("B" & row_number), "dd/mm/yyyy")
                'Other code
                Exit Do
        End If
     Loop Until item_in_review = ""
     ใบรับซ่อม.Show
End Sub

[mpmp3m7lpm]

ทำได้แล้วค่ะ ขอบคุณค่ะ