กระทู้เก่าบอร์ด อ.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
รบกวนรู้ช้วยชี้แนะด้วยครับ
มือใหม่ครับ
ชึ้งไฟล์เก็บรูปไว้ไนโฟลเดอร์ พอเปิดฟอร์มเพื่อแสดงรูปมันขึ้น 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
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 ที่คุณเขียนไว้แล้วครับ
ให้ลองเปลี่ยนบรรทัด
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
ประมาณนี้ครับ
เป็น
Me.Image1.Picture = CurrentProject.path & "\" & Me.PicturePath
ประมาณนี้ครับ
Time: 0.3192s
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'.