รูปภาพไม่แสดง
กระทู้เก่าบอร์ด อ.Yeadram

 1,540   3
URL.หัวข้อ / URL
รูปภาพไม่แสดง

ผมสร้างปุ่ม Add รูปภาพลงในฟอร์ม แบบสามารถเลือก Browse หาไฟล์
ชึ้งไฟล์เก็บรูปไว้ไนโฟลเดอร์ พอเปิดฟอร์มเพื่อแสดงรูปมันขึ้น Error








โค้ด
Private Sub cmd_Browse_Click()
Dim s As String

    If IsNull(PicturePath) Or PicturePath = "" Then
        s = GetOpenFile("Fixed Asset Control\LinkPicture")
    Else
        s = GetOpenFile(Me.PicturePath)
    End If
    If s = "" Then
        'MsgBox "Nothing was selected"
    Else
        If Dir(s) = "" Then
            Beep
            MsgBox "äÁ辺ä¿Åì " & s
        Else
            'If MsgBox("Do you want to overwrite the file '" & s & "'?", vbYesNoCancel) = vbYes Then
            '    àÊÕ§ = s
            'Else
            'End If
            PicturePath = s
        End If
    End If
End Sub
Private Sub Form_Current()
ShowPic
End Sub
Private Sub Form_Open(Cancel As Integer)
DoCmd.GoToRecord acForm, "FrmEmployee", acNewRec
End Sub
Private Sub ShowPic()
        If Me.PicturePath <> "" Then
            Me.Image1.Picture = CurrentProject.path & "\Fixed Asset Control\LinkPicture\" & Me.PicturePath
        Else
            Me.Image1.Picture = ""
        End If
End Sub


รบกวนรู้ช้วยชี้แนะด้วยครับ
มือใหม่ครับ


3 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R12460
ขึ้นฟ้อง Error

Run-Time erroe '2220':

Microsoft Office Access can't open the file 'C:\Document and Setting\EN1_Deddeaw\Desktop\Fixed Asset Control\LinkPicture\Fixed Asset Control\LinkPicture\EMPID9.BMP'.
2 @R12464
ดูจากโค๊ต เก็บค่าพาธ ซ้ำกันสองครั้งครับ
ให้ลองเปลี่ยนบรรทัด
Me.Image1.Picture = CurrentProject.path & "\Fixed Asset Control\LinkPicture\" & Me.PicturePath

เป็น

Me.Image1.Picture = CurrentProject.path & Me.PicturePath

เพราะใน s = GetOpenFile("Fixed Asset Control\LinkPicture")
คุณได้ให้ค่าพาธในฟังก์ชั่น GetOpenFile ที่คุณเขียนไว้แล้วครับ
3 @R12465
แก้ไขนะครับ
เป็น
Me.Image1.Picture = CurrentProject.path & "\" & Me.PicturePath
ประมาณนี้ครับ
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3192s