กระทู้เก่าบอร์ด อ.Yeadram
1,242 5
URL.หัวข้อ /
URL
โชว์รูปต่อไปไม่ได้
Private Sub Text3_Enter()
On Error GoTo picerr
Me.Image0.Picture = "d:\pic\" & Text3.Value & ".jpg"
picok:
Text3.Value = " "
Exit Sub
picerr:
Image0.Picture = "d:\pic\x.jpg"
Resume picok
End Sub
เมื่อใส่ชื่อรูปใน Text3 ครั้งแรกจะขึ้นรูปตรง ครั้งที่ 2 จะ error โดยถ้าเอา On Error GoTo picerr ออกจะเห็นว่า Me.Image0.Picture เก็บค่าแรกไว้อยู่ ส่วน Text3 เก็บค่าที่ป้อนมาใหม่ จึงทำให้ error จึงลองทำการ กำหนดให้ Me.Image0.Picture = "" พอทดสอบก็ได้ว่า มันไปจำค่าว่าง ไม่สามาถใส่ค่าใหม่ได้
คำถามคือ แก้ไขอย่างไรให้สามาถแสดงรูปตามค่าที่ป้อนใหม่ได้เลื่อยๆ
On Error GoTo picerr
Me.Image0.Picture = "d:\pic\" & Text3.Value & ".jpg"
picok:
Text3.Value = " "
Exit Sub
picerr:
Image0.Picture = "d:\pic\x.jpg"
Resume picok
End Sub
เมื่อใส่ชื่อรูปใน Text3 ครั้งแรกจะขึ้นรูปตรง ครั้งที่ 2 จะ error โดยถ้าเอา On Error GoTo picerr ออกจะเห็นว่า Me.Image0.Picture เก็บค่าแรกไว้อยู่ ส่วน Text3 เก็บค่าที่ป้อนมาใหม่ จึงทำให้ error จึงลองทำการ กำหนดให้ Me.Image0.Picture = "" พอทดสอบก็ได้ว่า มันไปจำค่าว่าง ไม่สามาถใส่ค่าใหม่ได้
คำถามคือ แก้ไขอย่างไรให้สามาถแสดงรูปตามค่าที่ป้อนใหม่ได้เลื่อยๆ
5 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R15324
รูปเพิ่มเติม
2 @R15329
Error ที่ชื่อ file หรือเปล่าครับ เห็นเหมือนมี space อยู่หน้าชื่อด้วย
3 @R15330
ได้แล้วครับ แก้ตรงสีแดง
Private Sub Text3_Enter()
On Error GoTo picerr
Me.Image0.Picture = "d:\pic\" & Trim(Text3.Value) & ".jpg"
picok:
Text3.Value = " "
Exit Sub
picerr:
Me.Image0.Picture = "d:\pic\x.jpg"
Resume picok
End Sub
แต่ ผมงงตรงที่ ผมใส่ Event Enter ให้ Text พอกด Enter แล้วมันไม่ทำงาน ต้องคลิกที่ Text อีกทีจึงจะทำงาน (ปกติมี Image กับ Text พอเพิ่มปุ่มComman เฉยๆยังไม่ได้เขียนคำสั่ง มันก็เป็นเหมือนที่ว่ามา)
Private Sub Text3_Enter()
On Error GoTo picerr
Me.Image0.Picture = "d:\pic\" & Trim(Text3.Value) & ".jpg"
picok:
Text3.Value = " "
Exit Sub
picerr:
Me.Image0.Picture = "d:\pic\x.jpg"
Resume picok
End Sub
แต่ ผมงงตรงที่ ผมใส่ Event Enter ให้ Text พอกด Enter แล้วมันไม่ทำงาน ต้องคลิกที่ Text อีกทีจึงจะทำงาน (ปกติมี Image กับ Text พอเพิ่มปุ่มComman เฉยๆยังไม่ได้เขียนคำสั่ง มันก็เป็นเหมือนที่ว่ามา)
4 @R15331
แก้ได้แล้วครับ เอาตัวควบคุมออกจากลำดับแท็บ
http://office.microsoft.com/th-th/access-help/HA010341997.aspx
http://office.microsoft.com/th-th/access-help/HA010341997.aspx
5 @R15333
อื่ม! ลักษณะอย่างที่บอก ใส่โค๊ดในเหตุการณ์ After Update ก็น่าจะพอแล้วนะครับ คือ จะอ่านโค๊ดใหม่ทุกครั้งที่ Text3 มีการเปลี่ยนค่า
Time: 0.4048s
