กระทู้เก่าบอร์ด อ.Yeadram
        
           2,995   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 ช่วยแนะแนวทางหน่อยนะครับ
ขอบคุณมาก ๆ ครับ เมลผม [email protected] นะครับ
    
    
  ตัวอย่างนะครับ
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 ช่วยแนะแนวทางหน่อยนะครับ
ขอบคุณมาก ๆ ครับ เมลผม [email protected] นะครับ
				4 Reply in this Topic. Dispaly 1  pages and you are on page number 1 
				
        
    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
    
    
  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    
        
       
    
    
  
     
    
      Time: 0.3839s
    
      
		
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