ต้องขออภัยนะคะ หากมีคนเคยถามแล้ว แต่ลอง search หาแล้วไม่เจอเลยค่ะ

คือ จะทำการ preview รูปบน form โดยใช้วิธี path หนะค่ะ ตามที่คุณ yeadram เคยแนะนำไว้ในกระทู้นี้ค่ะ http://www.thai-access.com/yeadram_view.php?topic_id=60


แล้วก็ลองเข้าไปดูตัวอย่างไฟล์ Northwind หนะค่ะ ก็ได้โค้ดสำหรับpreview รูปมาดังนี้

'ImagePath เป็นชื่อ txtbox สำหรับเก็บชื่อรูปค่ะ
'Image เป็นชื่อ frm ที่ใช้แสดงรูปค่ะ ส่วน Picture เป็น Folder ที่เก็บรูปค่ะ วางข้างไฟล์Database ตลอด

Sub getFileName().
    Dim fileName As String
    Dim result As Integer
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Select Employee Picture"
        .Filters.Add "All Files", "*.*"
        .Filters.Add "JPEGs", "*.jpg"
        .Filters.Add "Bitmaps", "*.bmp"
        .FilterIndex = 3
        .AllowMultiSelect = False
        .InitialFileName = CurrentProject.path
        result = .Show
        If (result <> 0) Then
            fileName = Trim(.SelectedItems.Item(1))
            Me![ImagePath].SetFocus
            Me![ImagePath].Text = fileName
        End If
    End With
End Sub

แล้วก็เรียกโชว์รูปดังนี้ค่ะ

Private Sub ShowPic()
If Me.ImagePath <> "" Then
            Me.Image.Picture = CurrentProject.path & "\Picture\" &"Me.ImagePath   
        Else
            Me.Image.Picture = ""
        End If
End Sub



ปัญหาก็คือว่า fileName = Trim(.SelectedItems.Item(1)) เนี่ย มันจะดึง path มาทั้งดุ้นเลยค่ะ ตั้งแต่ C:... ซึ่งในไฟล์ตัวอย่าง Northwind มันจะดึงมาเฉพาะชื่อรูปหนะค่ะ ก็เลยสงสัยว่า ทำไมพอเราโค้ดแบบตัวอย่างแล้วถึงดึงมาไม่เหมือนกัน ทำให้เวลาไปเปิดรูปที่เครื่องอื่น มันจะ error เนื่องจากหา lacation ของรูปไม่เจอค่ะ


ท่านผู้รู้ช่วยหน่อยนะคะ งงมากเลยค่ะ