ผมมีปัญหาการ preview รูปใน report ครับ
กระทู้เก่าบอร์ด อ.Yeadram

 2,754   4
URL.หัวข้อ / URL
ผมมีปัญหาการ preview รูปใน report ครับ

ผมขอเล่าก่อนนะครับ พอดี report ที่ผมทำเป็นการดึงข้อมูลหลาย ๆ record มาแสดงครับ ซึ่งมีการแสดงรูปด้วย ทีนี้ บาง record ของผมไม่มีรูปอะครับมีค่าเป็น null พอรันแสดง report พบว่ามันเอารูปก่อนหน้ามาแสดงเป็นรูปองมันเองอะครับ
ตัวอย่างนะครับ

01/01/2552 รูปภาพ 1
02/01/2552 รูปภาพ 2
03/01/2552 null
04/01/2552 รูปภาพ 3

ทีนี้พอรัน report จะเป็น

01/01/2552 รูปภาพ 1
02/01/2552 รูปภาพ 2
03/01/2552 รูปภาพ 2 <มันควรไม่แสดงรูปอะครับ ดันแสดงรูปก่อนหน้าเฉยเลย>
04/01/2552 รูปภาพ 3

script ผมเขียนตามด้านล่างอะครับ ผมเก็บข้อมูลรูปเป็น path นะครับ ไม่แน่ใจว่าต้องเขียนอะไรเพิ่มไหม ?

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
On Error Resume Next
    If IsNull(Me.txtPicture) Then
        Me.Form_Image.Picture = ""
    Else
        Me.Form_Image.Picture = Me.txtPicture
    End If
End Sub

T_T ช่วยแนะแนวทางหน่อยนะครับ
ขอบคุณมาก ๆ ครับ เมลผม sony_oat@hotmail.com นะครับ

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

1 @R01298
ใช่ครับ ผมเคยเจอปัญหาแบบนี้เช่นกัน เหมือนจะเป็น bug ของ Access วิธีแก้ก็คือต้องกำหนดให้ .Visible Property กำกับเพิ่มเติมไปด้วย โค้ดก็จะเป็นอย่างนี้

    If Nz(Me.txtPicture, "") = "" Then
        Me.Form_Image.Picture = ""
        Me.Form_Image.Visible = False
    Else
        Me.Form_Image.Picture = Me.txtPicture
        Me.Form_Image.Visible = True
    End If
2 @R01299
ลองแก้แล้ว ได้ผลครับ ขอบคุณมาก ๆ ครับ ถามเพิ่มเติมหน่อยนะครับ ถ้าสมมติว่า ผมมี path รูปนั้นอยู่ แต่ผมย้ายรูปออกจาก path นั้นไปแล้ว ทีนี้อยากให้มันไม่แสดงรูปอะครับ ต้องเขียนเชคเพิ่มยังไงอะครับ ตอนผม query ดู มันก็เอารูปก่อนหน้ามาแสดงอีก ทั้ง ๆ ที่ไม่เจอข้อมูลน่าจะไม่แสดงรูปอะครับ งง จริง ๆ T__T
3 @R01300
ก็ต้องตรวจว่ามีไฟล์นั้นอยู่จริงหรือไม่เสียก่อนด้วยฟังก์ชั่น Dir( ) ครับ

    If Nz(Me.txtPicture, "") = "" Then
        Me.Form_Image.Picture = ""
        Me.Form_Image.Visible = False
    Elseif Dir(Me.txtPicture) = "" Then
        Me.Form_Image.Picture = ""
        Me.Form_Image.Visible = False
    Else
        Me.Form_Image.Picture = Me.txtPicture
        Me.Form_Image.Visible = True
    End If

4 @R23279
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3314s