อยากใส่รูปในFormค้นหาครับ

[Thak]

หัดเขียน VBA ครับ อยากใส่รูปใน Form ค้นหา ครับ ไม่รู้ว่าจะทำยังไงครับ

[snasui]

ใส่รูปใน Form ที่กล่าวถึงหมายถึงใส่ยังตำแหน่งใด มีเงื่อนไขอย่างไรบ้าง กรุณาอธิบายประกอบมาด้วยครับ

[Thak]

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

[snasui]

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

Code: Select all

Private Sub CommandButton2_Click()
    Dim Mem_ID As String
    Dim lastrow, i As Integer
    Dim imgPth As String

    imgPth = "C:\Images\"
    Mem_ID = TextBox1.Text
    
    With Me.Image1
        If Dir(imgPth & Mem_ID & ".jpg") <> "" Then
            .Picture = LoadPicture(Filename:=imgPth & Mem_ID & ".jpg")
            .PictureAlignment = fmPictureAlignmentCenter
            .PictureSizeMode = fmPictureSizeModeStretch
        End If
    End With
    lastrow = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
    
    For i = 2 To lastrow
    
        If Worksheets("Sheet1").Cells(i, 1).Value = Mem_ID Then
        
          T1.Text = Worksheets("Sheet1").Cells(i, 2).Value
          T2.Text = Worksheets("Sheet1").Cells(i, 3).Value
          T3.Text = Worksheets("Sheet1").Cells(i, 4).Value
          T4.Text = Worksheets("Sheet1").Cells(i, 5).Value
          T5.Text = Worksheets("Sheet1").Cells(i, 6).Value
          T6.Text = Worksheets("Sheet1").Cells(i, 7).Value
          T7.Text = Worksheets("Sheet1").Cells(i, 8).Value
        
        End If
    Next

End Sub

[Thak]

อาจารย์ครับ ผมลอง Copy code ไปลองแล้วรูปไม่ขึ้นครับ แต่ไม่ Error นะครับ หรือต้องกำหนดตำแหน่งที่อยู่ของรูปไหมครับ ถ้าต้องกำหนดเราต้องกำหนดตรงจุดไหนของ Code ครับ

[snasui]

ส่วนไหนใน Code ที่เป็น Path ของรูปจะต้องกำหนดใหม่ให้ตรงกับที่ใช้จริง ไม่เช่นนั้นจะไม่ได้คำตอบ การใช้ Userform ได้แสดงว่ามีความรู้เกี่ยวกับการใช้ Code พอสมควร เมื่อทำการ Debug แล้วจะทราบเองได้ไม่ยาก ไม่เช่นนั้นก็ต้องศึกษาเพิ่มเติม ติดตรงไหนค่อยมาถามกันต่อครับ