ผมสร้างปุ่ม 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


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