กระทู้เก่าบอร์ด อ.Yeadram
1,133 3
URL.หัวข้อ /
URL
ตรวจสอบและนำภาพมาแสดง
ผมใช้ function ดังนี้
If Me.UniqID <> "" Then
Me.imgDriver.Picture = CurrentProject.Path & "\Picture\" & Me.UniqID & ".JPG"
Else
Me.imgDriver.Picture = ""
End If
ซึ่งทำงานได้ปกติครับ แต่เมื่อ User ไม่ได้ใส่ภาพก่อนการบันทึกข้อมูลเมื่อบันทึกข้อมูลที่ imgDriver ซึ่งแทนรหัสพนักงาน แล้วทำการ Enter ซึ่งรหัสดังกล่าวไม่ตรงกับภาพที่อยู่ใน Folder "Picture" ทำให้เกิด Error ครับ ผมต้องการให้เมื่อไม่พบภาพที่มีชื่อตรงกับ imgDriver ให้นำรูปที่มีชื่อ "SSS" ซึ่งมีอยู่แล้วใน Folder "Picture" มาโชว์แทนครับ
If Me.UniqID <> "" Then
Me.imgDriver.Picture = CurrentProject.Path & "\Picture\" & Me.UniqID & ".JPG"
Else
Me.imgDriver.Picture = ""
End If
ซึ่งทำงานได้ปกติครับ แต่เมื่อ User ไม่ได้ใส่ภาพก่อนการบันทึกข้อมูลเมื่อบันทึกข้อมูลที่ imgDriver ซึ่งแทนรหัสพนักงาน แล้วทำการ Enter ซึ่งรหัสดังกล่าวไม่ตรงกับภาพที่อยู่ใน Folder "Picture" ทำให้เกิด Error ครับ ผมต้องการให้เมื่อไม่พบภาพที่มีชื่อตรงกับ imgDriver ให้นำรูปที่มีชื่อ "SSS" ซึ่งมีอยู่แล้วใน Folder "Picture" มาโชว์แทนครับ
3 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R18459
ขอเอาไปลองเลยละกันนะครับ ได้ผลยังไงจะแจ้งทันทีครับ
3 @R18460
ได้ผลครับนำไปปรับนิดหน่อยจบเลยครับ ขอบคุณพี่ธีระวัฒน์มากๆครับผม คราวหน้าจะมารบกวนอีกครับ
Time: 0.3293s
If Me.UniqID <> "" Then
if len(dir(CurrentProject.Path & "\Picture\" & Me.UniqID & ".JPG" )) > 0 then
Me.imgDriver.Picture = CurrentProject.Path & "\Picture\" & Me.UniqID & ".JPG"
Else
Me.imgDriver.Picture = CurrentProject.Path & "\Picture\SSS.JPG"
End If
Endif